[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 的是偶数

最新问答

磁铁的N极与S极是由什么决定的？

剑网3指尖江湖陈月怎么样陈月技能属性详解

奔跑吧兄弟第三季20151107鹿晗爆发想撕粉队音乐

你在未来职业发展中将用到专业技能，自我管理技能，可迁移技能都有哪些？

东莞市幸尚电子科技有限公司怎么样？

在数列{an}中，a1=1，an+1=an+2n（1）求数列{an}的通项公式；（2）设bn=n（1+an），求数列{bn}的前n项和S

求暮光同城百度云资源

楼盘销售中说的SP是什么意思

我得肺癌的几率有多大

请问有谁知道贵州茅台镇天地福酒的大慨价格吗