Exemplos - Programação VBA

Prévia do material em texto

Exemplos – PMI – Programação VBA
Sub MeuPrimeiroPrograma()
Dim nome As String
nome = InputBox("Digite o seu nome")
MsgBox ("Meu nome é:" & nome)
End Sub
Sub soma()
Dim valor1 As Integer
Dim valor2 As Integer
Dim soma As Integer
valor1 = InputBox("Digite o primeiro valor")
valor2 = InputBox("Digite o segundo valor")
soma = (valor1 + valor2)
MsgBox ("O resultado da soma é: " & soma)
End Sub
Sub subtração()
Dim valor1 As Integer
Dim valor2 As Integer
Dim subtração As Integer
valor1 = InputBox("Digite o primeiro valor")
valor2 = InputBox("Digite o segundo valor")
subtração = (valor1 - valor2)
MsgBox ("O resultado da subtração é: " & subtração)
End Sub
Sub multiplicação()
Dim valor1 As Integer
Dim valor2 As Integer
Dim multiplicação As Integer
valor1 = InputBox("Digite o primeiro valor")
valor2 = InputBox("Digite o segundo valor")
multiplicação = (valor1 * valor2)
MsgBox ("O resultado da multiplicação é: " & multiplicação)
End Sub
Sub divisão()
Dim valor1 As Double
Dim valor2 As Double
Dim divisão As Double
valor1 = InputBox("Digite o primeiro valor")
valor2 = InputBox("Digite o segundo valor")
divisão = (valor1 / valor2)
MsgBox ("O resultado da divisão é: " & divisão)
End Sub