VBS教程:VBScript 語句-Randomize 語句

NO IMAGE

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