IBM Lotus Symphony
|
Initialise le générateur de nombre aléatoire.
Randomize [Number]
Number : nombre entier initialisant le générateur de nombre aléatoire. Si vous ne spécifiez pas de nombre, le générateur utilise la valeur active de l'horloge système.
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 Plage comprise entre 0 et 9
iSpectral(iVar) = iSpectral(iVar) +1
Next iCount
sText = " | "
For iCount = 0 To 9
sText = sText & iSpectral(iCount) & " | "
Next iCount
MsgBox sText,0,"Distribution spectrale"
end sub