【单选题】窗体中有命令按钮run34,对应的事件代码如下: PrivateSub run34_Enter( ) Dim humAs Integer,aAs Integer,b As Integer,i AsInteger For i=1To 10 num=InputBox(”请输入数据:”,”输入”) IfInt(num/2)==num/2 Then a=a+1 Else b=b+1 End if Next...
【单选题】窗体中有命令按钮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+l Else b=b+1 End if ...