Оператор 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