¡Descarga Ejercicios de Programación en Visual Basic: Prácticas para el Aprendizaje y más Ejercicios en PDF de Algoritmos y Programación solo en Docsity!
PRACTICA 1
Module Module Sub Main() 'Muestra mensaje de IGUAL O NO IGUALES una vez introducido un valor numérico Dim numero1, numero2 As Int Console.WriteLine("VERIFICA SI DOS NUMEROS SON IGUALES") Console.Write("Dirige un primer valor numérico : ") numero1 = Console.ReadLine() 'captura del valor Console.Write("Dirige un segundo valor numérico : ") numero2 = Console.ReadLine() 'captura del valor If numero1 = numero2 Then 'comprobar si son IGUALES O DIFERENTES Console.WriteLine("NUMEROS IGUALES ") Else Console.WriteLine("NUMEROS DIFERENTES ") End If Console.WriteLine("Press Any Key to finish") Console.ReadKey() End Sub End Module
PRACTICA 2
Module Module Sub Main() 'Muestra mensaje de PAR o IMPAR una vez introducido un valor numérico Dim numero As Int Console.WriteLine("VERIFICA SI EL VALOR ES NUMERICO ES PAR o IMPAR") Console.Write("Digite un valor numérico : ") numero = Console.ReadLine() 'captura del valor If número Mod 2 = 0 Then 'comprobar si es PAR o IMPAR Console.WriteLine("El valor es numero PAR") Else Console.WriteLine("El valor es número IMPAR") End If Console.WriteLine("Press Any Key to finish") Console.ReadKey() End Sub End Module
PRACTICA 3
Module Module Sub Main() 'Muestra mensaje de POSITIVO o NEGATIVO una vez introducido un valor numérico Dim numero As Int Console.WriteLine("VERIFICA SI EL VALOR ES NUMERICO POSITIVO, NEGATIVO O NEUTRO") Console.Write("Digite un valor numérico : ") numero = Console.ReadLine() 'captura del valor If numero > 0 Then 'comprobar si es POSITIVO, NEGATIVO O NEUTRO Console.WriteLine("El valor es numero POSITIVO") ElseIf numero < 0 Then Console.WriteLine("El valor es numero NEGATIVO") Else Console.WriteLine("El valor es numero NEUTRO") End If Console.WriteLine("Press Any Key to finish") Console.ReadKey() End Sub End Module
PRACTICA 4
Module Module Sub Main(ByVal args As String()) 'Muestra mensaje de Aprovechamiento académico dada una calificación entre 0 y 100 Dim calificación As Int Console.WriteLine("Muestra mensaje de Aprovechamiento académico dada una calificación entre 0 y 100") Console.Write("Digite la calificación obtenida por el estudiante: ") calificación = Console.ReadLine() If calificación = 100 Then Console.WriteLine("Aprovechamiento académico es excelente") ElseIf (calificación >= 90 And calificación < 100) Then Console.WriteLine("Aprovechamiento académico es muy bueno") ElseIf (calificación >= 80 And calificación < 90) Then Console.WriteLine("Aprovechamiento académico es bueno") ElseIf (calificación >= 70 And calificación < 80) Then Console.WriteLine("Aprovechamiento académico es regular") ElseIf (calcification < 70) Then Console.WriteLine("No acredita") End If Console.WriteLine("Press Any Key to finish") Console.ReadKey() End Sub End Module
PRACTICA 6
Module Module Sub Main() 'Calcula según la operación seleccionada por el usuario Dim opción, num1, num2 As Integer Console.WriteLine("Calcula la operación seleccionada por el usuario") Console.WriteLine("1) Suma 2)Resta 3)Multiplicación 4)División 5) Modulo 6) Salir") Console.Write("Introduzca la opción deseada ") opción = Console.ReadLine() Console.Write("Introduzca el primer valor: ") num1 = Console.ReadLine() Console.Write("Introduzca el segundo valor: ") num2 = Console.ReadLine() If opción = 1 Then Console.WriteLine("{0} + {1} = {2} : ", num1, num2, num1 + num2) ElseIf opción = 2 Then Console.WriteLine("{0} - {1} = {2} : ", num1, num2, num1 - num2) ElseIf opción = 3 Then Console.WriteLine("{0} * {1} = {2} : ", num1, num2, num1 * num2) ElseIf opción = 4 Then Console.WriteLine("{0} / {1} = {2} : ", num1, num2, num1 / num2) ElseIf opción = 5 Then Console.WriteLine("{0} Modulo {1} = {2} ", num1, num2, num1 Mod num2) Else : Console.WriteLine("opcion no valida")
End If Console.Write("Press Any Key") Console.ReadKey() End Sub End Module
PRACTICA 7
Module Module Sub Main(ByVal args As String()) 'Muestra en nombre el día de la semana una vez capturado su valor numérico Dim día As Int Console.WriteLine("Muestra en nombre del día de la semana una vez capturado su valor numérico") Console.Write("Digite el día de la semana: ") día = Console.ReadLine() If día = 1 Then Console.WriteLine("Lunes") ElseIf (día = 2) Then Console.WriteLine("Martes") ElseIf (día = 3) Then Console.WriteLine("Miércoles") ElseIf (día = 4) Then Console.WriteLine("Jueves") ElseIf (día = 5) Then Console.WriteLine("Viernes") ElseIf (día = 6) Then Console.WriteLine("Sábado") ElseIf (día = 7) Then Console.WriteLine("Domingo") End If Console.WriteLine("Press Any Key to finish") Console.ReadKey() End Sub End Module
PRE-EXAMENES
Module Module Sub Main() 'dado un valor flotante desde teclado que represente la hora del día determina y notifica a través de un mensaje en pantalla si es la hora es "AM" o "PM" Dim hora As Double Console.WriteLine("Definir la hora si es AM o PM ") Console.Write("Captura la hora: ") hora = Console.ReadLine() Select Case hora Case 0.0 To 11. Console.WriteLine("AM") Case 12.0 To 23. Console.WriteLine("PM") Case Else Console.WriteLine("INVALIDO") End Select Console.WriteLine("Press Any Key") Console.ReadKey() End Sub End Module Module Module Sub Main() Dim mes As Integer Console.WriteLine("Muestra estación del año") Console.Write("Captura el valor del mes: ") mes = Console.ReadLine() Select Case mes Case 3 To 5 Console.WriteLine("La estación del año es: Primavera") Case 6 To 8 Console.WriteLine("La estación del año es: Verano") Case 9 To 11 Console.WriteLine("La estación del año es: Otoño") Case 1 To 2 Or 12 Console.WriteLine("La estación del año es: Invierno") Case Else Console.WriteLine("INVALIDO") End Select Console.WriteLine("Press Any Key") Console.ReadKey() End Sub End Module
Module Module Sub Main() Dim día As Integer Console.WriteLine("Indica la clasificación del día de la semana, dado el número del día") Console.Write("Introduzca valor numérico del día: ") día = Console.ReadLine() Select Case día Case 1, 2 Console.WriteLine("Buen inicio de semana") Case 3, 4 Console.WriteLine("Ya casi; Mitad de semana") Case 5, 6, 7 Console.WriteLine("Maravilloso Fin de Semana") Case Else Console.WriteLine("INVALIDO") End Select Console.WriteLine("Press Any Key") Console.ReadKey() End Sub End Module Module Module Sub Main() Dim hora As Integer Console.WriteLine("Hora de que comida es") Console.Write("Capture la hora: ") hora = Console.ReadLine() Select Case hora Case 9 To 11 Console.WriteLine("Desayuno") Case 12 To 14 Console.WriteLine("Almuerzo") Case 15 To 16 Console.WriteLine("Comida") Case 19 To 21 Console.WriteLine("Cena") Case Else Console.WriteLine("INVALIDO") End Select Console.WriteLine("Press Any Key") Console.ReadKey() End Sub End Module
“ALGORITMOS Y LENGUAJES DE PROGRAMACION”
LUNES Y MIERCOLES
11:00 A 15:OO
DOCENTE: VIOLETA MARTINEZ RAMIREZ
ALUMNA: KARLA ESTEFANIA MEZA SALAS
UNIDAD 4
CICLOS
NO.CONTROL:
FECHA: 27- 05-
Ejercicio 1. Muestra 10 números Ciclos FOR
Module Module Sub Main(ByVal args As String()) Dim i As Integer Console.WriteLine("Se muestram 10 valores") For i = 1 To 10 Console.WriteLine("Valor de i:" & i) Next Console.WriteLine("Fin") Console.ReadKey() End Sub End Module
Ejercicio 2. Muestra 10 números Ciclos FOR de forma inversa
Module Module Sub Main(ByVal rgs As String()) Dim i As Integer Console.WriteLine("Se muestran 10 valores inversos") For i = 10 To 1 Step - Console.WriteLine("Valor de i:" & i) Next Console.WriteLine("Fin") Console.ReadKey() End Sub End Module
Ejercicio 3. Muestra 10 números Ciclos FOR Serie de 5 en 5
Module Module Sub Main(ByVal rgs As String()) Dim i As Integer Dim t As Integer Console.WriteLine("Tablas de multiplicar") Console.WriteLine("Introduce el valor de la tabla") t = Console.ReadLine() For i = i To 10 Console.WriteLine("{0} X {1} = {2} ", t, i, (t * i)) Next Console.WriteLine("Fin") Console.ReadKey() End Sub End Module
Ejercicio 6. Muestra Tabla de Multiplicar Ciclo FOR
Module Module Sub Main(ByVal rgs As String()) Dim i As Integer Dim t As Integer Console.WriteLine("Tablas de multiplicar Inversa") Console.WriteLine("Introduce el valor de la tabla") t = Console.ReadLine() For i = 10 To 1 Step - Console.WriteLine("{0} X {1} = {2} ", t, i, (t * i)) Next Console.WriteLine("Fin") Console.ReadKey() End Sub End Module
Ejercicio 7. Muestra Potencia de un valor Ciclo FOR
Module Module Sub Main(ByVal rgs As String()) Dim i As Integer Dim x, n, Potencia As Integer Console.WriteLine("Potencia de un numero X^2") Console.WriteLine("Introduce el valor de la base") x = Console.ReadLine() Console.WriteLine("Introduce el valor de la potencia") n = Console.ReadLine() Potencia = 1 For i = 1 To n Potencia = Potencia * x Next Console.WriteLine("{0}^ {1} = {2} ", x, n, Potencia) Console.ReadKey() Console.WriteLine("Fin") End Sub End Module
Ejercicio 8. Muestra Factorial de un valor Ciclo FOR
Module Module Sub Main(ByVal rgs As String()) Dim i As Integer Dim n, Factorial As Integer Console.WriteLine("Factorial de un número") Console.WriteLine("Introduce el valor de la numero") n = Console.ReadLine() Factorial = 1 For i = 1 To n Factorial = Factorial * i Next Console.WriteLine("{0}! = {1} ", n, Factorial) Console.ReadKey() Console.WriteLine("Fin") End Sub End Module
Module Module Sub Main(ByVal rgs As String()) Dim i As Integer For a = 100 To 1 Step - Console.WriteLine(a) 'contara de 100 hasta 10 (a tomara los valores 100, 90 etc) Next Console.WriteLine("Pulse Tecla para finalizar") Console.ReadLine() End Sub End Module
Ejercicio 11. Muestra las primeras 10 Potencia enteras Ciclo FOR
Module Module Sub Main(ByVal rgs As String()) Dim Potencia As Int Dim x, n, i As Integer Console.WriteLine("las primeras 10 Potencia enteras") Potencia = 1 For i = 1 To 10 Potencia = i ^ i Console.WriteLine("{0}^ {1} = {2} ", i, i, Potencia) Next Console.ReadKey() Console.WriteLine("Fin") Console.ReadKey() End Sub End Module
Ejercicio 12. Contará de 1 hasta 10 (a tomará los valores 1, 2 etc.)Ciclo
FOR
- Module Module Sub Main(ByVal rgs As String()) Dim num, ope, tot As Integer Console.WriteLine("Ingrese número a multiplicar") ope = Console.ReadLine Console.WriteLine("-----------------------") For num = 1 To 12 'Console.WriteLine(num) tot = num * ope Console.WriteLine(num & " * " & ope & " = " & tot) 'Console.ReadLine() 'contara de 1 hasta 10 (a tomara los valores 1, 2 etc) Next Console.WriteLine("-----------------------") Console.WriteLine("Press Any Key") Console.ReadLine() End Sub End Module
Ejercicio 13. Muestra los números impares
- Module Module Sub Main(ByVal rgs As String()) Dim variablecontrol, condicioncontrol, incremento As Integer variablecontrol = 0 condicioncontrol = 10 incremento = 2 While variablecontrol <= condicioncontrol Console.WriteLine(variablecontrol) variablecontrol += 2 End While Console.ReadKey() Console.WriteLine("Fin") End Sub End Module
Ejercicio 16. Captura números hasta que la suma pase del lmite, y
visualiza el total capturado
- Module Module Sub Main(ByVal rgs As String()) Dim numero, variableContador, limite, variableAcumulador As Integer variableContador = 0 variableAcumulador = 0 Console.WriteLine("Captura números hasta que la suma de ellos pase del límite definido") Console.WriteLine("Digite el valor límite de la sumatoria") limite = Console.ReadLine While variableAcumulador < limite Console.WriteLine("Digite nuevo valor") numero = Console.ReadLine variableContador += 1 variableAcumulador += numero End While Console.WriteLine("En total fueron {0} números capturados", variableContador) Console.WriteLine("La suma total de números capturados es {0}: ", variableAcumulador) Console.ReadKey() Console.WriteLine("Fin") End Sub End Module
Ejercicio 17. Muestra 10 números con While
- Module Module Sub Main() Dim a As Integer ' mostrar los valores consecutivos del 0 al 9 While a < 10 Console.WriteLine(a) a = a + 1 End While Console.WriteLine("Pulsa Tecla") Console.ReadLine() End Sub End Module
Ejercicio 18. Mostrará los valores de a multiplicado por b
- Module Module Sub Main() Dim a, b As Integer b = 3 While a <= 12 Console.WriteLine(a * b) a = a + 1 ' mostrara los valores de a multiplicado por b End While Console.WriteLine("Pulse una Tecla") Console.ReadLine() End Sub End Module
Ejercicio 19 uso de Do Until-Loop (Mas sobre las variantes del Do-While)
- Module Module Sub Main() Dim a As Integer a = 0 Do Until a > 9 Console.WriteLine(a) a = a + 1 Loop 'este bucle se debe de repetir para valores de a desde 0 hasta 9 Console.WriteLine("Press Any Key") Console.ReadLine() End Sub End Module
Ejercicio 20 uso de Do-Loop While (Mas sobre las variantes del Do-While)
- Module Module Sub Main() Dim a As Integer a = 0 Do While Not (a > 9) Console.WriteLine(a) a = a + 1 Loop Console.WriteLine("Press Any Key") Console.ReadLine() End Sub End Module
