Funkcia Rnd

Vráti hodnotu typu Single, ktorá obsahuje náhodné číslo.

Syntax

Rnd[(číslo)]

Voliteľný argument argumentčíslo je číslo s jednoduchou presnosťou alebo akýkoľvek platný numerický výraz.

Vrátené hodnoty

Ak argument číslo je

Funkcia Rnd generuje

Menšie než nula

Vždy rovnaké číslo, pričom argument číslo sa použije ako počiatočná hodnota.

Väčšie než nula

Nasledujúce náhodné číslo v poradí.

Rovné nule

Naposledy generované číslo.

Nezadané

Nasledujúce náhodné číslo v poradí.


Poznámky

Funkcia Rnd vráti hodnotu menšiu ako 1, ale väčšiu alebo rovnú nule.

Hodnota argumentu číslo určuje spôsob, akým funkcia Rnd generuje náhodné číslo:

Pre akúkoľvek danú počiatočnú hodnotu sa generuje rovnaká postupnosť čísel, pretože každé nasledujúce volanie funkcie Rnd používa predchádzajúce číslo ako počiatočnú hodnotu pre ďalšie číslo v postupnosti.

Pred volaním funkcie Rnd použite príkaz Randomize bez argumentu, aby sa inicializoval generátor náhodných čísel počiatočnou hodnotou na základe systémového časovača.

Ak chcete získať náhodné celé čísla v určitom rozsahu, použite tento vzorec:

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

Položka upperbound predstavuje najvyššie číslo v rozsahu a položka lowerbound najnižšie číslo v rozsahu.

Poznámka :  Ak chcete zopakovať postupnosť náhodných čísel, vykonajte volanie funkcie Rnd so záporným argumentom bezprostredne pred použitím príkazu Randomize s číselným argumentom. Pri použití príkazu Randomize s rovnakou hodnotou argumentu číslo sa neopakuje predchádzajúca postupnosť.

Príklad

Poznámka : Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.

V tomto príklade je funkcia Rnd použitá na generovanie náhodného celého čísla v rozsahu od 1 do 6.

Dim MyValue
' Generate random value between 1 and 6.
MyValue = Int((6 * Rnd) + 1)
Rozšírte svoje zručnosti
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pridajte sa k insiderom pre Office

Boli tieto informácie užitočné?

Ďakujeme za vaše pripomienky!

Ďakujeme vám za pripomienky. Pravdepodobne vám pomôže, ak vás spojíme s pracovníkom podpory pre Office.

×