什么时候Randomize必须用

洛天依

一碰到随机问题，就发现有的问题里没用 Randomize ，有的用了。

抱着标题，看到很多贴都说，如果用rnd之前不用 Randomize  ，到时会得到重复的值， ... 接下来，陷入迷糊 ... 我应该听不懂，也是站在应付实际问题的角度，就不问原理了。只是想通过示例，看到“所说的重复”，具体出现在“什么时候”，看到“为什么非用不可”，即不见棺材不流泪。

这样，下次再碰上随机问题，就知道该不该用了。
求高手给个示例说明，谢谢！

Zamyi

初始化随机数生成器，如下面，每次打开都是同样的值：

1. Private Sub Workbook_Open()
   
2. [a1] = Int(Rnd * 100)
   
3. End Sub

复制代码

洛天依

Zamyi 发表于 2012-11-8 17:23
初始化随机数生成器，如下面，每次打开都是同样的值：

谢谢zamyi!

的确每次打开都是重复的。
重复是看到了


衡量一个随机问题，该不该用Randomize的标准是什么呢？

香川群子

看帮助文件：【Randomize 语句】
      
初始化随机数生成器。

语法：Randomize [number]
可选的 number 参数是 Variant 或任何有效的数值表达式。

说明
Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。


如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值。

注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。
使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。


…………
呵呵，相当复杂吧。

香川群子

在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，
该生成器具有根据系统计时器得到的种子。



…………
种子
为初始值，用来生成伪随机数字。例如， Randomize 语句创建一种子值供 Rnd 函数使用，以接着创建唯一伪随机数列。

香川群子

再来看Rnd的说明文件：

Rnd 函数
      

返回一个包含随机数值的 Single。

语法

Rnd[(number)]

可选的 number 参数是 Single 或任何有效的数值表达式。

返回值

参数 number 的值的范围，以及 Rnd 生成结果：
【小于 0】 每次都使用 number 作为随机数种子得到的相同结果。
【等于 0】 最近生成的数。
【大于 0】 序列中的下一个随机数。
【省略】时和【大于 0】相同   序列中的下一个随机数。

香川群子

说明

Rnd 函数返回小于 1 但大于或等于 0 的值。

而 number 的值决定了 Rnd 生成随机数的方式。

对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。

香川群子

补充说明：

=Rnd 实际上是把【 1 】平均分成 2^24=16777216 份，
( 16777216也可以理解为 2003工作表中 65536行*256列=sheet1中所有单元格的数量=Cells.Count)
因此每一份之间的差值=1/16777216=0.000000059604644775390625（除得尽哦！）

这样产生一个数值范围 [ 0 - 1 )
【>=0 且 <1】(或者较为精确地说是<=1-1/16777216即 [ 0 - 0.999999940395355224609375]
总数=16777216个、序列步长=1/16777216=0.000000059604644775390625 的一个序列。


更为重要的是，通过某种【算法】，已经把这16777216个数产生了分布较为均匀的乱序序列。

…………
种子是一个单精度single数值，取数范围=2^31=2147483648个
用这个种子，通过一种【算法】，就能得到一个在16777216个数中的特定位置。

但是，由于【算法】是固定的，因此这16777216个数的乱序实际上也是一个【固定的乱序】。
所以，=Rnd的结果只能被称之为【伪随机数】

香川群子

好了，现在可以开始解释楼主的疑问了：

VBA中调用=Rnd函数时，默认取下一个种子进行【特定随机算法】，
并根据算法结果确定的序列位置，从16777216个[ 0 - 0.999999940395355]的小数中返回一个值。


…………
这样，如果不使用Randomize进行随机种子初始化时，VBA将每次使用同一种子开始进行计算，
因此返回完全相同的【伪随机数序列】

香川群子

如果使用了Randomize语句时，默认将以系统计时器返回的值作为新的种子值，
因此种子不同，算法将返回不同的【伪随机数序列】


这个就是是否使用Randomize的差别。