Poisss

AULA 12/03/2013 1. 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.

Public Class Form1 Private Sub btnproc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproc.Click 'Botão Processar Dim salario, reajuste, salreaj As Double salario = Val(txtsal.Text) If salario > 1500 Then reajuste = salario * 0.08 Else reajuste = salario * 0.1 End If salreaj = salario + reajuste lblreaj.Text = "Reajuste......................" & FormatCurrency(reajuste) lblsalreaj.Text = "Salário Reajustado....." & FormatCurrency(salreaj) End Sub Private Sub btnlimpar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpar.Click 'Botão Limpar txtsal.Clear() lblreaj.Text = "" lblsalreaj.Text = "" txtsal.Focus() End Sub Private Sub btnsair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsair.Click 'Botão Sair If MsgBox("Deseja Sair?", MsgBoxStyle.YesNo, "Sair") = vbYes Then End Else btnlimpar.PerformClick() End If End Sub
End Class
-------------------------------------------------

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

Public Class Form1 Private Sub btnproc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproc.Click 'Botão Processar Dim dl, faltas, limite As Integer dl = Val(txtdias.Text) faltas = Val(txtfaltas.Text) limite = dl / 4 If faltas > limite Then MsgBox("Reprovado por faltas", MsgBoxStyle.Critical, "Faltas")