小问题，小白求解

小异yi 发布于 2013-04-20 20:21， 727 次点击

只有本站会员才能查看附件，请登录

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
我写的，我太笨，哪里有问题，求解答

9 回复

azzbcc2013-04-20 20:27

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

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

小异yi2013-04-20 20:30

回复 2楼 azzbcc

求具体代码，谢啦啦啦

小异yi2013-04-20 20:37

求人帮我啊

azzbcc2013-04-20 21:04

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

seafish0112013-04-21 04:48

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
自己测试下吧应该没问题

zhengang10262013-04-21 08:50

以下是引用seafish011在2013-4-21 04:48:37的发言：

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?

seafish0112013-04-21 19:18

回复 7楼 zhengang1026

自己查下MSDN about Rnd

勿谖2013-04-25 17:39

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

#10

zhengang10262013-04-25 19:11

以下是引用勿谖在2013-4-25 17:39:01的发言：

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

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