IBM Lotus Symphony


Sætningen Randomize [Runtime]

Initialiserer generatoren til tilfældige tal.

Syntaks:

Randomize [Tal]

Parametre:

Tal: En heltalsværdi, der initialiserer generatoren til tilfældige tal. Hvis Tal udelades, bruger generatoren systemtimerens aktuelle værdi.

Fejlkoder

5 Ugyldigt procedurekald

Eksempel:

Sub EksempelRandomiser

Dim iVar As Integer, iAntal As Integer, sTekst As String

Dim iSpektral(10) As Integer

Randomize 2^14-1

For iAntal = 1 To 1000

iVar = Int((10 * Rnd) ) REM Interval fra 0 til 9

iSpektral(iVar) = iSpektral(iVar) +1

Next iAntal

sTekst = " | "

For iAntal = 0 To 9

sTekst = sTekst & iSpektral(iAntal) & " | "

Next iAntal

MsgBox sTekst,0,"Spektralfordeling"

End Sub


Produktfeedback | Yderligere dokumentation | Varemærker