返回列表 上一主題 發帖

[發問] 亂數50號2000組設定問題

[發問] 亂數50號2000組設定問題

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

亂數50.rar (23.91 KB)

非常感謝chin15大大ㄉ協助

TOP

  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
複製代碼

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題