在窗体中有一个命令按钮runl6,对应的事件代码如下: Private Sub runl6_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 'Int取整函数 例int(3.5)=3 a = a + 1 Else b = b + 1 End If Next i MsgBox ("运行结果:a=" & Str(a) & ",b=" & Str(b)) End Sub 'str(123)=”123”将123转换成字符串与val互逆。例:Val(str(123))=123 运行以上事件所完成的功能是