IBM Lotus Symphony
|
Inicializuje generátor náhodných čísel.
Randomize [číslo]
Číslo: Ľubovoľná hodnota typu Integer, ktorá inicializuje generátor náhodných čísel. Ak sa číslo vynechá, generátor použije aktuálnu hodnotu časovača systému.
Sub Príklad_Randomize
Dim iVar ako typ Integer, sText ako typ String
Dim iSpectral(10) ako typ Integer
Randomize 2^14-1
For iCount = 1 To 1000
iVar = Int((10 * Rnd) ) REM Rozsah hodnôt od 0 do 9
iSpectral(iVar) = iSpectral(iVar) +1
Next iCount
sText = " | "
For iCount = 0 To 9
sText = sText & iSpectral(iCount) & " | "
Next iCount
MsgBox sText,0,"spektrálne rozdelenie"
end sub