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, Response
Randomize ' 初始化隨機(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
要求版本 1 請(qǐng)參閱Rnd 函數(shù) | Timer 函數(shù) 返回首頁(yè) |