Exercícios em VBA

EXEMPLO DE TESTE CONDICIONAL

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = Val(TextBox1.Text) If i >= 18 Then Label2.Text = "maior de idade" Else Label2.Text = "Menor de idade" End If End Sub
End Class
EXERCÍCIOS
1. Leia três notas. Calcule a média. Se média for maior ou igual a seis, exiba “Aprovado”, senão “reprovado”.
Dim n1, n2, n3, m As Double n1 = TextBox1.Text n2 = TextBox2.Text n3 = TextBox3.Text m = (n1 + n2 + n3) / 3 If m >= 6 Then Label4.Text = "Aprovado" & m else Label4.Text = "Reprovado" & m End If End Sub

2. Leia salário. Se salário for maior que R$ 1.500,00 efetue um reajuste de 8%¨, senão o reajuste será de 10%. Exiba: valor de reajuste e salário reajustado.
Dim sal, saldreaj, reaj As Double sal = Val(txtsal.Text) If sal > 1500 Then reaj = sal * 0.08 Else reaj = sal * 0.1 End If saldreaj = sal + reaj

LBLREAJ.Text = "Valor de Reajuste " & FormatCurrency(reaj) lblsalreaj.Text = "Salário Reajustado" & FormatCurrency(saldreaj)

3. Leia dias letivos e faltas. Calcule o limite de faltas (25% dos dias letivos). Se as faltas for maior do que o limite exiba “Reprovado por falta”, senão “Ok”.

Dim dl, f, limite As Integer dl = Val(txtdl.Text) f = Val(Txtfal.Text) limite = dl * 0.25 If f > limite Then MsgBox("Reprovado por Faltas") Else MsgBox("Ok")

End If

End Sub
End Class

4. Leia um número inteiro, exiba se o mesmo é par ou ímpar

Dim num As Integer num = Val(Txtnum.Text) If num Mod 2 = 0 Then MsgBox(" Par") Else MsgBox("Impar")