初始化隨機數生成器。
語法
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 之間的隨機數值。
初始化隨機數生成器。
語法
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 之間的隨機數值。