在窗体中有一个命令按钮run35,对应的事件代码如下:
Private Sub run35_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
运行以上事件所完成的功能是