计算机二级VB第6章选择题及答案.docVIP

窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() a = Val(InputBox(请输入分数：, 计算你的等级, 60)) If a 0 Or a 100 Then Print 输入错误 ElseIf a 60 Then Print 不及格 ElseIf a 80 Then Print 合格 Else Print 优秀 End If End Sub 运行时，单击按钮，在输入对话框中直接回车，输出结果为（）。 输入错误 不合格 合格 优秀 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 200 sum = sum + i If i Mod 19 = 18 Then Exit For End If Next i Print sum End Sub 运行时，单击按钮，输出结果为（）。 20100 0 190 171 运行下列程序，单击窗体后输出的结果是（）。 Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print 3 + k; 3 k; Spc(3); Next End Sub 31 31 32 32 31 31 32 32 4 31 5 32 4 31 5 32 下列程序段的执行结果是（）。 X = 3: Y = 5: z = 9 X = X + Y Y = X - Y If X + Y Z - X Then z = X + Y If X + Y Z - Y Then X = z + Y Print X, Y, Z 3 5 9 14 3 11 8 3 11 8 5 9 执行下列程序段后输出的结果是（）。 s = 1 For i = 1 To 3 For j = 0 To i - 1 s = s + s * j Next j Print s; Next I 1 2 2 1 2 2 12 1 2 12 窗体上有一个命令按钮command1，编写如下事件过程： Private Sub Command1_Click() Dim i As Integer Dim sum As Integer For i = 1 To i + 99 sum = sum + i i = i + 1 Next i Print sum End Sub 运行时单击按钮，输出结果是（）。 编译错误 2401 2500 变量sum溢出 执行下列程序段后，窗体输出的结果是（）。 Dim a As Integer a = Val(InputBox(请输a的值, , 6)) Select Case a Case 1 To 4 Print A Case Is 3 Print B Case 5 To 10 Print C Case Else Print D End Select A B C D 有如下程序段： Private Sub Form_Click() Dim s%, t%, a%, b% s = 1: t = 1 a = Val(Text1.Text) b = Val(Text2.Text) If a 0 Then s = s + 1 If a b Then t = t + s Else If a = b Then t = 5 Else t = 2 * s End If End If Print t End Sub 要使程序输出结果为4，则a和b应满足的条件是（）。 a0 and ab a0 and ab a0 and ab a0 and ab 窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click() Dim i%, j%, x%, n% x = 0 n = InputBox()