什么时候Randomize必须用

香川群子 · 发表于 2013-3-9 11:32

因此，使用Randomize本身并不能让Rnd函数结果的随机性更好，

但显然可以避免每次代码运行时得到完全相同的随机数序列。

…………
根据这个结论，你可以选择是否使用Randomize这一语句。

如果你自己的代码算法结果，对于返回随机数的状态依赖性较强，则应该使用Randomize语句。
【即，算法结果完全、或很大程度上依赖于Rnd函数的返回值，或者说Rnd值将被直接加工利用时】

反之，如果代码仅仅需要提供一个随机性时，就几乎不用考虑是否Randomize会带来什么影响了。

呵呵。楼主把我的话反复看几遍吧。

香川群子 · 发表于 2013-3-9 12:11

使用带固定参数的Randomize方法，每次运行返回固定【伪随机数序列】的试验代码：

Sub GetRnd()
For t = 0 To 3
r = Rnd(-t - 1) '必须在一开始使用【负数参数】让Rnd定位于序列中某个位置
Cells(1 + t * 6, 1) = r
For j = 1 To 3
Randomize (j) '随机种子以【固定方式】【初始化】
For i = 1 To 5
Cells(i + t * 6, 1 + j) = Rnd '此时每次运行返回完全相同的【伪随机数】序列。
Next
Next
Next
End Sub

复制代码

呵呵。

洛天依 · 发表于 2013-3-10 00:52

香川群子发表于 2013-3-9 11:16
补充说明：

=Rnd 实际上是把【 1 】平均分成 2^24=16777216 份，

谢谢群子老师

“种子是一个单精度single数值，取数范围=2^31=2147483648个”

rnd的（2^24个）结果是所有（2^31个）种子的一部分吗？
不知取数范围是从多少到多少？

洛天依 · 发表于 2013-3-10 00:55

香川群子发表于 2013-3-9 11:24
如果使用了Randomize语句时，默认将以系统计时器返回的值作为新的种子值，
因此种子不同，算法将返回不同的 ...

这个系统计时器是表示系统启动时间吗？
比如启动了100秒，就以100作为种子，即randomize(100)？

洛天依 · 发表于 2013-3-10 01:04

香川群子发表于 2013-3-9 12:11
使用带固定参数的Randomize方法，每次运行返回固定【伪随机数序列】的试验代码：呵呵。

1111.rar (10.63 KB, 下载次数: 13)

Sub test()
Debug.Print Rnd(-1) '定位在C8
Debug.Print Rnd(0) '重定位在上次定位处，即C8
Debug.Print Rnd(1) '用C7作为种子，结果定位在某处(假设在C3)
Debug.Print Rnd '用C2作为种子，结果定位在某处
Debug.Print Rnd
Debug.Print Rnd
Debug.Print
'如果一直这样，每次number是正数，
'那么，每次运行test，都会得到相同的一组结果
End Sub

复制代码

这是更简单的示例。
先看图里说的，再看test()的注释，我觉得我理解了，是对的
对12楼示例，绿色是我的理解，我觉得也对，是吗

Sub GetRnd()
Sheets(1).Select '怕写到sheet2
For t = 0 To 3
      r = Rnd(-t - 1) '必须在一开始使用【负数参数】让Rnd定位于序列中某个位置
      Cells(1 + t * 6, 1) = r
      'rnd参数为负，表示定位于某处。-1，-2，-3，-4，即造成定位4处。
      '带参数的Randomize也有定位作用，造成3个不同位置。（参数分为自定义或系统时钟）
      '最内层rnd不带参数，便不再变化，形成（以Randomize (j)开始的）某种序列
      For j = 1 To 3
         Randomize (j) '随机种子以【固定方式】【初始化】
         For i = 1 To 5
            Cells(i + t * 6, 1 + j) = Rnd '此时每次运行返回完全相同的【伪随机数】序列。
         Next
      Next
Next
End Sub

洛天依 · 发表于 2013-3-10 01:31

本帖最后由洛天依于 2013-3-10 17:44 编辑

纠正:
我想表达下一个，结果表达成上一个了。
15楼的c7应该是c9,c2应该是c4

------
又比较了下，15#是希望表达的意思，不用纠正

香川群子 · 发表于 2013-3-10 10:22

洛天依发表于 2013-3-10 00:55
这个系统计时器是表示系统启动时间吗？
比如启动了100秒，就以100作为种子，即randomize(100)？

系统计时器即你电脑中的时钟系统返回的实时秒数。精确到微秒。

VBA中可以用 t=timer 来获取这个参数。是一个单精度的值。
取值范围 0秒 - 86399.999999秒。

例如：某一时刻的 timer值 = 36561.484375
换算成当前时刻为： 10:09:21.484375

香川群子 · 发表于 2013-3-10 10:25

洛天依发表于 2013-3-10 00:52
谢谢群子老师

“种子是一个单精度single数值，取数范围=2^31=2147483648个”

种子取数范围就是所有单精度值……范围远远大于 16777216

而Rnd函数是把种子通过一定的算法计算而得到 16777216种特定的序列位置。

具体算法我也不清楚。

洛天依 · 发表于 2013-3-10 12:14

谢谢群子老师讲解了这么多知识，受益不少！
像8楼知识，不是帮助里的吧，是从哪方面打听到的呀？

洛天依 · 发表于 2013-3-10 13:31

香川群子发表于 2013-3-10 10:22
系统计时器即你电脑中的时钟系统返回的实时秒数。精确到微秒。

VBA中可以用 t=timer 来获取这个参数。 ...

1）当rud(number)的number<0时
2）当randomize带参数时
3）当randomize不带参数时
4）EXCEL启动时
仅这4种情况，会初始化随机数生成器，是吗？

		自动登录	找回密码
密码			免费注册

[已解决] 什么时候Randomize必须用