单项选择题
在窗体中有一个命令按钮Command1,对应的事件代码如下: Private Sub
Command1_Enter() Dim num As Integer
Dim a As Integer Dim b As
Integer Dim i As Integer
For i=1 To 10
num=InputBox("请输入数据:","输入",1) 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 运行以上事件所完成的功能是______。
A.对输入的10个数据求累加和
B.对输入的10个数据求各自的余数,然后再进行累加
C.对输入的10个数据分别统计有几个是整数,有几个是非整数
D.对输入的10个数据分别统计有几个是奇数,有几个是偶数