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