Pages

sábado, 9 de febrero de 2013

Calcular el descuento y sueldo neto de un trabajador dado su sueldo Codigo en Visual Basic - VB

Problema
A un trabajador le descuentan de su sueldo el 10%, si su sueldo es menor o igual a 1000, si es por encima de 1000 y hasta 2000 el 5% del adicional (es decir del monto que sobrepasa de 1000), y por encima de 2000 el 3% del adicional (es decir del moto que sobrepasa de 2000). Calcular el descuento y sueldo neto que recibe el trabajador dado su sueldo.

Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim s, d, monto As Double
        s = TextBox1.Text
        If (s > 2000) Then
            d = 100 + (s - 1000) * 0.03
            monto = s - d
        Else
            If (s > 1000 And s <= 2000) Then
                d = 100 + (s - 1000) * 0.05
                monto = s - d
            Else
                d = s * 0.1
                monto = s - d
            End If
        End If
        TextBox2.Text = "El sueldo percibido es " +
        Trim(monto) + "  y su descuento fue " + Trim(d)
    End Sub
End Class

0 comentarios:

Publicar un comentario