IBM Lotus Symphony
|
Initialisiert den Zufallsgenerator.
Randomize [Zahl]
Zahl: Ein beliebiger Integer-Wert, mit dem der Zufallszahlengenerator initialisiert wird. Wird diese Zahl weggelassen, verwendet der Generator den aktuellen Wert des Systemzeitgebers.
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 Bereich von 0 bis 9
iSpectral(iVar) = iSpectral(iVar) +1
Next iCount
sText = " | "
For iCount = 0 To 9
sText = sText & iSpectral(iCount) & " | "
Next iCount
MsgBox sText,0,"Spektrale Verteilung"
end sub