窗体中有命令按钮cmd1,对应的事件代码如下:Private Sub cmd1_Enter()Dim num As Integer,a As Integer,b As Integer,i As IntegerFor i = 1 To 10num = InputBox(“请输入数据:”,”输入”)If Int(num/2) = num/2 Thena = a + 1Elseb = b + 1End
单选题
窗体中有命令按钮cmd1,对应的事件代码如下:Private Sub cmd1_Enter()Dim num As Integer,a As Integer,b As Integer,i As IntegerFor i = 1 To 10num = InputBox(“请输入数据:”,”输入”)If Int(num/2) = num/2 Thena = a + 1Elseb = b + 1End