43528782 发表于 2011-7-11 16:57:18

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

Sub rand1()
                a = Rnd()
                MsgBoxa
End Sub


Sub rand2()
Do   Until   Response   =   vbNo
                a = Rnd()
                MsgBoxa
      Response   =   MsgBox   ( "Roll   again?   ",   vbYesNo)
Loop
End Sub
我这2个获取随机数的sub里面,为什么rand1没有加Randomize这个初始化随机种子的过程不过运行几次出来的结果都是一样的,
但是rand2没有加,运行出来的结果每次都不一样呢?
Randomize这个函数初始化的随机种子到底是个啥玩意呢?
不用它是不是还是可以初始化随机种子呢?

43528782 发表于 2011-7-11 17:03:05

搞不懂里面的机制...

43528782 发表于 2011-7-11 17:24:29

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

重点是这个问题...

fk5203 发表于 2011-7-12 16:06:52

本帖最后由 fk5203 于 2011-7-12 16:08 编辑

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

17800455 发表于 2011-7-12 16:53:40

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

43528782 发表于 2011-7-18 14:29:04

谢谢,这个问题我想通了.问了一下开发人员.
页: [1]
查看完整版本: 关于随机数的问题,请指教~