IBM Lotus Symphony
|
Initialiserer generatoren til tilfældige tal.
Randomize [Tal]
Tal: En heltalsværdi, der initialiserer generatoren til tilfældige tal. Hvis Tal udelades, bruger generatoren systemtimerens aktuelle værdi.
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