Inicializa el generador de números aleatorios.
Randomize [número]
El argumento número puede ser cualquier expresión numérica válida.
Randomize utiliza número para inicializar el generador de números aleatorios de la función Rnd, para ello, le asigna un nuevo valor seed. Si omite número, el valor devuelto por el temporizador del sistema se utiliza como el nuevo valor seed.
Si no se utiliza Randomize, la función Rnd (sin argumentos) utiliza el mismo número que un seed la primera vez que se le llama y después utiliza el último número generado como valor seed.
Nota Para repetir secuencias de números aleatorios, llame a Rnd con un argumento negativo inmediatamente antes de utilizar Randomize con un argumento numérico. Utilizar Randomize con el mismo valor para número no repite la secuencia anterior.
El siguiente ejemplo ilustra el uso de la instrucción Randomize.
Dim MiValor, Respuesta
Randomize
' Inicializa el generador de números aleatorios.
Do Until Respuesta = vbNo
MiValor = Int((6 * Rnd) + 1) ' Genera un valor aleatorio entre 1 y 6.
MsgBox MiValor
Response = MsgBox ("¿Desea repetir? ", vbYesNo)
Loop
Ayuda de Javascript y Vbscript para Javascripts.astalaweb.com. |