Private Sub Command1_Click()
Dim x As Double
Randomize
Select Case x Mod 2
Case 1
Label1.Caption = x是奇数
Case 0
Label1.Caption = x是偶数
End Select
End Sub
我写的，我太笨，哪里有问题，求解答

奇数偶数，应该先是整数吧，你定义双精度不行的

而且x还没初始化，是个随机值

求具体代码，谢啦啦啦

求人帮我啊

baidu吧，不可以直接写给你的

Private Sub Command1_Click()
Dim x As integer
Randomize
x = cint(92 * rnd + 8)
Select Case x Mod 2
Case 1
Label1.Caption = x & "是奇数"
Case 0
Label1.Caption = x & "是偶数"
End Select
End Sub
自己测试下吧应该没问题

不明白为什么不直接用100*rnd，而要用92*rnd+8?

自己查下MSDN about Rnd

题目不是要求说要是8到100的随机数嘛，所以 92*rnd + 8 正好表示的是8到100的随机数啊

是我粗心，没看见是要求8-100，还以为是100以下的随机数呢，所以有此一问。