Guía práctica # 9:

ESTRUCTURAS DE CONTROL EN VB .NET

Objetivos:
 Practicar las estructuras de control de selección
 Practicar las estructura de control de repetición

EJERCICIOS CON ESTRUCTURAS DE CONTROL

Indicaciones: crear un proyecto de tipo consola en Visual Basic .NET y crear un módulo para cada uno de los siguientes problemas.

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 V As Decimal
System.Console.WriteLine(“Introdusca la cantidad de ventas en USD: “) 
V = System.Console.ReadLine
If V < 25000 Then
System.Console.WriteLine(” La meta NO ha sido superada”)
Else
System.Console.WriteLine(“! La meta ha sido superada ¡”)
End If
System.Console.ReadLine()
End Sub
End Module

2. Capturar la edad de una persona, determinar e imprimir si es o no mayor de edad. (mayoría de edad 18.)

Module Module2 

Sub main()                                                                                                                                                           
Dim E As Decimal
System.Console.WriteLine(“Favor ingresar su edad: “)
E = System.Console.ReadLine
If E >= 18 Then
System.Console.WriteLine(” ! Usted es mayor de edad ¡”)
Else
System.Console.WriteLine(“! Usted es menor de edad ¡”)
End If
System.Console.ReadLine()

End Sub

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 Module5

Sub main()
Dim n As String
Dim s As Double
Console.WriteLine(“Ingrese su nombre: “) 
n = Console.ReadLine
Console.WriteLine(“Ingrese su sueldo: “)
s = Console.ReadLine
If s < 400 Then
s = s * 1.1
Else
s = s * 1.05
End If
Console.WriteLine(n & ” su nuevo sueldo es de: $” & s)
System.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 Module3

Sub Main()
Dim telefono As String
Dim pares, impar As Integer
pares = 0
impar = 0
Console.WriteLine(“Vea cuantos números pares e impares posee su numero telefónico!”)
Console.Write(“Ingrese su número de telefono: “)
telefono = Console.ReadLine()
Console.WriteLine()
For i = 0 To telefono.Length – 1
If telefono.Substring(i, 1) Mod 2 = 0 Then
pares = pares + 1
Else
impar = impar + 1
End If
Next
Console.Write(“Pares: “)
For i = 0 To telefono.Length – 1
If telefono.Substring(i, 1) Mod 2 = 0 Then
Console.Write(telefono.Substring(i, 1) & ” “)                             
End If
Next
Console.WriteLine()
Console.Write(“Impares: “)
For i = 0 To telefono.Length – 1
If telefono.Substring(i, 1) Mod 2 <> 0 Then
Console.Write(telefono.Substring(i, 1) & ” “)
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(“Números pares: ” & pares)
Console.WriteLine(“Números impares: ” & 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.

Module Module4  

Sub main()
Dim op, num As Integer
Dim a, b, c As String

Console.WriteLine(“Conversor Decimal a otras bases numéricas v2.0″)
Console.WriteLine()
Console.WriteLine(“¿A que base desea convertir?”)
Console.WriteLine(“[1] Binario”)
Console.WriteLine(“[2] Octal”)
Console.WriteLine(“[3] Hexadecimal”)
Console.WriteLine(“[4] Salir”)
Console.Write(“Su opción es: “)
op = Console.ReadLine()
If op = 4 Then Exit Sub                                                       
Console.WriteLine()
Console.Write(“Ingrese número en base 2 a convertir: “)
num = Console.ReadLine()
Console.Clear()
Select Case op
Case 1
Console.WriteLine(“Convirtiendo ” & num & ” a Binario..”)
Do Until num < 2
b = b & CStr(num Mod 2)
num = Int(num / 2)
Loop
b = b & num
c = StrReverse(b)
Console.WriteLine()
Console.WriteLine(“Respuesta: ” & c)                  
Case 2
Console.WriteLine(“Convirtiendo ” & num & ” a Octal..”)
num = Oct(num)
Console.WriteLine()
Console.WriteLine(“Respuesta: ” & num)
Case 3
Console.WriteLine(“Convirtiendo ” & num & ” a Hexadecimal..”) 
a = Hex(num)
Console.WriteLine()
Console.WriteLine(“Respuesta: ” & a)
End Select
Console.ReadLine()
End Sub
End Module