Randomize 語(yǔ)句

初始化隨機(jī)數(shù)生成器。

Randomize [number]

number 參數(shù)可以是任何有效的數(shù)值表達(dá)式。

說(shuō)明

Randomize 使用 number 參數(shù)初始化 Rnd 函數(shù)的隨機(jī)數(shù)生成器，賦給它新的種子值。如果省略 number，則使用系統(tǒng)計(jì)時(shí)器返回的值作為新的種子值。

如果不使用 Randomize，則第一次調(diào)用 Rnd 函數(shù)（無(wú)參數(shù)）時(shí)，它將使用相同的數(shù)字作為種子值，隨后使用最后生成的數(shù)值作為種子值。

注意 要重復(fù)隨機(jī)數(shù)的序列，請(qǐng)?jiān)谑褂脭?shù)值參數(shù)調(diào)用 Randomize 之前，立即用負(fù)值參數(shù)調(diào)用 Rnd。使用相同的 number 值的 Randomize 不能重復(fù)先前的隨機(jī)數(shù)序列。

下面例子舉例說(shuō)明如何使用 Randomize 語(yǔ)句:

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