O Visual Basic for Applications (VBA) é uma implementação do Visual Basic da Microsoft incorporada em todos os programas do Microsoft Office, bem como em outras aplicações da Microsoft, como o Visio, e que foi também incorporada pelo menos parcialmente em outros programas de terceiros como o AutoCAD, Mathcad e WordPerfect.
Sub procMult3()
'Verificar se um numero é divisivel por 3 " (mod 3 = 0) "
Dim num As Integer
Dim mensagem As String
num = Val(InputBox("Escreva um Numero", "Número num"))
If (num Mod 3 = 0) Then
mensagem = "Numero é Multiplo de (3) TRES "
Else
mensagem = "Não é Multiplo de (3) TRES "
End If
MsgBox mensagem & num
End Sub
Sub procSelecImpar()
'Função "For To" "IF Then Else End If", Verifica lista de 5 numeros se par ou impar
Dim num As Integer
Dim i As Integer
For i = 1 To 5
num = CInt(InputBox("digite o numero"))
If (num Mod 2 = 0) Then
Debug.Print num & " É par "
Else
Debug.Print num & " É Impar "
End If
Next
End Sub
Sub procExer4()
'Varias Função IF Then Else End If, Verifica lista de 5 numeros se par ou impar
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim numero As Integer
Dim mensagem As String
a = Val(InputBox("Escreva um Numero", "Número a"))
b = Val(InputBox("Escreva outro Numero", "Número b"))
c = Val(InputBox("Escreva outro Numero", "Número C"))
d = Val(InputBox("Escreva um Numero", "Número d"))
e = Val(InputBox("Escreva outro Numero", "Número e"))
'Verifica se "a" é par ou impar
numero = a
If (numero Mod 2 = 0) Then
mensagem = "Numero é Par "
Else
mensagem = "Numero é Impar "
End If
MsgBox mensagem & numero
'Verifica se "b" é par ou impar
numero = b
If (numero Mod 2 = 0) Then
mensagem = "Numero é Par "
Else
mensagem = "Numero é Impar "
End If
MsgBox mensagem & numero
'Verifica se "c" é par ou impar
numero = c
If (numero Mod 2 = 0) Then
mensagem = "Numero é Par "
Else
mensagem = "Numero é Impar "
End If
MsgBox mensagem & numero
'Verifica se "d" é par ou impar
numero = d
If (numero Mod 2 = 0) Then
mensagem = "Numero é Par "
Else
mensagem = "Numero é Impar "
End If
MsgBox mensagem & numero
'Verifica se "e" é par ou impar
numero = e
If (numero Mod 2 = 0) Then
mensagem = "Numero é Par "
Else
mensagem = "Numero é Impar "
End If
MsgBox mensagem & numero
Sub procMaior_Tres()
'Função If And Then, ElseIf, Else Verifica entre 3 numeros o Maior.
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim maior As Integer
a = Val(InputBox("Escreva um Numero", "Número a"))
b = Val(InputBox("Escreva outro Numero", "Número b"))
c = Val(InputBox("Escreva outro Numero", "Número C"))
If (a > b) And (a > c) Then
maior = a
ElseIf (b > c) Then
maior = b
Else
maior = c
End If
MsgBox " O Maior é : " & maior
End Sub
Sub procMaior_Numero()
'Função If, End If Verifica entre dois numeros qual é o Maior
Dim a As Integer
Dim b As Integer
Dim maior As Integer
a = Val(InputBox("Digite um Numero Inteiro Positivo", "Número a"))
b = Val(InputBox("Digite outro NumeroInteiro Positivo", "Número b"))
maior = a
If maior < b Then
maior = b
End If
MsgBox " O Maior é : " & maior
End Sub
Sub procpar_ou_impar()
' Função If Then, Else, End If Verifica se o numero é par ou Impar
Dim numero As Integer
Dim mensagem As String
numero = Val(InputBox("Digite um Numero :"))
If (numero Mod 2 = 0) Then
mensagem = "Numero é Par"
Else
mensagem = "Numero é Impar"
End If
MsgBox mensagem
End Sub
Sub OperLogicos()
'Função If And, ElseIf Or, Else, Compara em 2 numeros se ha entre eles par ou impar
Dim a As Integer
Dim b As Integer
Dim mensagem As String
a = Val(InputBox("Digite Valor do primeiro Numero: "))
b = Val(InputBox("Digite Valor do segundo Numero: "))
If (a Mod 2 = 0) And (b Mod 2 = 0) Then
mensagem = "Dois Valores Pares"
ElseIf (a Mod 2 = 0) Or (b Mod 2 = 0) Then
mensagem = "Um dos valores é par"
Else
mensagem = "Valor Impares"
End If
MsgBox mensagem
End Sub
Sub procacadnatacaoCase()
'Função Select Case, Academia seleciona Categoria por faixa de idade
Dim idade As Integer
Dim mensagem As String
idade = Val(InputBox("Digite a Idade"))
Select Case idade
Case Is = 0
mensagem = "Idade Incorreta"
Case Is < 5
mensagem = "Sem Categoria"
Case Is < 8
mensagem = "Infantil"
Case Is < 11
mensagem = "Infantil B"
Case Is < 14
mensagem = "Juvenil"
Case Is < 18
mensagem = "Juvenil B"
Case Else
mensagem = "Adulto"
End Select
Sub proctesteIF2()
'funçao Select Case verifica se é numero negativo, maior ou menor que 10
Dim numero As Integer
Dim mensagem As String
numero = Val(InputBox("Digite um Valor :"))
Select Case numero
Case Is < 0
mensagem = "Numero Negativo"
Case Is = 0
mensagem = "Valor entrado foi Zero"
Case Is <= 10
mensagem = "Numero menor ou Igual a 10"
Case Else
mensagem = " Numero é Maior que 10"
End Select
Sub proctesteIF1()
'funçao if ElseIf verifica se é numero negativo, maior ou menor que 10
Dim numero As Integer
Dim mensagem As String
numero = Val(InputBox("Digite um Valor : "))
If numero < 0 Then
mensagem = "Numero Negativo"
ElseIf numero = 0 Then
mensagem = "Valor entrado foi Zero"
ElseIf numero <= 10 Then
mensagem = "Numero menor ou Igual a 10"
Else
mensagem = " Numero é Maior que 10"
End If
Sub proctesteIF()
'verifica se numero maior ou menor que 10 função "If then" "ElseIf then" "Else" "End If"
Dim numero As Integer
Dim mensagem As String
numero = Val(InputBox("Digite um Valor"))
If numero > 10 Then
mensagem = " numero maior que 10 "
ElseIf numero = 10 Then
mensagem = " numero igual a 10 "
Else
mensagem = " numero não é maior que 10 "
End If
MsgBox mensagem
End Sub
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
Sub Maior10Digitado()
' 10 numeros digitados selecionar o maior
Dim num As Integer
Dim maior As Integer
Dim i As Integer
For i = 1 To 10
num = CInt(InputBox("Digite um numero"))
If (i = 1) Or (num > maior) Then
maior = num
End If
Next
MsgBox "O Maior é : " & maior
End Sub
Sub PegaTonto()
' Vai recebendo numero até Digitar "0"
' faz a media dos numeros Digitados
Dim num As Integer
Dim soma As Integer
Dim cont As Integer
Dim media As Double
num = 1
Do Until num = 0
num = Val(InputBox("Digite um Numero(0 para terminar)"))
soma = soma + num
cont = cont + 1
Loop
cont = cont - 1 'para desconciderar 0 na contagem
media = soma / cont
MsgBox " A media " & media
Sub tabuada3()
'Faz a tabuada de um numero multiplicado de 1 ao 10
'Debug.Print Ctrl + G ===> Mostra Janela imediata
Dim num As Integer
Dim i As Integer
num = CInt(InputBox("Digite um Numero"))
For i = 1 To 10
Debug.Print num & " X " & i & " = " & num * i
Next
End Sub
Sub ContarNumero2()
'Faz contagem de 1 até o valor digitado
' contagem sequencial de 1 até n
' msgbox demonstra sequencia em uma janela
Dim num As Integer
Dim i As Integer
num = CInt(InputBox("Digite um Numero"))
Sub ContarNumero()
'Debug.Print Ctrl + G ===> Mostra Janela imediata Faz contagem de 1 até o valor digitado
Dim num As Integer
Dim i As Integer
num = CInt(InputBox("Digite um Numero"))
Sub WhileWend()
'Variação do Do While Loop vai somando numero digitados até atingir 40.
Dim x As Integer
Dim soma As Integer
While soma < 40
x = Val(InputBox("Digite um Numero"))
soma = soma + x
Wend
MsgBox "Valor da Soma = " & soma
End Sub
Sub laco_forExitSub()
'For Exit Sub (sai fora do Programa ao achar um multiplo de 5)
Dim i As Integer
Dim num As Integer
num = CInt(InputBox("Digite um Valor"))
For i = 1 To 10
MsgBox i * num
If num Mod 5 = 0 Then Exit Sub
Next
MsgBox "Ola¨"
End Sub
Sub tabuada()
'Estrura FOR NEXT Verifica se os multiplos 0 a 10 de um numero quai são par ou impar
Dim numero As Integer
numero = CInt(InputBox("Digite o Numero Desejado"))
Dim cont As Integer
Dim mensagem As String
Dim resultado As Integer
If numero > 0 And numero < 10 Then
For cont = 1 To 10
resultado = numero * cont
If resultado Mod 2 = 0 Then
mensagem = mensagem & resultado & " É Par " & Chr(13)
Else
mensagem = mensagem & resultado & " É Impar" & Chr(13)
End If
Next
MsgBox mensagem
Else
MsgBox " Numero não Aceito "
End If
End Sub
Sub MultiploDe3()
'Verifica se o Numero é Multiplo de 3
Dim num As Integer
num = CInt(InputBox("Digite um Numero: "))
If num Mod 3 = 0 Then
MsgBox "É Multipo de 3 "
Else
MsgBox "Não é Multiplo de 3 "
End If
End Sub
Sub NumeroTenImpar()
'Verifica se entre 5 numeros se há impar
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim n4 As Integer
Dim n5 As Integer
n1 = CInt(InputBox("Digite o Primeiro Numero : "))
n2 = CInt(InputBox("Digite o Segundo Numero : "))
n3 = CInt(InputBox("Digite o terceiro Numero : "))
n4 = CInt(InputBox("Digite o Quarto Numero : "))
n5 = CInt(InputBox("Digite o Quinto Numero : "))
If (n1 Mod 2 = 1) Or (n2 Mod 2 = 1) Or (n3 Mod 2 = 1) Or (n4 Mod 2 = 1) Or (n5 Mod 2 = 1) Then
MsgBox "Tem impar"
Else
MsgBox "Todos são Pares"
End If
