07/02/2003, 06:08
|
 | Usuario no validado | | Fecha de Ingreso: enero-2001 Ubicación: Mendoza
Mensajes: 630
Antigüedad: 24 años, 3 meses Puntos: 1 | |
| 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 |