Возвращает значение типа Single, содержащее случайное число.
Синтаксис
Rnd[(число)]
Необязательный аргумент числоаргумент представляет собой значение Single или любое допустимое числовое выражение.
Возвращаемые значения
|
Значение аргумента "число" |
Результат функции Rnd |
|
Меньше нуля |
Всегда одно и то же число, аргумент число как начальное значение. |
|
Больше нуля |
Следующее случайное число в последовательности. |
|
Равно нулю |
Последнее созданное число. |
|
Не задано |
Следующее случайное число в последовательности. |
Замечания
Функция Rnd возвращает значение меньше 1 и не меньше нуля.
От аргумента число зависит, каким образом функция Rnd генерирует случайное число.
Для любого заданного начального значения генерируется одна и та же последовательность чисел, поскольку при каждом последующем вызове функции Rnd в качестве начального значения для следующего числа в последовательности используется предыдущее число.
Перед вызовом функции Rnd используйте оператор Randomize без аргументов для инициализации генератора случайных чисел с начальным значением, основанном на системном таймере.
Для генерации случайных целых чисел в заданном диапазоне используется следующая формула:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
где upperbound — наибольшее, а lowerbound — наименьшее число в диапазоне.
Примечание: Чтобы повторить последовательности случайных чисел, вызовите функцию Rnd с отрицательным аргументом непосредственно перед использованием инструкции Randomize с числовым аргументом. Если использовать инструкцию Randomize с тем же значением для аргумента число, предыдущая последовательность повторяться не будет.
Пример запроса
|
Expression |
Результаты |
|
SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; |
Возвращает идентификатор продукта вместе со случайными числами в столбце RandomNumbers. |
Пример VBA
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В данном примере функция Rnd используется для генерации случайного целого значения в диапазоне от 1 до 6.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)
