vb中，要求单击命令按钮，产生一个1到100的整数，并判断该数的奇偶性，判断结果用msgbox函数
vb中，要求单击命令按钮，产生一个1到100的整数，并判断该数的奇偶性，判断结果用msgbox函数给出的代码是啥...
vb中，要求单击命令按钮，产生一个1到100的整数，并判断该数的奇偶性，判断结果用msgbox函数给出的代码是啥
展开
展开全部
Sub 按钮1_Click()
Dim a As Integer
1: a = Rnd() * 100
If a = 0 Then GoTo 1
If a Mod 2 = 0 Then
MsgBox "我是随机数" & a & ",我是偶数"
Else: MsgBox "我是随机数" & a & ",我是奇数"
End If
End Sub
Dim a As Integer
1: a = Rnd() * 100
If a = 0 Then GoTo 1
If a Mod 2 = 0 Then
MsgBox "我是随机数" & a & ",我是偶数"
Else: MsgBox "我是随机数" & a & ",我是奇数"
End If
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
