IBM Lotus Symphony


Оператор Randomize [встроенный]

Инициализирует генератор псевдослучайных чисел.

Синтаксис:

Randomize [число]

Параметры:

Число: произвольное целое число, инициализирующее генератор псевдослучайных чисел. Если Число не указано, то генератор использует текущее значение системного таймера.

Коды ошибок

5 Недопустимый вызов процедуры

Пример:

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 Диапазон от 0 до 9

iSpectral(iVar) = iSpectral(iVar) +1

Next iCount

sText = " | "

For iCount = 0 To 9

sText = sText & iSpectral(iCount) & " | "

Next iCount

MsgBox sText,0,"Спектральное распределение"

end sub


Комментарии по продукту | Дополнительная документация | Товарные знаки