关于随机数的问题,请指教~

43528782

1. Sub rand1()
   
2.                 a = Rnd()
   
3.                 MsgBox  a
   
4. End Sub
   
5. 
   
6. 
   
7. Sub rand2()
   
8. Do   Until   Response   =   vbNo
   
9.                 a = Rnd()
   
10.                 MsgBox  a
    
11.       Response   =   MsgBox   ( "Roll   again?   ",   vbYesNo)
    
12. Loop
    
13. End Sub
    

复制代码

我这2个获取随机数的sub里面,为什么rand1没有加Randomize这个初始化随机种子的过程不过运行几次出来的结果都是一样的,
但是rand2没有加,运行出来的结果每次都不一样呢?
Randomize这个函数初始化的随机种子到底是个啥玩意呢?
不用它是不是还是可以初始化随机种子呢?

43528782

搞不懂里面的机制...

43528782

不用它是不是还是可以初始化随机种子呢?

重点是这个问题...

fk5203

加个初始化随机数生成器
Randomize
调用之前 要初始化

17800455

randomize随机种子。
没有这个就会一直输出一个值。

43528782

谢谢,这个问题我想通了.问了一下开发人员.