Pateikia reikšmę Viengubas, kurioje yra atsitiktinis skaičius.
Sintaksė
Rnd[(skaičius)]
Pasirenkamas skaičius ,argumentas yra Viengubas arba bet kuris galiojantis skaitinis reiškinys.
Pateikti reikšmes
Jei skaičius yra |
"Rnd " generuoja |
Mažiau nei nulis |
Tą patį skaičių kiekvieną kartą, naudojant skaičių kaip pirminė reikšmė. |
Didesnis už nulį |
Kitas atsitiktinis skaičius sekoje. |
Lygu nuliui |
Naujausias sugeneruotas numeris. |
Nepateikta |
Kitas atsitiktinis skaičius sekoje. |
Pastabos
Funkcija Rnd grąžina reikšmę, mažesnę už 1, bet didesnę už nulį arba jai lygią.
Skaičiaus reikšmė nustato, kaip Rnd generuoja atsitiktinį skaičių:
Bet kokiai pradinei sėklai generuojama ta pati skaičių seka, nes kiekvienas nuoseklus iškvietimas funkcijoje Rnd naudoja ankstesnį numerį kaip kito sekos numerio sėjos sėjos žymą.
Prieš iškviesdami Rndnaudokite sakinį Randomize be argumento, kad inicijuotumėte atsitiktinių skaičių generatorių su sėjama sėja pagal sistemos laikmatį.
Norėdami gauti atsitiktinius sveikuosius nurodyto diapazono skaičius, naudokite šią formulę:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Čia viršutinis skaičius yra didžiausias diapazono skaičius, o apatinės – mažiausias diapazono skaičius.
Pastaba: Norėdami pakartoti atsitiktinių skaičių sekas, iškvieskite Rnd su neigiamu argumentu prieš pat naudodami Atsitiktinė su skaitinio argumento parinktimis. Naudojant atsitiktinį skirstį su tokia pačia skaičiaus reikšme, ankstesnė seka nesikartoja.
Užklausos pavyzdys
Reiškinys |
Rezultatai |
SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; |
Grąžina produkto ID kartu su atsitiktiniais skaičiais stulpelyje RandomNumbers. |
VBA pavyzdys
Pastaba: Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.
Šiame pavyzdyje naudojama funkcija Rnd , kad būtų generuojama atsitiktinė sveikoji reikšmė nuo 1 iki 6.
Dim MyValue
' Generate random value between 1 and 6. MyValue = Int((6 * Rnd) + 1)