试卷十六标准答案及评分标准.docVIP

试卷十六标准答案及评分标准 判断题 判断题评分标准：本题10分，每小题1分 1 2 3 4 5 6 7 8 9 10 × × √ √ √ √ × × √ × 单选题 单选题评分标准：本题20分，每小题2分 11 12 13 14 15 16 17 18 19 20 B B A C A D C B B C 程序填空题 程序填空题评分标准：本题20分，每小题2分 21 22 23 24 25 26 27 28 29 30 A C D D A C D A B D 程序阅读题 评分标准：每小题5分。完全与标准答案吻合可以得5分，若数据正确或格式正确则酌情给分。 1. 2. 3. 以窗体中心为坐标原点，以窗体的高和宽中最小值的1/2为半径画一个圆（轮廓线为黄色，蓝色填充） 4. 12 20 10 15  程序设计题（本题共）Private Sub Command1_Click() Dim x As Single Dim y As Single x = Val(InputBox(x=)) If x = 0 Then y = (Sqr(3 * x) + Exp(x)) / (x + 2) Else y = x ^ 3 * Log(Abs(x)) / Log(10) End If Print x=; x, y=; y End Sub 2． 3． Private Sub Command1_Click() Static t As Integer t = t + 1 If Text1 = super Then frmLogin.Hide frmMain.Show Else Select Case t Case 1, 2 MsgBox 密码错误！, , 登录 Case 3 MsgBox 密码错误！, , 登录 Text1.Locked = True Command1.Caption = 退出 Case Else End End Select Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1) End If End Sub Private Sub Form_Load() Text1.PasswordChar = * Text1.MaxLength = 6 Text1.Text = End Sub 1 事件与变量定义：1分 输入语句：2分 选择结构：2分 计算公式：3分 输出：2分 Private Sub Form_Click() Dim a As Integer, b As Integer Dim i As Integer, s As Integer Do a = Val(InputBox(a=)) b = Val(InputBox(b=)) Loop While b a For i = a To b If prime(i) Then s = s + 1 End If Next i Label1.Caption = 素数个数为： + Str(s) End Sub Public Function prime(x As Integer) As Boolean Dim i As Integer For i = 2 To x - 1 If x Mod i = 0 Then Exit Function Next i prime = True End Function 事件及Text1初始设置：2分 密码判断选择结构：2分 密码正确处理：1分 密码错误处理：2分 第3次输错密码处理：1分 Text1选中：1.5分 退出：0.5分 或 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim i As Integer, j As Integer Dim s As Integer Do