IBM Lotus Symphony


Stavek Randomize [izvajalno okolje]

Zažene generator naključnih števil.

Skladnja:

Randomize [Number]

Parametri:

Number: Katerakoli celoštevilska vrednost, ki zažene generator naključnih števil. Če je parameter Number izpuščen, generator uporabi trenutno vrednost sistemske ure.

Kode napak

5 Neveljavni klic procedure

Primer:

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


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke