单选题
窗体中有命令按钮run34,对应的事件代码如下: Private Sub run34_Enter() Dim num As Integer,a As Integer,b As Integer,i As Integer For i=l 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 运行以上事件过程,所完成的功能是( )。