- 最後登錄
- 2023-9-10
- 在線時間
- 0 小時
- 註冊時間
- 2007-12-26
- 閱讀權限
- 30
- 精華
- 0
- UID
- 3123980
- 帖子
- 1183
- 積分
- 2643 點
- 潛水值
- 19125 米
| 本帖最後由 arthurliuliu 於 2010-11-21 08:23 AM 編輯
小弟寫隨機不重複時用到的程式碼
- Dim rnd_n As Short
- Dim ck(4) As Short
- For i = 1 To num
- rnd_n = Int(Rnd() * num) + 1
- Do While ck(rnd_n) = 1
- rnd_n = Int(Rnd() * num) + 1
- Loop
- Form1.N(i) = rnd_n
- ck(rnd_n) = 1
- Next
複製代碼
不知是版本不同還是我學的比較少版大的程式碼我看巄謀0.0
希望有幫助到你
... |
|