设计一个程序,输入一个整数,判断该数的奇偶性.

问题描述:

设计一个程序,输入一个整数,判断该数的奇偶性.

Dim i As Integer
i = Val(InputBox("请输入整数"))
If i 0 Then
If i Mod 2 = 0 Then
MsgBox "你输入的是偶数"
Else
MsgBox "你输入的是奇数"
End If
End If