|
哈哈,刚刚又试了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函数对他进行初始化的话,产生的随机序列是一样的。
欢迎大家去验证,哈哈 |
|