VBA/Excel/Access/Word/Math Functions/Rnd

Материал из VB Эксперт
Перейти к: навигация, поиск

Rnd([number]) returns A random number (with no argument) or a number based on the given initial seed.

Sub mathDemo10()
   Debug.Print Rnd(1)

==Rnd() Returns a random number between 0 and/td>

Sub mathF6()
    Debug.Print Rnd()
End Sub

To prevent repetitive sequences, use the Randomize statement to initialize the random number generator with a seed value based on the system clock.

Sub intDemo()
    Dim val1
    val1 = Int(100 * Rnd + 1)
End Sub