Funkce Rnd

Vrátí hodnotu typu Single obsahující náhodné číslo.

Syntaxe

Funkce Rnd [(číslo)]

NepovinnéArgument je jedno nebo jakékoli platné Číselný výraz.

Vrácené hodnoty

Pokud je číslo

Funkce Rndgeneruje

Menší než nula

Vždy stejné číslo jako Počáteční hodnotačísla .

Větší než nula

Další náhodné číslo v posloupnosti.

Rovno nule

Poslední generované číslo.

Nezadáno

Další náhodné číslo v posloupnosti.

Poznámky:

Funkce Rnd vrátí hodnotu menší než 1, ale větší nebo rovnou nule.

Hodnota číslo určuje, jak funkce Rnd generuje náhodné číslo:

U každého prvního počátečního osiva se vytvoří stejná číselná řada, protože každé další volání funkce Rnd používá předchozí číslo jako základ pro další číslo v posloupnosti.

Před voláním funkce Rnd použijte příkaz Randomize bez argumentu k inicializaci generátoru náhodných čísel pomocí semen na základě systémového časovače.

Chcete-li v daném rozsahu vytvořit náhodná celá čísla, použijte tento vzorec:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Tady je maximální číslo v oblasti UpperBound a lowerbound je nejnižší číslo v rozsahu.

Poznámka:  Chcete-li opakovat posloupnosti náhodných čísel, volejte před použitím náhodně s číselným argumentem nezáporného argumentu. Pomocí náhodně se stejnou hodnotou argumentu číslo se předchozí posloupnost neopakuje.

Příklad dotazu

Výraz

Výsledky

Vyberte ProductSales. ProductID, Rnd ([sleva]) jako RandomNumbers z ProductSales;

Vrátí identifikační číslo 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.

V tomto příkladu se pomocí funkce Rnd vygeneruje náhodná celočíselná hodnota od 1 do 6.

Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)

Poznámka:  Tato stránka byla přeložena automaticky a může obsahovat gramatické chyby nebo nepřesnosti. Naším cílem je to, aby pro vás byl její obsah užitečný. Mohli byste nám prosím dát vědět, jestli vám informace pomohly? Pokud chcete, můžete se podívat na anglickou verzi článku.

Rozšiřte své dovednosti s Office
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders