21/10/2004, 06:03
|
 | | | Fecha de Ingreso: agosto-2004 Ubicación: Santa Rosa, La Pampa, Argentina
Mensajes: 1.484
Antigüedad: 20 años, 6 meses Puntos: 13 | |
| Proba con Randomize
Acordate antes de cada Rnd, en la línea anterior, de usar Randomize.
Esto es textual del MSDN
Randomize usa número para iniciar el generador de números aleatorios de la función Rnd, asignándole un nuevo valor de semilla. Si se omite número, el valor devuelto por el reloj del sistema se usa como nuevo valor de semilla.
Si no se usa Randomize, la función Rnd (sin argumentos) usa el mismo número como semilla la primera vez que se llama y, a partir de ese momento, usa el último número generado como valor de semilla.
El siguiente ejemplo muestra el uso de la instrucción Randomize:
Dim MiValor, Respuesta
Randomize ' Inicia 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 ("¿Volver a girar? ", vbYesNo)
Loop |