Randomize 语句初始化随机数生成器。 语法 Randomize [number] 可选的 number 参数是 Variant 或任何有效的数值表达式。 说明 Randomize 用 number 将 Rnd 函数的随机数生成器初始化,该随机数生成器给 number 一个新的种子值。如果省略 number,则用系统计时器返回的值作为新的种子值。 如果没有使用 Randomize,则(无参数的)Rnd 函数使用第一次调用 Rnd 函数的种子值。 注意 若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。 Randomize 语句示例本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数, 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。 Dim MyValue Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。
================================ 上面是帮助里的东东 Timer 函数 代表从系统里午夜开始到现在经过的秒数 Randomize就是给Rnd一个初始化种子值。 Randomize没有参数,就是默认把系统的秒数做为Rnd一个初始化种子值,因为系统的秒一直在变所以随机性就变大了 Randomize有固定参数,就把那个固定参数做为Rnd初始化种子值,每次这个代码运行的第1个随机值都是一样
[此贴子已经被作者于2010-11-29 9:55:33编辑过] |