作者Sdany (隨風飛逝)
看板Visual_Basic
標題Re: [VB6 ] 如何保留下隨機選出的每組數據
時間Fri Jul 31 13:02:57 2009
※ 引述《md965088 (屁股狂冒煙)》之銘言：
: For intCounter = 1 To 100
: Randomize
: number = Int(Rnd * (1000) + 1)
: Next
: ---------------------------------------------
: 以上的程式碼是我想從1到1000之間 隨機產生數字一百次 所以會有一百組數據
: 我如何讓電腦在整個結束for next結束時 仍然能記憶這一百組數據
: 因為我要在後面的程式碼用到這一百組數據 但發現我每次得到的number
: 只有一組(就是跑到第一百次產生的最後一組數據)
: 不知道版上的大大們能否指點迷津 謝謝QQ
'宣告陣列 0-99
Dim Number(99) As Integer
Dim intCounter As Integer
'設定陣列亂數
For intCounter = 1 To 100
'放在迴圈外也可以
Randomize Timer
Number(intCounter - 1) = Int(Rnd * (1000) + 1)
Next
'取得陣列亂數值
For intCounter = 1 To 100
Debug.Print intCounter, Number(intCounter - 1)
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.116.9.38
1F：推 meto000:Randomize Timer放在迴圈外比較好，一方面效率較高，二方 08/01 01:08
2F：→ meto000:面現在電腦速度太快了，跑那一百次搞不好timer都沒變動 08/01 01:09
3F：→ meto000:那後面取得的亂數就通通一樣了... 08/01 01:10