分类

已解决用VB编写一个判断奇偶性?

提问者：603789361 | 浏览次 | 提问时间：2017-03-10 | 回答数量：3

用VB编写一个判断奇偶性? if a mod 2=0 then a是偶数else a是奇数

已有3条答案

2过

回答数：157 | 被采纳数：145

先画一个command
然后编写如下代码:
Private Sub Command1_Click()
Dim a%
a = InputBox("请输入你要判断的数字")
If a Mod 2 = 0 Then
Print "你输入的数字" & a & "是偶数."
Else
Print "你输入的数字" & a & "是奇数."
End If
End Sub

2017-03-10 09:55:34

楚楚控

回答数：78 | 被采纳数：80

谢谢

2017-03-10 14:07:17

低调使人落后

回答数：110 | 被采纳数：71

就是点击窗体的时候,会弹出一个提示框,然后再里面输入数字,然后窗中显示这个输入的数字是奇数还是偶数

2017-03-10 16:30:48