您所在位置：主题：急盼高手解答随机数问题
fredhunter
[专家分：0] 发布于 2008-12-22 10:19:00
题目是：输入一个数N 被8整除后得A（A<=1时取1；大于等于1时取整数部分），则在1到A之间取随机数B；同时当A=1时在1-8之间取随机数，A=2时在1-8和9-16范围内同时取两个随机数，依次类推。
Private Sub Command1_Click()
Dim x As Single, y As Single, z As Single
x = Val(Text1.Text)
If Text1.Text <> "" Then
y = x \ 8
If y <= 1 Then z = 1 Else z = Int(y)
Text2.Text = z
Text1.SetFocus
Randomize
a = Int(z * Rnd + 1)
b = Int(Rnd * (8 * z) + (1 + (z - 1) * 8))
为什么我的text2=2的时候 b取的随机数是9-24啊？
在A> 1时同时在多个范围内取随机数的代码怎么实现？哪位高手帮帮小弟。
Private Sub Command1_Click()
Dim x As Single, y As Single, z As Single
x = Val(Text1.Text)
If Text1.Text <> "" Then
y = x \ 8
If y <= 1 Then z = 1 Else z = Int(y)
Text2.Text = z
Text1.SetFocus
Randomize
a = Int(z * Rnd + 1)
b = Int(Rnd * (8 * z) + (1 + (z - 1) * 8))
为什么我的text2=2的时候 b取的随机数是9-24啊？
在A> 1时同时在多个范围内取随机数的代码怎么实现？哪位高手帮帮小弟。