標題: [發問] 亂數50號2000組設定問題 [打印本頁]

---

作者: jeff5424    時間: 2011-6-12 01:11     標題: 亂數50號2000組設定問題

請問大大:
             1組分AB兩號(1~50)使用亂數
         A或B為一個單位
         我想將得到2000組亂數組合
         每組不可重複
                 謝謝

---

作者: chin15    時間: 2011-6-12 08:34

1. Sub rd()
   
2.     t = Timer
   
3.     Dim a(1 To 2000, 1 To 50), k&, r&, i&, j&
   
4.     For r = 1 To 2000
   
5.         For i = 1 To 50
   
6.             a(r, i) = i
   
7.         Next
   
8. 
   
9.         For i = 50 To 2 Step -1
   
10.             j = Int(Rnd * i) + 1
    
11.             k = a(r, j)
    
12.             a(r, j) = a(r, i)
    
13.             a(r, i) = k
    
14.         Next
    
15.     Next
    
16.     [b5].Resize(2000, 50) = a
    
17.     MsgBox Timer - t
    
18. End Sub

複製代碼

---

作者: jeff5424    時間: 2011-6-12 14:39

非常感謝chin15大大ㄉ協助

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)