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