IBM Lotus Symphony
|
Inicializa el generador de números aleatorios.
Randomize [Número]
Número: Cualquier valor que inicialice el generador de números aleatorios. Si se omite Número, el generador usa el valor actual del temporizador del sistema.
Sub EjemploRandomize
Dim iVar As Integer, sTexto As String
Dim iSpectral(10) As Integer
Randomize 2^14-1
For iContador = 1 To 1000
iVar = Int((10 * Rnd) ) REM Valor de 0 a 9
iSpectral(iVar) = iSpectral(iVar) +1
Next iContador
sTexto = " | "
For iContador = 0 To 9
sTexto = sTexto & iSpectral(iCount) & " | "
Next iContador
MsgBox sTexto,0,"Spectral Distribution"
end sub