1.窗体中有命令按钮run34，对应的事件代码如下：

　　   Private Sub run34_Enter()

　　   Dim num As Integer,a As Integer,b As Integer,i As Integer

　　   For i=1 To 10

　　   num=InputBox("请输入数据：","输入")

　　   If Int(num/2)=num/2 Then

　　   a=a+1

　　   Else

　　   b=b+1

　　   End If

　　   Next i

　　   MsgBox("运行结果：a=" & Str(A)& ",b=" & Str(B))

　　   End Sub

　　运行以上事件过程，所完成的功能是(      )。答案：C

　　A）对输入的10个数据求累加和

　　B）对输入的10个数据求各自的余数，然后再进行累加

　　C）对输入的10个数据分别统计奇数和偶数的个数

　　D）对输入的10个数据分别统计整数和非整数的个数

　　2.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件过程：

　　   Private Sub Command1_Click()

　　   For i=1 To 4

　　   x=4

　　   For j=1 To 3

　　   x=3

　　   For k=1 To 2

　　   x=x+6

　　   Next k

　　   Next j

　　   Next i

　　   MsgBox x

　　   End Sub

　　窗体打开运行后，单击命令按钮，则消息框的输出结果是(      )。答案：B

　　A）7

　　B）15

　　C）157

　　D）538

　　3.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

　　   Private Sub Command1_Click()

　　   x=0

　　   n=InputBox("      ")

　　   For i=1 to n

　　   For j=1 to i

　　   x=x+1

　　   Next j

　　   Next i

　　   Print x

　　   End Sub

　　程序运行后，单击命令按钮，如果输入3，则在窗体上显示的内容是(      )。答案：D

　　A）3

　　B）4

　　C）5

　　D）6

　　4.以下程序运行后，消息框的输出结果是(      )。

　　   a=sqr(3)

　　   b=sqr(2)

　　   c=a>b

　　MsgBox c+2答案：B

　　A）-1

　　B）1

　　C）2

　　D）出错

　　5.执行语句MsgBox"AAA"，vbOKCancel+vbQuestion，"BBB"之后，弹出的信息框外观样式是(      )。答案：C

　　A）

　　B）

　　C）;

　　D）;