IBM Lotus Symphony


Instrucción Randomize [Ejecución]

Inicializa el generador de números aleatorios.

Sintaxis:

Randomize [Número]

Parámetros:

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.

Códigos de error

5 Inicio del proceso no válido

Ejemplo:

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


Comentarios del producto | Documentación adicional | Marcas registradas