VBScript のステートメント、Randomize ステートメント

まんま

Dim MyValue, Response

Randomize   ' 乱数ジェネレータを初期化します。

Do Until Response = vbNo
   MyValue = Int((6 * Rnd) + 1)   ' 1 〜 6 のランダムな値を生成します。
   MsgBox MyValue
   Response = MsgBox ("繰り返しますか ? ", vbYesNo)
Loop

同じ数値を指定しても同じ値は返ってこない
(再度起動したときには同じ値)

Randomize 1
MsgBox Rnd

Randomize 1
MsgBox Rnd

Rnd -1のように負数であらかじめ呼び出すと同じ値がだせるらしい。説明文が分かりにくいけど

Rnd -1
Randomize 10
MsgBox Rnd

Rnd -1
Randomize 10
MsgBox Rnd