VBA编程题，从键盘接收5个数，判断其中奇数偶数的个数

更新时间：2018-06-20 08:25:48 120次访问

Sub aaa()

Dim a%, r1%, r2%

r1 = 0

r2 = 0

For i = 1 To 5

   a = InputBox("请输入")

   If a Mod 2 = 1 Then

      r1 = r1 + 1

      Else

        r2 = r2 + 1

   End If

Next i

MsgBox "奇数=" & r1

MsgBox "偶数=" & r2

End Sub