Randomize函数的用法

Banditu

Rnd用来生成随机数，Randomize用来初始化Rnd函数的随机数生成器，赋给它新种子。
我用起来的时候有点晕：
rnd [(number)] number 为负数时使用number为种子生成随机数
是不是这样理解的：

1. 
   
2. Randomize 10
   
3. rnd
   

复制代码

Randomize 将10赋给rnd作为种子生成随机序列

Randomize的作用范围是第一次调用Rnd函数之前么？
我在一个for循环里面使用了它：

1. 
   
2. For  j=0 to 5
   
3.         Randomize 10
   
4.         msgbox rnd
   
5. Next
   

复制代码

结果是生成了如下数列:
0.5749933
0.4921337
0.2718709
0.6670802
0.4814524
0.3039149

而这样使用的话:

1. 
   
2. For  j=0 to 5
   
3.         rnd -1
   
4.         Randomize 10
   
5.         msgbox rnd
   
6. Next
   

复制代码

结果是:
重复序列0.1436949


帮助文档里面Randomize有这么一句话:
使用相同的 number 值的 Randomize 不能重复先前的随机数序列。
就是说,使用相同的Randomize [number]去初始化Rnd函数,但得不到相同的序列

但RND函数里面说的是,所以对于任何最初给定的种子都会生成相同的数列。
就上面这句话的理解,
我以为的rnd函数应该是这样的:
rnd1=funtion(number)
rnd2=funtion(rnd1)
...

上面说的有点乱了.
我的问题应该是这样的:
Randomize number
是把number作为Rnd函数的种子么?
Randomize函数在rnd函数已经被调用之后使用,如:
Dim i
i=rnd;
Randomize number '(或者不带参数)
这个时候,Randomize还起作用么?如果起作用的话,是把number赋给rnd函数作为种子去生成下一个随机数么?

yuandjing

原帖由 Banditu 于 2007-8-29 08:48 发表
哈哈，刚刚又试了3组测试，结果如下：
Dim i
Randomize 10
For i = 1 to 5
        msgbox rnd
Next
0.5749933
0.2375866
0.5295308
0.2520258
0.9770579
========================
Dim i
For i = 1 to 5 ...

够强，向你致敬，学习了

milan330330

也在学习~~

Banditu

原帖由 yuandjing 于 2007-8-29 08:45 发表
因为发现随机函数不够随机，所以这样做的目的是为了生成更随机的随机数

我只是想弄明白这2个函数的工作机理到底是什么。如果目的仅仅是生成随机序列的话，调用rnd函数前用无参数randomize去初始化就可以了,因为用的是系统时间参数，总是在变化的，哈哈

Banditu

哈哈，刚刚又试了3组测试，结果如下：
Dim i
Randomize 10
For i = 1 to 5
        msgbox rnd
Next
0.5749933
0.2375866
0.5295308
0.2520258
0.9770579
========================
Dim i
For i = 1 to 5
        Randomize 10
        msgbox rnd
Next
0.5749933
0.4921337
0.2718709
0.6670802
0.4814524
=========================
Dim i
  Randomize 10
For i = 1 to 5
        msgbox rnd
Next
Randomize 10
For i = 1 to 5
        msgbox rnd
Next
0.5749933
0.2375866
0.5295308
0.2520258
0.9770579
0.3039149
0.3014932
0.2732968
0.1517703
0.07219708

Dim i
  Randomize 10
For i = 1 to 5
        msgbox rnd
Next
For i = 1 to 5
        Randomize 10
        msgbox rnd
Next
0.5749933
0.2375866
0.5295308
0.2520258
0.9770579
0.3039149
0.5709482
0.7698483
0.4387271
0.4320909

到现在为止，我觉得基本弄清楚这2个函数的作用了：
rnd [number1]函数是随机数生成器，randomize[number2]函数可以初始化rnd函数；
rnd函数的随机序列有2个参数决定：一个是parameter1,一个是parameter2.这2个参数,在首次运行的时候都有一个默认值,但在rnd函数的运行过程中,parameter1的值是变化的,变化的规则由首次运行时number1的值决定(小于0时每次都取number1,其它情况取随机序列中的数)，parameter2的值是固定的，由randomize函数给出。如果没有给出，则使用默认值。rnd函数的结果由parameter1，2的值共同决定。所以,每次rnd函数运行时,如果没有使用randomize函数对他进行初始化的话,产生的随机序列是一样的。
欢迎大家去验证，哈哈

yuandjing

因为发现随机函数不够随机，所以这样做的目的是为了生成更随机的随机数

walker1020

关于此函数，也可以参考 http://bbs.51testing.com/viewthread.php?tid=29637

walker1020

呵呵！都研究地很深呀，学习了。谢谢各位！

hsjzfling

Randomize 的作用就是初始化随机函数，一般情况下不用带参数就好，它会自动调用SystemTimer做为参数，从而每次循环都生成不同随机数序列。其参数的值可以理解为生成随机数列的编号。
例如：运行以下代码
Randomize 10
For  j=0 to 5
        msgbox rnd
Next
结果是生成了如下数列:
0.5749933
0.4921337
0.2718709
0.6670802
0.4814524
0.3039149

然后将Randomize的参数改为5
Randomize 5
For  j=0 to 5
        msgbox rnd
Next
得到另一组完全不同的随机数列
0.2565482
0.0215489
0.9685989
0.6594774
0.2659847

但若再把Randomize的参数改回到10，那么又将输出第一次产生的随机数列
即运行：
Randomize 10
For  j=0 to 5
        msgbox rnd
Next
得到结果：
0.5749933
0.4921337
0.2718709
0.6670802
0.4814524
0.3039149

hsjzfling

QTP有自带的随机函数了，何必再去用的那么复杂呢。。。直接用RandomNumber(i,j)不是很好么。。。直接就返回了一个从i到j的随机整数。。。

Banditu

原帖由 yuandjing 于 2007-8-28 15:02 发表
好复杂，楼主研究的比较深入
我一般调用随机函数用我自己写的这个函数，比较方便
'随机函数生成
'输入值：生成值范围 i～j
'返回值：随机数
Public Function Get_RandNum(fromNum,toNum)
        If (fromNum

呵呵，我想问一下，您的函数里面的for循环体，也使用了randomize函数，这是用来干嘛呢？

bobile

hao  nan  o

yuandjing

好复杂，楼主研究的比较深入
我一般调用随机函数用我自己写的这个函数，比较方便
'随机函数生成
'输入值：生成值范围 i～j
'返回值：随机数
Public Function Get_RandNum(fromNum,toNum)
        If (fromNum<0) Or (toNum<0) Then
                MsgBox "只接受大于零的输入"
        ElseIf fromNum>toNum then
                MsgBox "起始值必须小于结束值"
        Else
                Dim RunTime
                Randomize   
                RunTime = Int((10 * Rnd) + 1)
                Dim MyValue,i
                For i = 1 To RunTime
                        Randomize  
                        MyValue = Int(((toNum - fromNum + 1) * Rnd) + (fromNum))
                Next
           Get_randNum=MyValue
          End If
End Function