Dim contador
For contador = 5 To 0 Step -1
MsgBox "Faltan" & contador
If contador = 0 Then
MsgBox "Terminó la secuencia"
End If
Next
Despues ejecute el codigo y aparece un recuadro pequeño que decía "Faltan 5, 4, 3, 2, 1 y 0" y al finalizar "Termino la secuencia"
No hay comentarios:
Publicar un comentario