IBM Lotus Symphony


Randomize-setningen [kjøretid]

Starter generatoren for tilfeldige tall.

Syntaks:

Randomize [tall]

Parametere:

Tall: En heltallsverdi som starter generatoren for tilfeldige tall. Hvis Tall utelates, bruker generatoren gjeldende verdi i systemtidtakeren.

Feilkoder

5 Ugyldig prosedyrekall

Eksempel:

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 Område fra 0 til 9

iSpectral(iVar) = iSpectral(iVar) +1

Next iCount

sText = " | "

For iCount = 0 To 9

sText = sText & iSpectral(iCount) & " | "

Next iCount

MsgBox sText,0,"Spektral distribusjon"

end sub


Tilbakemelding om produktet | Annen dokumentasjon | Varemerker