在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter（　）
Dim hum As Integer
Dim a As Integer
Dim b As Integer
Dim i As Intege
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个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮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
< C:对输入的10个数据分别统计有几个是整数，有几个是非整数 D:对输入的10个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮run1，对应的事件代码如下：
Private Sub run1_Enter（　）
Dim hum As Integer
Dim a As Integer
Dim b As Integer
Dim i As Intege
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个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮Command1，对应的事件代码如下：
Private Sub Command1_Enter（　）
Dim num As Integer
Dim a As Integer
Dim b As Integer
Dim i As Integer
For 1=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) &：",h="& Str(b))
End Sub
运行以上事件所完成的功能是( )。

A:对输入的10个数据求累加和 B:对输入的10个数据求各自的余数，然后再进行累加 C:对输入的10个数据分别统计有几个是整数，有几个是非整数 D:对输入的10个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮Commandl，对应的事件代码如下： Private Sub Commandl_nter（　） 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个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮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个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮run1，对应的事件代码如下： Private Sub run1_Enter（　） Dim flum 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个数据分别统计有几个是奇数，有几个是偶数

在窗体中有一个命令按钮Command1，对应的事件代码如下： PrivateSubCommand1_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/2Then a=a+1 Else b=b+l End If Next i MsgBox(“运行结果：a=“&Str(a)&：”，b=”&Str(b)) End Sub 运行以上事件所完成的功能是( )。

A:对输入的10个数据求累加和 B:对输入的10个数据求各自的余数，然后再进行累加 C:对输入的10个数据分别统计有几个是整数，有几个是非整数 D:对输入的10个数据分别统计有几个是奇数，有几个是偶数