Sub test()
On Error GoTo 10
n = InputBox("输入一个整数")
MsgBox IIf(n Mod 2 = 0, "你输入的是个偶数", "你输入的是个奇数"): Exit Sub
10:MsgBox "输入错误!"
End Sub