生成多个随机数的问题(立即揭贴)

[jacky125]

Int((1000 - 1 + 1) * Rnd + 1)
--------------------------------------
这个只能在(1-1000)中生成一个随机数,我想一次生成10个,代码应该怎么写????

[脆皮大雪糕]

for i = 1 to 10
debug.print Int((1000 - 1 + 1) * Rnd + 1)
next

[vbman2003]

如果要求产生的10个随机数字是不重复的，有许多种算法。论坛有许多讨论。比如 跳蚤算法、利用集合，字符串比较等等。下面这个是用数组实现的方法：
Dim n(1 To 1000), i, j, q

Erase n
j = 0
Randomize Timer
While j < 10
q = Int(Rnd(1) * 999 + 1)
If n(q) = 0 Then
Print q
n(q) = 1
j = j + 1
End If
Wend

[jacky125]

我的vb程序是写在Excel的宏中的,功能就是随机的选出10行选中(Rows().Select)
怎样才能同时选中10行呢????

[jacky125]

vbman2003(家人)
-------------------------------------------------
Print q 出错,提示"方法无效"

[jacky125]

我想得到这10个随机数,并付值给m1,m2,m3.....
代码应该怎么写呢???

[ZOU_SEAFARER]

dim m(1 to 10) as double
for i = 1 to 10
m(i)=Int((1000 - 1 + 1) * Rnd + 1)
next

[vbman2003]

Excel中的？那么试试：
Sub SelectRow()

Dim n(1 To 1000), i, j, q
Dim sRow As String

Erase n
j = 0
Randomize Timer
While j < 10
q = Int(Rnd(1) * 29 + 1)
If n(q) = 0 Then
sRow = sRow & "," & q & ":" & q
n(q) = 1
j = j + 1
End If
Wend
sRow = Mid(sRow, 2)
'Debug.Print sRow
Range(sRow).Select

End Sub

[vbman2003]

上面的代码在EXCEL中可以通过(我试过了)，如果你有1000行，只要将q = Int(Rnd(1) * 29 + 1)改为q = Int(Rnd(1) * 999 + 1)，这样就可以在1000行中任意选中10行了。不知道是不是你要的