Linguagem Procedural AV1 Atividade 1

EXERCÍCIOS
OPERADORES
>
Maior
>=
Maior ou igual
<
Menor
<=
Menor ou igual
<>
Diferente
And
E
Or
ou

Elabore a codificação para os exercícios abaixo

1. Leia três notas. Calcule a média. Se média for maior ou igual a seis, exiba “Aprovado”, senão “reprovado”.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim nota1, nota2, nota3, media As Double 1nota = Convert.ToDouble(txt1Nota.Text) 2nota = Convert.ToDouble(txt2Nota.Text) 3nota = Convert.ToDouble(txt3Nota.Text) media = (1nota +2 nota +3nota) / 3 If (media >= 6) Then lblResultado.Text = "Aprovado com Média: " + Convert.ToString(Format(media, "##.##")) Else lblResultado.Text = "Reprovado com Média: " + Convert.ToString(Format(media, "##.##")) 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.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim SalAnt, SalReaj, Reaj As Double

' SalAnt = Salário Antigo ' SalReaj = Salário Reajustado ' Reaj = Valor do Reajuste

SalAnt = Convert.ToDouble(txtSalarioAntigo.Text) If (SalAnt > 1500) Then reaj = salant * 0.08 Else reaj = salant * 0.1 End If salreaj = salant + reaj lblReaj.Text = "Reajuste: R$" + Convert.ToString(Format(Reaj, "###.##")) lblSalReaj.Text = "Salário: R$" + Convert.ToString(Format(SalReaj, "##,###.##")) End Sub

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”.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim DiaLet, Falta As Integer

Dias Letivos =