sábado, 20 de setembro de 2014

(For Next) Faz a tabuada de um numero multiplicado de 1 ao 10




Sub tabuada2()
' Faz a tabuada de um numero multiplicado de 1 ao 10
Dim num As Integer
Dim i   As Integer
num = CInt(InputBox("Digite um Numero"))

    For i = 1 To 10
    MsgBox num & " X " & i & " = " & num * i
    Next
End Sub

2 comentários:

  1. Muito obrigado pela ajuda, seria ainda mais legal se tivesse um texto antes ou depois do código, explicando as principais funções por exemplo "Como funciona o For?", sei que é simples o código mas é uma dica. Vlw!

    ResponderExcluir