vb要求单击命令按钮，产生一个1-100之间的随机整数，并判断该数的奇偶性，判断结果用MsgBox函数给出
1个回答
展开全部
Private Sub Command1_Click()
Dim x As Integer
Randomize
x = Int(Rnd * 100) + 1
If x Mod 2 = 0 Then
MsgBox x & "是偶数"
Else
MsgBox x & "是奇数"
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
