Randomize 語句

初始化隨機數生成器。

Randomize [number]

number 參數可以是任何有效的數值表達式。

說明

Randomize 使用 number 參數初始化 Rnd 函數的隨機數生成器，賦給它新的種子值。如果省略 number，則使用系統計時器返回的值作為新的種子值。

如果不使用 Randomize，則第一次調用 Rnd 函數（無參數）時，它將使用相同的數字作為種子值，隨后使用最后生成的數值作為種子值。

注意 要重復隨機數的序列，請在使用數值參數調用 Randomize 之前，立即用負值參數調用 Rnd。使用相同的 number 值的 Randomize 不能重復先前的隨機數序列。

下面例子舉例說明如何使用 Randomize 語句:

Dim MyValue, ResponseRandomize '初始化隨機數生成器。Do Until Response = vbNo   MyValue = Int((6 * Rnd) + 1)' 產生 1 到 6 之間的隨機數。   MsgBox MyValue   Response = MsgBox ("Roll again? ", vbYesNo)Loop