標題:
[發問]
亂數50號2000組設定問題
[打印本頁]
作者:
jeff5424
時間:
2011-6-12 01:11
標題:
亂數50號2000組設定問題
請問大大:
1組分AB兩號(1~50)使用亂數
A或B為一個單位
我想將得到2000組亂數組合
每組不可重複
謝謝
作者:
chin15
時間:
2011-6-12 08:34
Sub rd()
t = Timer
Dim a(1 To 2000, 1 To 50), k&, r&, i&, j&
For r = 1 To 2000
For i = 1 To 50
a(r, i) = i
Next
For i = 50 To 2 Step -1
j = Int(Rnd * i) + 1
k = a(r, j)
a(r, j) = a(r, i)
a(r, i) = k
Next
Next
[b5].Resize(2000, 50) = a
MsgBox Timer - t
End Sub
複製代碼
作者:
jeff5424
時間:
2011-6-12 14:39
非常感謝chin15大大ㄉ協助
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)