Інструкція Randomize

Запускає генератор випадкових чисел через функцію Rnd.

Синтаксис:


Randomize [число]

Параметри:

Число: будь-яке ціле число. Використовується в якості основи для започаткування генератора випадкових чисел. Для однакових основ функція Rnd буде генерувати ту ж послідовність випадкових чисел. Якщо параметр пропущено, інструкція Randomize ігнорується.

Якщо передбачувана послідовність чисел не потрібна, то немає необхідності використовувати інструкцію Randomize, бо генератор випадкових чисел буде започаткований автоматично при першому використанні – вони будуть основою зерном через генератор випадкових чисел, що поставляються разом з системою, яка генерує рівномірно розподілені, недетерміністичні випадкові числа. Якщо такий генератор не доступний в системі, то у вигляді основи буде використовуватися системний час.

Інструкція Randomize впливає тільки на функцію BASIC Rnd. Це не стосується інших генераторів випадкових чисел (наприклад, функції RAND() у програмі Calc).

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

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

Приклад:


Sub ExampleRandomize
Dim iCount As Integer, iVar As Integer, sText As String
Dim iSpectral(10) As Integer
    Randomize 2^14-1
    For iCount = 1 To 1000
    iVar = Int(10 * Rnd) ' Діапазон від 0 до 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sText,0,"Спектральний розподіл"
End Sub

Функція Rnd