Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает значение 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 и обратная связь.