IBM Lotus Symphony


Randomize ステートメント [実行時]

乱数発生関数を初期化します。

構文:

Randomize [Number]

パラメータ:

Number: 乱数発生関数を初期化するための整数値。この値を省略すると、システム時計の値を使って乱数発生関数を初期化します。

エラーコード

5 無効なプロシージャ呼び出しです

例:

Sub ExampleRandomize

Dim iVar As Integer, sText As String

Dim iSpectral(10) As Integer

Randomize 2^14-1

For iCount = 1 To 1000

iVar = Int((10 * Rnd) ) REM 0 から 9 の値を生成

iSpectral(iVar) = iSpectral(iVar) +1

Next iCount

sText = " | "

For iCount = 0 To 9

sText = sText & iSpectral(iCount) & " | "

Next iCount

MsgBox sText,0,"Spectral Distribution"

end sub


製品フィードバック | その他の資料 | 商標