Модул
Съдържание
Индекс 🔎︎

# Оператор Randomize

Инициализира генератора на случайни числа, използван от функцията Rnd.

## Синтаксис:

    Randomize [Number]

## Параметри:

Number: произволна целочислена стойност. Използва се като зародиш за инициализиране генератора на случайни числа. Еднакви зародишни стойности пораждат еднакви поредици от случайни числа във функцията Rnd. Ако параметърът бъде пропуснат, операторът Randomize се игнорира.

Ако не се изисква предсказуема поредица от числа, операторът Randomize не е необходим, защото генераторът на случайни числа ще бъде инициализиран автоматично при първа употреба – ще се използва предоставен от системата генератор на случайни числа, който поражда равномерно разпределени, недетерминистични случайни числа. Ако в системата не е налице такъв генератор, за зародиш ще се използва системният час.

Операторът Randomize въздейства само върху функцията Rnd в BASIC. Той не влияе върху други генератори на случайни числа (например функцията 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