Zwraca wartość typu Pojedyncza precyzja, zawierającą liczbę losową.
Składnia
Rnd[(liczba)]
Opcjonalnym argumentem liczbowymjest pojedyncza precyzja lub dowolne prawidłowe wyrażenie liczbowe.
Wartości zwracane
| Jeśli argument liczba jest równy | Rnd generuje |
|---|---|
| Mniejsza niż zero | Za każdym razem ta sama liczba, używając liczby jako ziarna. |
| Większa niż zero | Następna liczba losowa w ciągu. |
| Równa zero | Ostatnio wygenerowany numer. |
| Brak w zestawie | Następna liczba losowa w ciągu. |
Uwagi
Funkcja Rnd zwraca wartość mniejszą niż 1, ale większą lub równą zero.
Wartość argumentu liczba określa sposób generowania liczby losowej przez funkcję Rnd :
Dla dowolnego początkowego inicjatora generowana jest ta sama sekwencja liczb, ponieważ każde kolejne wywołanie funkcji Rnd używa poprzedniej liczby jako ziarna następnej liczby w sekwencji.
Przed wywołaniem Rnd użyj instrukcji Randomize bez argumentu, aby zainicjować generator liczb losowych inicjatorem opartym na czasomierzu systemowym.
Aby uzyskać losowe liczby całkowite w danym zakresie, użyj następującej formuły:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Tutaj upperbound to najwyższa liczba w zakresie, a lowerbound to najniższa liczba w zakresie.
Uwaga
Aby powtarzać sekwencje liczb losowych, wywołaj funkcję Rnd z argumentem ujemnym bezpośrednio przed użyciem funkcji Randomize z argumentem numerycznym. Użycie funkcji Randomize z tą samą wartością argumentu number nie powoduje powtórzenia poprzedniej sekwencji.
Przykład zapytania
| Wyrażenie | Rezultat |
|---|---|
| SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; | Zwraca wartość Identyfikator produktu wraz z liczbami losowymi w kolumnie Numery_losowe. |
Przykład języka VBA
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji Rnd do wygenerowania losowej liczby całkowitej z zakresu od 1 do 6.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)