Vrátí hodnotu typu Single obsahující náhodné číslo.
Syntaxe
Rnd[(číslo)]
Volitelný argument čísloje jeden nebo libovolný platný číselný výraz.
Návratové hodnoty
| Pokud je číslo | Rnd generuje |
|---|---|
| Menší než nula | Pokaždé stejné číslo, které se používá jako počáteční číslo . |
| Větší než nula | Další náhodné číslo v pořadí. |
| Rovná se nule | Poslední vygenerované číslo. |
| Nezadávaná | Další náhodné číslo v pořadí. |
Poznámky
Funkce Rnd vrátí hodnotu menší než 1, ale větší než nebo rovna nule.
Hodnota čísla určuje, jak Rnd vygeneruje náhodné číslo:
Pro každé počáteční počáteční číslo se vygeneruje stejná číselná řada, protože každé následné volání funkce Rnd používá předchozí číslo jako počáteční hodnotu pro další číslo v posloupnosti.
Před voláním Rnd použijte příkaz Randomize bez argumentu k inicializaci generátoru náhodných čísel se seed založeným na systémovém časovači.
Pokud chcete v dané oblasti vytvořit náhodná celá čísla, použijte tento vzorec:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Tady je horní příchozí číslo nejvyšší číslo v oblasti a dolní číslo je nejnižší číslo v oblasti.
Poznámka
Chcete-li opakovat posloupnosti náhodných čísel, zavolejte Rnd se záporným argumentem bezprostředně před použitím funkce Randomize s číselným argumentem. Použití funkce Randomize se stejnou hodnotou pro číslo neopakuje předchozí sekvenci.
Příklad dotazu
| Výraz | Výsledky: |
|---|---|
| SELECT ProductSales.ProductID, Rnd([Discount]) AS RandomNumbers FROM ProductSales; | Vrátí ID produktu spolu s náhodnými čísly ve sloupci RandomNumbers. |
Příklad jazyka VBA
Poznámka
Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci Rnd k vygenerování náhodné celočíselné hodnoty od 1 do 6.
Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)