Exercicios Ead

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”.
R:
Plublic Class Form1 Private Sub bt_Click (sender As Object, e As EventArgs) Handles bt.Click

txtMedia.Text = (Val(txt1.Text) + Val(txt2.Text) + Val(txt3.Text))/3 If Val (txtMedia.Text) >= 6 Then MsgBox(“Aprovado”) Else MsgBox(“Reprovado”) End If

End Sub
End Class

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.
R:
Plublic Class Form1 Private Sub bt_Click (sender As Object, e As EventArgs) Handles bt.Click vPorcento1 = ‘8% vPorcento2 = ‘10%

txtSal.Text = Val(txt1.Text) Aj1 = (txtSal.Text/100)* vPorcento1
Aj2 = (txtSal.Text/100)* vPorcento2
If Val (txtSal.Text) > 1.500,00 Then MsgBox(“Reajuste de 8%, salario reajustado: ”, Aj1 ) Else MsgBox(“Reajuste de 10%, salario reajustado: ”, Aj2 ) End If End Sub
End Class

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

4. Leia salário. Calcule o aumento de acordo com a tabela abaixo:
Salário % Aumento
Até 750,00 5
751,00 até 1000 7
1001 até 2000 8
Acima 2000 9
R:
Plublic Class Form1 Private Sub bt_Click (sender As Object, e As EventArgs) Handles bt.Click

txtSal.Text = Val(txt1.Text) If Val(txtSal.Text) < 750 Then novo_sal = txtSal.Text * 5 /100 Aumento = novo_sal + txtSal.Text MsgBox ("O valor do aumento: ", aumento); MsgBox ("O valor do novo salario: ", novo_sal); If Val(txtSal.Text) > 751 And Val(txtSal.Text) < 1000 Then novo_sal = txtSal.Text * 7 /100 Aumento = novo_sal + txtSal.Text MsgBox ("O valor do