Atgriež Single vērtību, kas ietver nejaušu skaitli.
Sintakse
Rnd[(skaitlis)]
Neobligātais skaitļaarguments ir viens vai jebkura derīga skaitliska izteiksme.
Atgrieztās vērtības
| Ja skaitlis ir | Rnd ģenerē |
|---|---|
| Mazāks par nulli | Katru reizi tas pats skaitlis, izmantojot skaitli kā sēklu. |
| Lielāks par nulli | Nākamais gadījumskaitlis secībā. |
| Vienāds ar nulli | Pēdējais ģenerētais skaitlis. |
| Nav piegādāts | Nākamais gadījumskaitlis secībā. |
Piezīmes
Funkcija Rnd atgriež vērtību, kas mazāka par 1, bet lielāka vai vienāda ar nulli.
Skaitļa vērtība nosaka, kā Rnd ģenerē nejaušu skaitli:
Katrai sākotnējai sēklai tiek ģenerēta viena un tā pati numuru virkne, jo katrā nākamajā funkcijas Rnd izsaukumā iepriekšējais skaitlis tiek izmantots kā nākamā secības skaitļa sēklas.
Pirms izsaukt Rnd, izmantojiet priekšrakstu Randomize bez argumenta, lai inicializētu nejaušu skaitļu ģeneratoru ar sēklu, kas balstīta uz sistēmas taimeri.
Lai noteiktā diapazonā izveidotu nejaušus veselus skaitļus, izmantojiet šo formulu:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Šeit augšējā robeža ir lielākais skaitlis diapazonā, bet apakšējā robeža ir mazākais skaitlis diapazonā.
Piezīme
Lai atkārtotu nejauši izvēlētu skaitļu secības, tieši pirms nejaušības principa lietošanas ar skaitlisku argumentu izsauciet Rnd ar negatīvu argumentu. Izmantojot randomizēšanu ar to pašu skaitļa vērtību, iepriekšējā secība netiek atkārtota.
Vaicājuma piemērs
| Izteiksme | Rezultāti |
|---|---|
| SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; | Atgriež kolonnā RandomNumbers norādīto produkta ID kopā ar nejauši izvēlētiem skaitļiem. |
VBA piemērs
Piezīme
Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā izmantota funkcija Rnd , lai ģenerētu gadījuma veselu skaitli no 1 līdz 6.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)