Vrne podatkovni tip Število z enojno natančnostjo, ki vsebuje naključno število.
Sintaksa
Rnd[(število)]
Izbirni argument številaje enojni ali kateri koli veljaven številski izraz.
Vrednosti vrnitve
| Če je število | Rnd ustvari |
|---|---|
| manjše kot nič | Vsakič isto število, z uporabo številke kot semena. |
| 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.
Preden pokličete Rnd, uporabite izjavo Randomize brez argumenta za inicializacijo generatorja naključnih števil s semenom, 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 številkami v stolpcu NaključneŠtevilke. |
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)