51Testing软件测试论坛

标题: 关于随机数的问题,请指教~ [打印本页]

---

作者: 43528782    时间: 2011-7-11 16:57
标题: 关于随机数的问题,请指教~

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    时间: 2011-7-11 17:03
搞不懂里面的机制...

---

作者: 43528782    时间: 2011-7-11 17:24
不用它是不是还是可以初始化随机种子呢?

重点是这个问题...

---

作者: fk5203    时间: 2011-7-12 16:06


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

---

作者: 17800455    时间: 2011-7-12 16:53
randomize随机种子。
没有这个就会一直输出一个值。

---

作者: 43528782    时间: 2011-7-18 14:29
谢谢,这个问题我想通了.问了一下开发人员.

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2