Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Инициализирует генератор случайных чисел.
Синтаксис
Рандомизация [ число ]
Необязательный аргумент number — это Variant или любое допустимое числовое выражение.
Замечания
Randomize использует число для инициализации генератора случайных чисел функции Rnd , что дает ему новое начальное значение. Если опустить число, в качестве нового начального значения используется значение, возвращаемое системным таймером.
Если оператор Randomize не используется, функция Rnd (без аргументов) использует при первом вызове число, равное начальному значению, а затем использует последнее сгенерированное число в качестве начального значения.
Примечание.
Для повтора последовательностей случайных чисел вызывайте функцию Rnd с отрицательным аргументом непосредственно перед использованием оператора Randomize с числовым аргументом. При использовании Randomize с тем же значением аргумента number предыдущая последовательность не повторяется.
Пример
В этом примере оператор Randomize используется для инициализации генератора случайных чисел. Поскольку аргумент number не указан, Randomize использует возвращаемое значение функции Timer в качестве нового начального значения.
Dim MyValue
Randomize ' Initialize random-number generator.
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.