sábado, 20 de setembro de 2014

Soma de 2 Valores




Sub exemplo1()
' soma de 2 Valores
    Dim valor As Long
    Dim valor2 As Long
    valor = InputBox("Digite um Valor")
    valor2 = InputBox("Digite outro Valor")
    Dim soma As Long
    soma = valor + valor2
    MsgBox soma
End Sub


Nenhum comentário:

Postar um comentário