TOP

Visual Basic Consola - Selección 09




09.  Se pide ingresar el sueldo de un trabajador y su categoría, dependiendo de la categoría se le dará una bonificación en el neto a pagar. Categoría àbonificación: A à 10%, B à 20%, C à 30%, D à 50%.



Imports System.Console
Module Module9
    Dim bonificación, sueldo As Double
    Dim categoria As String
    Sub Main()
        Write("Ingrese Sueldo : ")
        sueldo = ReadLine()
        Write("Ingrese Categoría : ")
        categoria = ReadLine()
        Select Case categoria.ToUpper
            Case "A" : bonificación = sueldo * 0.1
            Case "B" : bonificación = sueldo * 0.2
            Case "C" : bonificación = sueldo * 0.3
            Case "D" : bonificación = sueldo * 0.5
        End Select
        WriteLine()
        WriteLine("Bonificación : " & Bonificación)
        WriteLine("Neto a Pagar : " & sueldo + bonificación)
        ReadLine()
    End Sub
End Module

share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.