practica 10

PRÁCTICA 10: ESTRUCTURAS DE CONTROL EN VB .NET

Ejercicios a resolver: deberá colocar en el e-portafolio el enunciado del ejercicio y el código en Visual Basic .NET de los ejercicios pares o impares.

 Indicaciones: en Visual Studio crear un proyecto de tipo Aplicación de Consola y crear un módulo con un procedimiento principal por cada uno de los siguientes ejercicios.

 1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada.

Module Module1

    Sub Main()
        Dim venta As Decimal
        Console.WriteLine("escriba el monto de venta")
        venta = Console.ReadLine
        Console.WriteLine()

        If venta > 25000 Then
            Console.WriteLine("meta superada")

        End If
        Console.ReadLine()
    End Sub

End Module

3-Capturar el nombre y sueldo de un empleado, si el empleado posee un sueldo menor a 400 realizar un aumento del 10% y si el sueldo es superior realizar un aumento del 5%, mostrar el nuevo sueldo.

Module Module3
    Sub main()
        Dim nombre As String
        Dim sueldo, nuevosueldo As Decimal
        Console.WriteLine("introduzca su nombre")
        nombre = Console.ReadLine
        Console.WriteLine("introduza su sueldo")
        sueldo = Console.ReadLine
        If sueldo < 400 Then
            nuevosueldo = sueldo * 1.1
            Console.WriteLine(nombre & " tu nuevo sueldo es " & nuevosueldo)
        Else
            nuevosueldo = sueldo * 1.05
            Console.WriteLine(nombre & " tu nuevo sueldo es " & nuevosueldo)
        End If
        Console.ReadLine()

    End Sub

End Module

5-Capturar el salario de una cantidad de empleados especificada por el usuario a través del teclado, calcular e imprimir el promedio de salarios, el salario mayor, el salario menor y el monto total de todos los salarios.

Module Module1

    Sub Main()
        Dim n As Integer
        Dim suel, suelto, prosuel, menor, mayor As Decimal
        Console.WriteLine("cantidad de empleados")
        n = Console.ReadLine
        For i = 1 To n
            Console.WriteLine("sueldo del empleado " & i)
            suel = Console.ReadLine
            suelto = suelto + suel
            prosuel = suelto / n
            If suel > mayor Then
                mayor = suel
            End If
            If suel < menor Then
                menor = suel
            End If
        Next
        Console.WriteLine("cantidad de empleados son " & n)
        Console.WriteLine("promedio del sueldo de los empleados es $" & prosuel)
        Console.WriteLine("sueldo mayo es $" & mayor)
        Console.WriteLine("sueldo menor es $" & menor)
        Console.ReadLine()
    End Sub


End Module

7. Capturar por teclado un número de teléfono, calcular e imprimir cuantos dígitos pares e impares posee.

Module Module1

    Sub Main()
        Dim tel As String
        Dim numpares, numimpares As Integer
        Console.WriteLine("Escriba numero de telefono")
        tel = Console.ReadLine
        For i = 0 To tel.length - 1
            If tel.Substring(i, 1) Mod 2 = 0 Then
                numpares = numpares + 1
            Else
                numimpares = numimpares + 1
            End If
        Next
        Console.WriteLine("numeros pares son= " & numpares)
        Console.WriteLine("numeros impares son= " & numimpares)
        Console.ReadLine()
    End Sub

End Module

9. Escriba un programa que proporcione al usuario un menú con las siguientes opciones de conversión de decimal a [1] binario, [2] octal, [3] hexadecimal y [4] salir. 

Module Module2
    Sub main()
        Dim op, num As Integer
        Dim a, b, c As String
        Console.WriteLine("conversión de decimal a bases numericas")
        Console.WriteLine("eliga una opción")
        Console.WriteLine("[1] binario")
        Console.WriteLine("[2] octal")
        Console.WriteLine("[3] hexadecimal")
        Console.WriteLine("[4] salir")
        Console.WriteLine("¿su opción es?")
        op = Console.ReadLine
        If op = 4 Then
            Exit Sub
            Console.WriteLine("escriba un numero")
            num = Console.ReadLine
            Select Case op
                Case 1
                    Console.WriteLine("convertir de decimal a binario")
                    Do Until num < 2
                        b = b & CStr(num Mod 2)
                        num = Int(num Mod 2)
                    Loop
                    b = b & num
                    c = StrReverse(b)
                    Console.WriteLine()
                    Console.WriteLine("respuesta" & b)
                Case 2
                    Console.WriteLine("convirtiendo" & num & "a octal")
                    num = Oct(num)
                    Console.WriteLine("respuesta" & num)
                Case 3
                    Console.WriteLine("convertir" & num & " a hexadecimal")
                    a = Hex(num)
                    Console.WriteLine("respuesta" & a)
            End Select
        End If


    End Sub
End Module