請問各位高手
如何指定數值作亂數運算且不重複
如   A(1) = 1
A(2) = 12
    A(3) = 3
    A(4) = 14
    A(5) = 5
    A(6) = 16
    A(7) = 7
    A(8) = 18
重指定數值中取出
每次取 3 個為一組
1,12,3
1,12,14
1,12,5
每組取不同
參考的是每此取出不同
但若是多組亂數???
For I = 1 To 8
    X = Int(Rnd * 8) + 1
    Y = Int(Rnd * 8) + 1
    Z = A(X)
    A(X) = A(Y)
    A(Y) = Z
  Next

不之各位前輩是否有較好的方法
謝謝
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()