IBM Lotus Symphony


Príkaz Randomize [Runtime]

Inicializuje generátor náhodných čísel.

Syntax:

Randomize [číslo]

Parametre:

Čí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.

Chybové kódy

5 Neplatné volanie procedúry

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky