IBM Lotus Symphony
|
Zažene generator naključnih števil.
Randomize [Number]
Number: Katerakoli celoštevilska vrednost, ki zažene generator naključnih števil. Če je parameter Number izpuščen, generator uporabi trenutno vrednost sistemske ure.
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