sábado, 20 de setembro de 2014

'Contagem regressiva apartir de 10 e imprimir fogo no final




Sub ContagemRegressiva()
'Contagem regressiva apartir de 10 e imprimir fogo no final
Dim num As Integer
Dim i As Integer
For i = 10 To 1 Step -1
MsgBox i
Next
MsgBox "FOGOOOO"
End Sub



Nenhum comentário:

Postar um comentário