ESTRUCTURAS DE CONTROL EN VB .NET
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.
Sub Main()
Dim v As Decimal
Console.Write("Coloque la cantidad vendida: ")
v = Console.ReadLine
If v > 25000 Then
Console.Write("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.
Sub Main()
Dim nombre As String
Dim s, n As Decimal
Console.WriteLine("Coloque el nombre del empleado: ")
nombre = Console.ReadLine
Console.Write("Coloque su sueldo: ")
s = Console.ReadLine
If s < 400 Then
n = s + (s * 0.1)
Console.Write("Su nuevo saldo es de: $" & n)
Else
n = s + (s * 0.05)
Console.Write("Su nuevo sueldo es de: $" & n)
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.
Sub Main()
Dim s, n, mayor, menor, r, t, prom As Decimal
Console.WriteLine("¿Cuantos empleados son?")
r = Console.ReadLine
Console.WriteLine()
For n = 1 To r
Console.WriteLine("Coloque el sueldo del empleado {0}", n)
s = Console.ReadLine
Console.WriteLine()
If n = 1 Then
mayor = s
menor = s
End If
If s > mayor Then
mayor = s
ElseIf s < menor Then
menor = s
End If
t = t + s
Next
prom = t / r
Console.WriteLine("El promedio de los salarios es: $" & prom)
Console.WriteLine("El sueldo mayor es: $" & mayor)
Console.WriteLine("El sueldo menor es: $" & menor)
Console.WriteLine("El monto total es de: $" & t)
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.
Sub Main()
Dim tel As String
Dim par, impar As Integer
Console.WriteLine("Coloque el numero de telefono: ")
tel = Console.ReadLine
For n = 0 To tel.Length - 1
If CInt(tel.Substring(n, 1)) Mod 2 = 0 Then
par = par + 1
Else
impar = impar + 1
End If
Next
Console.WriteLine("Los pares son: " & par)
Console.WriteLine("Los impares son: " & impar)
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.
Sub Main()
Dim d, n As Integer
Dim a, s As String
Console.WriteLine("Seleccione a la base que desea convertir:")
Console.WriteLine("[1] =Desea Binario")
Console.WriteLine("[2] =Desea Octal")
Console.WriteLine("[3] =Desea Hexadecimal")
Console.WriteLine("[4] =Desea Salir")
Console.Write("Su opción es: ")
d = Console.ReadLine()
If d = 4 Then Exit Sub
Console.Clear()
Console.Write("Coloque un numero Decimal para convertir: ")
n = Console.ReadLine()
Console.Clear()
Select Case d
Case 1
Dim num As String
Console.WriteLine("Convirtiendo su numero " & n & ", a Binario:")
Do Until n < 2
num = num & CStr(n Mod 2)
n = Int(n / 2)
Loop
num = num & n
s = StrReverse(num)
Console.WriteLine()
Console.WriteLine("El numero en binario es: " & s)
Case 2
Console.WriteLine("Convirtiendo su numero " & n & " a Octal")
n = Oct(n)
Console.WriteLine()
Console.WriteLine("El numero en octal es: " & n)
Case 3
Console.WriteLine("Convirtiendo su numero " & n & " a Hexadecimal")
a = Hex(n)
Console.WriteLine()
Console.WriteLine("El numero en Hexadecimal es: " & a)
End Select
Console.ReadLine()
End Sub
End Module
Conclusión: en esta parte de estructuras de control en visual basic se aprenden nuevas cosas para poder programar, utilizándolas para facilitar y resolver los ejercicios que se piden con diferentes tipos de variables.
No hay comentarios:
Publicar un comentario