Tagastab juhuslikku arvu sisaldava lihttäpsusega arvu.
Süntaks
Rnd[(arv)]
Valikuline arvuargumenton üksikavaldis või mis tahes kehtiv arvuline avaldis.
Tagastusväärtused
| Kui number on | Rnd genereeritud tulem |
|---|---|
| Väiksem kui null | Sama arv iga kord, kasutades seemnega sama arvu . |
| Suurem kui null | Järjekorras järgmine juhuslik arv. |
| Võrdne nulliga | Viimati genereeritud arv. |
| Pole sisestatud | Järjekorras järgmine juhuslik arv. |
Kommentaarid
Funktsioon Rnd tagastab väärtuse, mis on väiksem kui 1, kuid suurem kui null või võrdne nulliga.
Arvu väärtus määrab, kuidas funktsioon Rnd genereerib juhusliku arvu:
Kõigi sisestatud algsete lähteväärtuste korral genereeritakse sama arvujärjestus, kuna funktsiooni Rnd iga järgmise kutse korral kasutatakse eelmist arvu järjekorras järgmise arvu lähteväärtusena.
Enne funktsiooni Rnd kutsumist kasutage lauset Randomize ilma argumendita, et lähtestada juhusliku arvu generaator süsteemitaimeril põhineva seemnega.
Määratud vahemikus juhuslike täisarvude genereerimiseks kasutage järgmist valemit:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Siin on argument upperbound vahemiku suurim arv ja argument lowerbound vahemiku väikseim arv.
Märkus.
Juhuslike arvude järjestuse kordamiseks kutsuge negatiivse argumendiga funktsioon Rnd vahetult enne arvargumendiga lause Randomize kasutamist. Lause Randomize kasutamine argumendi number sama väärtusega ei korda eelmist järjestust.
Päringu näide
| Avaldis | Tulemid |
|---|---|
| SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; | Tagastab toote ID koos juhuslike arvudega veerus Juhuslikud arvud. |
VBA näide
Märkus.
Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.
Selles näites kasutatakse funktsiooni Rnd vahemikku 1–6 jääva juhusliku täisarvu genereerimiseks.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)