作者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