Question

单击窗体Form1时，用InputBox函数输入一个整数n，

1． 单击窗体Form1时，用InputBox函数输入一个整数n，若为奇数，输出“奇数”，否则，输出“偶数”。输出用MsgBox函数或语句实现，要求只有“确定”按钮，图标为信息图标。 用VB做。。。急求！！！！！！！！！！！

Answer 1

Private Sub UserForm_Click()
    Dim n As Integer
    n = Val(InputBox("输入一个整数："))
    If n Mod 2 = 1 Then
        MsgBox "奇数", vbInformation
    Else
        MsgBox "偶数", vbInformation
    End If
End Sub

Answer 2

Dim a As Integer
a = InputBox("输入一个数")
If a Mod 2 = 0 Then
MsgBox ("偶数")
Else
MsgBox ("奇数")
End If