IBM Lotus Symphony


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 Range from 0 to 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


产品反馈 | 其他文档 | 商标