IBM Lotus Symphony
|
Инициализирует генератор псевдослучайных чисел.
Randomize [число]
Число: произвольное целое число, инициализирующее генератор псевдослучайных чисел. Если Число не указано, то генератор использует текущее значение системного таймера.
Sub ExampleRandomize
Dim iVar As Integer, sText As String
Dim iSpectral(10) As Integer
Randomize 2^14-1
For iCount = 1 To 1000
iVar = Int((10 * Rnd) ) REM Диапазон от 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