programacion

http://sites.google.com/site/alexbalmoregomezcornejo/Home/PublicClassFrmsuma.doc?attredirects=0

mi foto

http://sites.google.com/site/alexbalmoregomezcornejo/Home/alexbalmoregomezcornenjo.doc?attredirects=0

http://sites.google.com/site/alexbalmoregomezcornejo/Home/PARCIAL1GriseldaArelyEscobarAlas.doc?attredirects=0

http://sites.google.com/site/alex

tp://sitesc.google.com/site/alexbalmoregomezcornejo/Home/PARCIAL1GriseldaArelyEscobarAlas.doc?attredirects=0

programa

End Sub

Private Sub Btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btncalcular.Click
Dim sueldo As Double
sueldo = CDbl(txtsueldo.Text)
If cboafp.SelectedIndex = 0 Then
Txtdescuento.Text = CStr(sueldo * 0.05)
Else
Txtdescuento.Text = CStr(sueldo * 0.01)

End If
End Sub

Private Sub btnlimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpiar.Click

End Sub
End Class