Returnează o valoare Simplă precizie care conține un număr aleator.
Sintaxă
Rnd[(număr)]
Numărul opționalargument este o expresie numerică unică sau validă.
Valori returnate
|
Dacă numărul este |
Rnd generează |
|
Mai mic decât zero |
Același număr de fiecare dată, utilizând numărul ca valoare inițială. |
|
Mai mare decât zero |
Următorul număr aleator din secvență. |
|
Egal cu zero |
Numărul cel mai recent generat. |
|
Nu s-a furnizat |
Următorul număr aleator din secvență. |
Observații
Funcția Rnd returnează o valoare mai mică decât 1, dar mai mare sau egală cu zero.
Valoarea numărului determină modul în care Rnd generează un număr aleator:
Pentru orice semințe inițiale date, este generată aceeași secvență de numere, deoarece fiecare apel succesiv către funcția Rnd utilizează numărul anterior ca semințe pentru următorul număr din secvență.
Înainte de a apela Rnd, utilizați instrucțiunea Randomize fără un argument pentru a inițializa generatorul de numere aleatoare cu o semințe pe baza cronometrului de sistem.
Pentru a produce numere întregi aleatoare într-o zonă dată, utilizați această formulă:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Aici, limita superioară este cel mai mare număr din zonă, iar cel mai mic număr din zonă este cel mai mic număr.
Notă: Pentru a repeta secvențe de numere aleatoare, apelați Rnd cu un argument negativ imediat înainte de a utiliza Randomize cu un argument numeric. Utilizarea Randomize cu aceeași valoare pentru număr nu repetă secvența anterioară.
Exemplu de interogare
|
Expresie |
Rezultatele |
|
SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; |
Returnează ID-ul produsului împreună cu numere aleatoare în coloana Numere Aleatoare. |
Exemplu VBA
Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția Rnd pentru a genera o valoare întreagă aleatoare de la 1 la 6.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)
