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