Re: [VB6 ] 如何保留下隨機選出的每組數據
※ 引述《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
推
08/01 01:08, , 1F
08/01 01:08, 1F
→
08/01 01:09, , 2F
08/01 01:09, 2F
→
08/01 01:10, , 3F
08/01 01:10, 3F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：