ESTRUCTURAS DE CONTROL EN VB .NET
- Practicar las estructuras de control de selección
- Practicar las estructura de control de repetición
1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada.
Código en Visual Basic.
Solución
3. Capturar la edad de una persona, determinar e imprimir si es o no mayor de edad.
Código en Visual Basic
Solución
5. Capturar por teclado 3 números enteros y determinar cuál es el mayor.
Código en Visual Basic.
Solución
7. Capturar un número por teclado e imprimir si dicho número es primo o no.
Código en Visual Basic
Solución
9. Mostrar los números del 1 al 100
Código en Visual Basic
Solución
11. Capturar 10 números enteros, calcular e imprimir el cubo de la suma de los números capturados.
Código en Visual Basic
Solución
13. Capturar la nota promedio y el promedio de asistencia de una cantidad de estudiantes especificada por el usuario a través del teclado, calcular e imprimir cuantos aprobaron la materia, cuantos harán complementario y cuantos reprobaron.
Código en Visual Basic
Module Module1
Sub Main()
Dim n, prom, asis, total As Decimal
Dim apro, comple, repro As Integer
apro = 0
comple = 0
repro = 0
Console.Write("Ingrese la cantidad de estudiantes a evaluar: ")
n = Console.ReadLine()
Console.WriteLine()
For i = 1 To n
Console.WriteLine("Estudiante " & i)
Console.Write("Nota promedio del estudiante: ")
prom = Console.ReadLine()
Console.Write("Promedio de asistencia: ")
asis = Console.ReadLine()
Console.WriteLine()
total = (prom + asis) / 2
If total >= 6 Then
apro = apro + 1
Else
If total >= 5 And total <= 5.99 Then
comple = comple + 1
Else
If total < 5 Then
repro = repro + 1
End If
End If
End If
Next
Console.WriteLine()
Console.WriteLine("La cantidad de alumnos aprobados es de: " & apro)
Console.WriteLine("La cantidad de alumnos que iran a examen complementario es de: " & comple)
Console.WriteLine("La cantidad de alumnos reprobados es de: " & repro)
Console.ReadLine()
End Sub
End Module
Pantalla de salida
15. Escriba un programa para generar 5 tablas de multiplicar de números aleatorios entre 20 y 50.
Código en Visual Basic
Solución
17. Capturar por teclado un número de teléfono, calcular e imprimir cuantos dígitos pares e impares posee.
Código en Visual Basic
Solución.
19. 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, b, o, h As Integer
Do Until op = 4
Console.WriteLine("(1) Binario")
Console.WriteLine("(2) Octal")
Console.WriteLine("(3) Hexadecimal")
Console.WriteLine("(4) Salir")
Console.WriteLine("¿Cual es su opción?: ")
op = Console.ReadLine()
If op = 4 Then Exit Do
Console.Clear()
Console.Write("Ingrese número decimal ")
b = CType(Console.ReadLine(), Integer)
Console.WriteLine()
Console.WriteLine("{0} en binario es {1}.",
b, Convert.ToString(b, 2))
Console.ReadKey()
o = CType(Console.ReadLine(), Integer)
Console.WriteLine()
Console.WriteLine("{0} en octal es {8}.",
o, Convert.ToString(123, 8))
Console.ReadKey()
h = CType(Console.ReadLine(), Integer)
Console.WriteLine()
Console.WriteLine("{0} en hexadecimal es {16}.",
h, Convert.ToString(254, 8))
Console.ReadKey()
Loop
End Sub
End Module
Código en Visual Basic
Module Module2
Sub Main()
Dim op, b, o, h As Integer
Do Until op = 4
Console.WriteLine("(1) Binario")
Console.WriteLine("(2) Octal")
Console.WriteLine("(3) Hexadecimal")
Console.WriteLine("(4) Salir")
Console.WriteLine("¿Cual es su opción?: ")
op = Console.ReadLine()
If op = 4 Then Exit Do
Console.Clear()
Console.Write("Ingrese número decimal ")
b = CType(Console.ReadLine(), Integer)
Console.WriteLine()
Console.WriteLine("{0} en binario es {1}.",
b, Convert.ToString(b, 2))
Console.ReadKey()
o = CType(Console.ReadLine(), Integer)
Console.WriteLine()
Console.WriteLine("{0} en octal es {8}.",
o, Convert.ToString(123, 8))
Console.ReadKey()
h = CType(Console.ReadLine(), Integer)
Console.WriteLine()
Console.WriteLine("{0} en hexadecimal es {16}.",
h, Convert.ToString(254, 8))
Console.ReadKey()
Loop
End Sub
End Module
Solución
Las estructuras utilizadas en esta práctica fueron las selectivas y repetitivas de Visual Basic. En lenguajes de programación, las estructuras de control permiten modificar el flujo de ejecución de las instrucciones de un programa.Con las estructuras de control se puede:
ResponderEliminarDe acuerdo a una condición, ejecutar un grupo u otro de sentencias (If-Then-Else)
De acuerdo al valor de una variable, ejecutar un grupo u otro de sentencias (Select-Case)
Ejecutar un grupo de sentencias mientras se cumpla una condición (Do-While)
Ejecutar un grupo de sentencias hasta que se cumpla una condición (Do-Until)
Ejecutar un grupo de sentencias un número determinado de veces (For-Next)