[VB]输入一个数？判断他是奇数还是偶数。应该怎么编写？

2025-05-18 08:28:17

推荐回答（3个）

回答1：

Private Sub Command1_Click()
Dim n
n = InputBox("请输入数字")
If Trim(n) = "" Then Exit Sub
If n Mod 2 = 0 Then
MsgBox n & "是偶数"
Else
MsgBox n & "是奇数"
End If
End Sub

回答2：

想判断是不是0，不是0的话用
if ？ mod 2=0 then
msgbox"偶数"
else
msgbox"奇数"
end if

回答3：

mod 2=0 的是偶数

最新问答

内存卡因为手机软件被破坏，怎么修复？使用时手机无法打开，照片和音乐是不是都没了？能否修复？

中铁十一局集团第三工程有限公司东宝制梁场怎么样？

北京易联互通广告有限公司怎么样？

成龙历险记里面的八大恶魔是中国传说中的吗，圣主中苏咒蓝它们