- 帖子
- 227
- 主題
- 3
- 精華
- 1
- 積分
- 273
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-3-22
- 最後登錄
- 2013-1-29
|
2#
發表於 2011-6-12 08:34
| 只看該作者
- Sub rd()
- t = Timer
- Dim a(1 To 2000, 1 To 50), k&, r&, i&, j&
- For r = 1 To 2000
- For i = 1 To 50
- a(r, i) = i
- Next
- For i = 50 To 2 Step -1
- j = Int(Rnd * i) + 1
- k = a(r, j)
- a(r, j) = a(r, i)
- a(r, i) = k
- Next
- Next
- [b5].Resize(2000, 50) = a
- MsgBox Timer - t
- End Sub
複製代碼 |
|