IBM Lotus Symphony


Instrukcja Randomize [środowisko wykonawcze]

Inicjalizuje generator liczb losowych.

Składnia

Randomize [Liczba]

Parametry

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.

Kody błędów

5 Nieprawidłowe wywołanie procedury

Przykład

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


Opinia na temat produktu | Dodatkowa dokumentacja | Znaki towarowe