Функция Rnd
Возвращает значение Single , содержащее псевдослучайное число.
Синтаксис
Rnd [ (число) ]
Необязательный аргументNumber является одним или любым допустимым числовым выражением.
Возвращаемые значения
| Если number имеет значение | Rnd создает |
|---|---|
| Меньше нуля | Одно и то же число каждый раз, используя число в качестве начального значения. |
| Больше нуля | Следующее число в псевдослучайной последовательности. |
| Равно нулю | Самое последнее созданное число. |
| Не предоставлено | Следующее число в псевдослучайной последовательности. |
Замечания
Функция Rnd возвращает значение, меньшее 1, но большее или равное нулю.
Значение Number определяет, как Rnd создает псевдослучайное число:
Для любого данного начального значения создается одна и та же последовательность чисел, поскольку каждый последующий вызов функции Rnd использует предыдущее значение в качестве начального для следующего числа в последовательности.
Перед вызовом Rnd используйте оператор Randomize без аргумента, чтобы инициализировать генератор случайных чисел с начальным значением на основе системного таймера.
Для получения случайных целых чисел в данном диапазоне, используйте следующую формулу:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Здесь upperbound представляет собой самое большое число в диапазоне, а lowerbound — самое маленькое.
Примечание.
Для повтора последовательностей случайных чисел вызывайте функцию Rnd с отрицательным аргументом непосредственно перед использованием оператора Randomize с числовым аргументом. Использование randomize с тем же значением для number не повторяет предыдущую последовательность.
Пример
В этом примере используется функция Rnd для создания случайного целого значения от 1 до 6.
Dim MyValue As Integer
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.