Връща стойност от тип 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)