Vrne podatkovni tip Število z enojno natančnostjo, ki vsebuje naključno število.
Sintaksa
Rnd[(število)]
Izbirni številskiargument je Enojni ali kateri koli veljaven številski izraz.
Vrednosti vrnitve
| Če je število | Rnd ustvari |
|---|---|
| manjše kot nič | Vedno isto število, pri tem pa kot seme uporabi število. |
| večje od nič | Naslednje naključno število v zaporedju. |
| je enako nič | Zadnje ustvarjeno število. |
| Ni navedeno | Naslednje naključno število v zaporedju. |
Opombe
Funkcija Rnd vrne vrednost, manjšo od 1, vendar večjo ali enako nič.
Vrednost števila določa , kako Rnd ustvari naključno število:
Za vse dane začetne temeljne vrednosti se ustvari isto številsko zaporedje, zato ker vsak naslednji priklic funkcije Rnd uporabi prejšnjo številko za temeljno vrednost v naslednjem številskem zaporedju.
Pred klicanjem funkcije Rnd uporabite izjavo Randomize brez argumenta, da inicializirate generator naključnih števil s seme, ki temelji na sistemskem časovniku.
Za ustvarjanje naključnih celih števil v določenem obsegu, uporabite to formulo:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Tukaj je upperbound najvišje število v obsegu celic in lowerbound najmanjše število v obsegu.
Opomba
Za ponovitev zaporedij naključnih števil, prikličite funkcijo Rnd z negativnim argumentom neposredno pred uporabo izjave Randomize s številskim argumentom. Z uporabo izjave Randomize z enako vrednostjo za število se ne bo ponovilo prejšnje zaporedje.
Primer poizvedbe
| Izraz | Rezultati |
|---|---|
| SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; | Vrne ID izdelka skupaj z naključnimi števili v stolpcu RandomNumbers. |
Primer VBA
Opomba
V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru se funkcija Rnd uporablja za ustvarjanje naključne vrednosti celih števil od 1 do 6.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)