窗体中有命令按钮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 ＋1 　　　　　　 Else 　　　　　　　　b＝b＋1 　　　　　　 End If 　　 Next i 　　 MsgBox("运行结果：a＝" & Str(a)& "，b＝" & Str(b)) End Sub 运行以上事件过程，所完成的功能是(　　)。