Funkcija Rnd

Vrne naključno številko med 0 in 1.

Skladnja:

Rnd [(Izraz)]

Vrnjena vrednost:

Double

Parametri:

Izraz: Nima učinka, če ga podate, je prezrt.

Funkcija Rnd vrne desetiške ulomke od 0 (vključno) do 1 (izključno) v skladu z enakomerno porazdelitvijo. Uporablja generator naključnih števil Mersenne Twister 19937. Za tvorbo naključnih celih števil v danem obsegu uporabite formulo kot v spodnjem primeru. Ukaz Randomize z določeno vrednostjo semena lahko uporabite pred tem, če želite napovedljiv niz števil.

Kode napak:

5 Neveljaven klic procedure

Primer:

Sub ExampleRandomSelect

Dim iVar As Integer

    iVar = Int((15 * Rnd) -2)

    Select Case iVar

        Case 1 To 5

            Print "Število od 1 do 5"

        Case 6, 7, 8

            Print "Število od 6 do 8"

        Case Is > 8 And iVar < 11

            Print "Večje od 8"

        Case Else

            Print "Izven obsega 1 do 10"

    End Select

End Sub