IBM Lotus Symphony
|
Inicjalizuje generator liczb losowych.
Randomize [Liczba]
Liczba: Liczba całkowita, która inicjalizuje generator liczb losowych. Jeśli liczba zostanie pominięta, generator użyje bieżącej wartości z zegara systemowego.
Sub Przyklad_Randomize
Dim iZm As Integer, sTekst As String
Dim iSpektralny(10) As Integer
Randomize 2^14-1
For iLicznik = 1 To 1000
iZm = Int((10 * Rnd) ) REM Zakres od 0 do 9
iSpektralny(iZm) = iSpektralny(iZm) +1
Next iLicznik
sTekst = " | "
For iLicznik = 0 To 9
sTekst = sTekst & iSpektralny(iLicznik) & " | "
Next iLicznik
MsgBox sTekst,0,"Rozkład spektralny"
end sub