Board logo

標題: [發問] 亂數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.         For i = 50 To 2 Step -1
  9.             j = Int(Rnd * i) + 1
  10.             k = a(r, j)
  11.             a(r, j) = a(r, i)
  12.             a(r, i) = k
  13.         Next
  14.     Next
  15.     [b5].Resize(2000, 50) = a
  16.     MsgBox Timer - t
  17. End Sub
複製代碼

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

非常感謝chin15大大ㄉ協助




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