6.在窗体中有一个命令按钮run1，对应的事件代码如下：

　　   Private Sub run1_Enter(      )

　　   Dim num As Integer

　　   Dim m As Interger

　　   Dim n As Integer

　　   Dim i As Integer

　　   For i=1 To 10

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

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

　　   m=m+1

　　   Else

　　   n=n+1

　　   End If

　　   Next i

　　   MsgBox("运行结果：m=" & Str(m)& "，n="& Str(n))

　　   End Sub

　　运行以上事件所完成的功能是(      )。答案：D

　　A）对输入的10个数据统计有几个是整数，有几个是非整数

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

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

　　D）对输入的10个数据统计有几个是奇数，有几个是偶数

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

　　   Private Sub Command1_Click()

　　   A=75

　　   If A>60 Then I=1

　　   If A>70 Then I=2

　　   If A>80 Then I=3

　　   If A>90 Then I=4

　　   MsgBox I

　　   End Sub

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

　　A）1

　　B）2

　　C）3

　　D）4

　　8.窗体中有命令按钮Command1和文本框Text1，事件过程如下：

　　   Function result(ByVal x As Integer)As Boolean

　　   If x Mod 2=0 Then

　　   result=True

　　   Else

　　   result=False

　　   End If

　　   End Function

　　   Private Sub Command1_Click()

　　   x=Val(InputBox("请输入一个整数"))

　　   If   Then

　　   Text1=Str(x)& "是偶数."

　　   Else

　　   Text1=Str(x)& "是奇数."

　　   End If

　　   End Sub

　　运行程序，单击命令按钮，输入19，在Text1中会显示“19是奇数.”。那么在程序的空白处应填写(      )。答案：B

　　A）result(x)= "偶数"

　　B）result(x)

　　C）result(x)= "奇数"

　　D）NOT result(x)

　　9.窗体加载事件如下：

　　   Private Sub Form_Load(      )

　　   b = 1

　　   Do While b < 15

　　   b = b * 2

　　   Loop

　　   MsgBox b

　　   End Sub

　　此程序运行结果为(      )。答案：A

　　A）16

　　B）15

　　C）14

　　D）13