IBM Lotus Symphony
|
乱数発生関数を初期化します。
Randomize [Number]
Number: 乱数発生関数を初期化するための整数値。この値を省略すると、システム時計の値を使って乱数発生関数を初期化します。
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