 乱数を生成する
ASP ( VBScript ) から乱数を発生させる場合には Rnd 関数を使用します。 Rnd 関数は 0 以上 1 未満のランダムな値を返します。
このRnd 関数はシステム タイマーから取得するシード値と呼ばれる値によって乱数系列を決定しますので、乱数ジェネレータを初期化するため、Rnd 関数を呼び出す前に Randomize ステートメントを実行します。
Dim Cnt
Dim HIGHT_VALUE
Dim LOW_VALUE
HIGHT_VALUE = 10
LOW_VALUE = 1
Randomize
For Cnt = 1 To 100
Response.Write(Int((HIGHT_VALUE - LOW_VALUE + 1) * Rnd + LOW_VALUE) & "<br>")
Next
上記では HIGHT_VALUEに乱数として発生させる最大の値を、LOW_VALUEに最小の値を設定しいます。この値を変えることで任意の範囲の乱数を取得する事が出来ます。
|
