Инициализирует датчик случайных чисел.

Randomize [число]

Параметры
число
Необязательный аргумент число представляет значение типа Variant или любое допустимое числовое выражение.

Замечания
Инструкция Randomize использует аргумент число для инициализации датчика случайных чисел функции Rnd, передавая ему новое опорное число. Если аргумент число опущен, в качестве нового опорного числа используется значение, возвращаемое системным таймером.
Если инструкция Randomize не используется, функция Rnd (без аргументов) использует в качестве опорного числа случайное число, возвращенное при предыдущем вызове.
Для повторения последовательности случайных чисел следует вызвать функцию Rnd с отрицательным аргументом сразу после использования инструкции Randomize с числовым аргументом. Повторное использование инструкции Randomize с тем же числовым аргументом не приведет к повторению предыдущей последовательности случайных чисел.

Пример
В данном примере инструкция Randomize используется для инициализации генератора случайных чисел. Поскольку числовой аргумент инструкции Randomize опущен, в качестве нового опорного числа используется значение, возвращаемое функцией Timer.

Dim MyValue
Randomize				' Инициализирует генератор случайных чисел.
MyValue = Int((6 * Rnd) + 1)	' Возвращает случайное число от 1 до 6.