设计一个程序,输入一个整数,判断该数的奇偶性.
问题描述:
设计一个程序,输入一个整数,判断该数的奇偶性.
答
Dim i As Integer
i = Val(InputBox("请输入整数"))
If i 0 Then
If i Mod 2 = 0 Then
MsgBox "你输入的是偶数"
Else
MsgBox "你输入的是奇数"
End If
End If