窗体中有命令按钮run34,对应的事件代码如下:Private Sub run34_Enter()Dim num As Integer,a As

窗体中有命令按钮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+l

Else

b=b+1

End if

Next i

MsgBox(“运行结果：a=“&Str(a)&”，b=”&Str(b))

End Sub

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

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

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

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

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

C解析：因为num被定义成Integer类型的变量，所以依据判断(num／2)的值是否与其整数部分相等(即是否能被2整除)，能够判断num的奇偶性。