Функция Rnd

Возвращает значение типа Single, содержащее случайное число.

Синтаксис

Rnd[(число)]

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

Возвращаемые значения

Значение аргумента "число"

Результат функции Rnd

Меньше нуля

Всегда одно и то же число, аргумент число как начальное значение.

Больше нуля

Следующее случайное число в последовательности.

Равно нулю

Последнее созданное число.

Не задано

Следующее случайное число в последовательности.


Замечания

Функция Rnd возвращает значение меньше 1 и не меньше нуля.

От аргумента число зависит, каким образом функция Rnd генерирует случайное число.

Для любого заданного начального значения генерируется одна и та же последовательность чисел, поскольку при каждом последующем вызове функции Rnd в качестве начального значения для следующего числа в последовательности используется предыдущее число.

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

Для генерации случайных целых чисел в заданном диапазоне используется следующая формула:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

где upperbound — наибольшее, а lowerbound — наименьшее число в диапазоне.

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

Пример

Примечание : В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В данном примере функция Rnd используется для генерации случайного целого значения в диапазоне от 1 до 6.

Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)
Совершенствование навыков
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×