Зміст

# Інструкція 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

Будь ласка, підтримайте нас!