Randomize Statement
Inicializálja az Rnd függvény által használt véletlenszám-generátort.
Szintaxis:
Randomize [Szám]
Paraméterek:
Szám: tetszĹ‘leges egĂ©sz Ă©rtĂ©k. A vĂ©letlenszám-generátor elĹ‘kĂ©szĂtĂ©sĂ©re használatos kezdőértĂ©k. EgyenlĹ‘ kezdőértĂ©kek egyenlĹ‘ vĂ©letlenszám-sorozatokat eredmĂ©nyeznek az Rnd fĂĽggvĂ©ny használatakor. Ha a paramĂ©ter nincs megadva, akkor a Randomize utasĂtás figyelmen kĂvĂĽl marad.

Hacsak nem számok elĹ‘re jelezhetĹ‘ sorozatára van szĂĽksĂ©g, akkor nem kell használni a Randomize utasĂtást, mivel a vĂ©letlenszám-generátor automatikusan elĹ‘ lesz kĂ©szĂtve az elsĹ‘ használatkor - a rendszer által biztosĂtott vĂ©letlenszám-generátor használatával, amely egyenletesen elosztott, nem determinisztikus vĂ©letlen számokat állĂt elĹ‘. Ha a rendszeren nem áll rendelkezĂ©sre ilyen generátor, akkor a rendszeridĹ‘ kerĂĽl felhasználásra kezdőértĂ©kkĂ©nt.
A Randomize utasĂtás csak a BASIC Rnd fĂĽggvĂ©nyĂ©t befolyásolja, más vĂ©letlenszám-generátorokat (pĂ©ldául a Calc RAND() fĂĽggvĂ©nyĂ©t stb.) nem.
Példa:
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-tĂłl 9-ig
iSpectral(iVar) = iSpectral(iVar) +1
Next iCount
sText = " | "
For iCount = 0 To 9
sText = sText & iSpectral(iCount) & " | "
Next iCount
MsgBox sText,0,"Spektrális eloszlás"
End Sub