Lotus Symphony 1.2


Randomize 陳述式 [執行時期]

起始設定亂數產生器。

語法:

Randomize [Number]

參數:

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


其他文件 | 商標