Funkcja Rnd

Zwraca liczbę losową z zakresu od 0 do 1.

Składnia:


Rnd [(wyrażenie)]

Zwracana wartość:

Podwójna

Parametry:

Wyrażenie: nie odniosło efektu, jest ignorowane jeśli dostarczone

Funkcja Rnd zwraca ułamek dziesiętny z zakresu od 0 (włącznie) do 1 (z wyłączeniem) zgodnie z rozkładem jednostajnym. Używa ona algorytmu generatora liczb losowych Mersenne Twister 19937. Aby wygenerować w danym zakresie losowe liczby całkowite, należy użyć formuły jak w przykładach poniżej. W sytuacji, gdy zachodzi potrzeba wielokrotnego odtwarzania tego samego ciągu liczb pseudolosowych, należy użyć wcześniej instrukcji Randomize z argumentem określającym wartość ziarna losowego dla generatora.

Kody błędów:

5 Nieprawidłowe wywołanie procedury

Przykład:


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            Print "Liczba od 1 do 5"
        Case 6, 7, 8
            Print "Liczba od 6 do 8"
        Case Is > 8 And iVar < 11
            Print "Większa niż 8"
        Case Else
            Print "Poza zakresem od 1 do 10"
    End Select
End Sub

Please support us!