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