Функція Rnd

Повертає випадкове число від 0 до 1.

Синтаксис:


Rnd [(Вираз)]

Значення, що повертається:

Double

Параметри:

Вираз: ні на що не впливає, якщо є - нехтується.

Функція Rnd повертає десятковий дріб з діапазону від 0 (включаючи) до 1 (не включаючи) у відповідності з рівномірним розподілом. Вона використовує алгоритм генератора випадкових чисел Mersenne Twister 19937. Для створення в заданому діапазоні випадкових чисел, необхідно використовувати формулу, як у прикладі нижче. У ситуації, коли виникає необхідність багаторазового відтворення одного і того ж ряду псевдовипадкових чисел, використовуйте спершу інструкцію Randomize з аргументом, що визначає значення основи у випадковому порядку для генератора.

Коди помилок:

5 Неправильний виклик процедури

Приклад:


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            Print "Число від 1 до 5"
        Case 6, 7, 8
            Print "Число від 6 до 8"
        Case Is > 8 And iVar < 11
            Print "Більше 8"
        Case Else
            Print "Поза діапазоном від 1 до 10"
    End Select
End Sub

Інструкція Randomize