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