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
