EJERCICIOS DE VISUAL BASIC.NET - CONSOLA.pdf

Manual de Ejercicios de Visual Basic .NET

DOCENTE: ING. FRANK ALAVE OSCO

LIMA - PERÚ


Procedimiento para Ingresar a Visual Basic .NET 2010: Click sobre el botón Inicio en la Barra de tareas. t areas. Seleccione Todos los programas. o Click sobre Microsoft Visual Studio .NET 2010 o Click sobre Microsoft Visual Studio .NET 2010 Se visualiza la Página de inicio de Microsoft Visual Studio .NET  





Click sobre el link Crear Proyecto…


Procedimiento para Ingresar a Visual Basic .NET 2010: Click sobre el botón Inicio en la Barra de tareas. t areas. Seleccione Todos los programas. o Click sobre Microsoft Visual Studio .NET 2010 o Click sobre Microsoft Visual Studio .NET 2010 Se visualiza la Página de inicio de Microsoft Visual Studio .NET  





Click sobre el link Crear Proyecto…


  





Verificar que se encuentre seleccionado Visual Basic – Windows Windows (Tipos de proyectos) Click sobre Aplicación de Consola (o cualquier otra plantilla a trabajar) en Plantillas Digitar el Nombre de la aplicación a crear (opcional), por ejemplo Ejercicio1 Click sobre el botón Examinar para darla la ruta al archivo a crear

Click sobre el botón Aceptar o Retorna a la ventana anterior




Click sobre el botón Aceptar

Nota: VB .NET crea una nueva carpeta para el proyecto y guarda los ficheros del proyecto dentro de ella, incluso antes de que la edite. El IDE guarda los cambios en los ficheros del proyecto por defecto cada vez que lo ejecutamos. Descripción de la ventana principal de Visual Basic .NET (Consola) La pantalla principal de Visual Basic .NET es el IDE de Visual Studio .NET. La ventana principal es el diseñador de formularios, la superficie gris (Formulario) es la ventana de la nueva ventana en modo diseño. Barra de Titulo

Barra de Herramientas

Barra de Menús

Ventana Explorador de Soluciones

Barra Editor de textos

Ventana de codificación

Ventana de resultados

Ventana de propiedades


Gráfica representativa de una Clase Consola en C#:

System

Wr ite o WriteLine

Console

Write WriteLine Read ReadLine

Permite visualizar el texto a leer (etiqueta), así como la variable a ver como resultado Console.WriteLine(“Hola que tal”); Console.WriteLine(tot);  

Read o ReadLine

Permite detener la aplicación para poder visualizar el texto a leer, así como la de ingresar un dato de una variable Console.ReadLine(); tot=Console.ReadLine()  

Procedimiento para crear una nueva aplicación de Consola: Click sobre el Menú Archivo Seleccionar Nuevo o Click sobre Proyecto o Verificar que se encuentre seleccionado Visual Basic – Windows (Tipos de proyectos) o Click sobre Aplicación de Consola en Plantillas o Digitar el Nombre de la aplicación a crear (opcional), por ejemplo Ejercicio2 Click sobre el botón Aceptar  



Se visualiza:

Es decir, se crea un módulo llamado Module1 y un procedimiento llamado Sub Main, que por otro lado es el que sirve como punto de entrada al programa. Por ahora sólo debes saber que


los procedimientos Sub son como instrucciones y cuando se usan en otras partes del programa, se ejecuta el código que haya en su interior. Nota: Una aplicación de Consola es un Modulo. Main () es el nombre de la subrutina que se ejecutara automáticamente cuando se inicia la aplicación de Consola. El código a ejecutar debe estar situado entre las sentencias Sub Main () y End Sub. Una aplicación de Consola usa la misma codificación a la aplicación Windows, con la diferencia que esta usa la sentencia Console.Writeline para mostrar los mensajes en la ventana Comandos. Una aplicación de Consola no reacciona ante eventos por que no tiene una interfaz visible, sin embargo, es fácil añadir elementos de una interfaz de Windows a una aplicación de Consola. La utilidad de las aplicaciones de Consola es la de poder comprobar una determinada característica del lenguaje sin tener que construir una interfaz de usuario. Las dos últimas líneas son iguales para todas las aplicaciones de Consola utilizando la sentencia Console.ReadLine. Sin ellas, la ventana de comandos se cerraría tan pronto como se llegara a la sentencia End Sub, y no tendría la oportunidad de ver el resultado. Las aplicaciones de Consola son útiles para comprobar pequeños segmentos de 










Estructura Secuencial Ejercicio de Consola: Diseñar un programa en Consola que me permita visualizar un nombre y un apellido Module Module1 Sub Main() Dim nom = "carlos", ape = "vizarreta" Console.WriteLine("visualizando el nombre y apellido") Console.WriteLine("el nombre a visualizar es: " & nom) Console.WriteLine("el apellido a visualizar es: " & ape) Console.ReadLine() End Sub End Module Ejercicio de Consola: Diseñar un programa en Consola que me permita insertar un nombre y que luego me permita visualizar el mensaje “el nombre introducido es…………. “

Module Module1 Sub Main() Dim cadena As String Console.WriteLine("por favor, introduzca su nombre") cadena = Console.ReadLine() cadena = "el nombre introducido es:" & cadena Console.WriteLine(cadena) Console.ReadLine() End Sub End Module Ejercicio de Consola: Diseñar una aplicación donde se visualice lo siguiente: Hola Cual es tu nombre Buenos días (le debe permitir ingresar su nombre) al ejecutar debe visualizarse así: Hola Buenos días …………..

Sub Main() Dim nom As String Console.WriteLine("Hola") Console.WriteLine("Cual es tu nombre") Console.WriteLine("Buenos días") nom = Console.ReadLine() Console.WriteLine("Buenos días") Console.WriteLine(nom) Console.ReadLine() End Sub


Ejercicio de Consola: Diseñar una aplicación donde se ingrese ciertos datos y luego se debe visualizar los datos ingresados como respuesta: Hola Mi nombre es: Estudio en Tengo la edad de: Sub Main() Dim nom, est, eda As String Console.WriteLine("Hola") Console.WriteLine("Mi nombre es:") nom = Console.ReadLine() Console.WriteLine("Estudio en:") est = Console.ReadLine() Console.WriteLine("Tengo la edad de:") eda = Console.ReadLine() Console.WriteLine("hola") Console.WriteLine(nom) Console.WriteLine("estudias en") Console.WriteLine(est) Console.WriteLine("tienes la edad de") Console.WriteLine(eda) Console.ReadLine() Console.WriteLine("Gracias por la consulta") Console.Read() End Sub Ejercicio de Consola: Diseñar una aplicación que me permita visualizar los datos ingresados por código, el nombre y su edad del usuario. Luego se debe visualizar el mensaje de bienvenida y los datos ingresados. Sub Main() Dim nombre = "Visasoft" Dim numero = "27" Console.WriteLine("hola me llamo:" & nombre & "tengo la edad de" & numero & "años") Console.ReadLine() End Sub Ejercicio de Consola: Crear una aplicación que sume o una dos variables Sub Main() Dim a, b As String Console.WriteLine("digitar el primer texto") a = Console.ReadLine() Console.Write(a) Console.WriteLine("digitar el segundo texto")


b = Console.ReadLine() Console.Write(b) Console.WriteLine("el resultado de la uniòn es:") Console.WriteLine(a + " " + b) Console.Read() End Sub Ejercicio de Consola: Diseñar una aplicación donde se visualice la adición automática de dos constante Sub Main() Dim intx = 10, num = 5 Console.Write(intx) Console.ReadLine() Console.WriteLine("visualizar el numero a sumar") Console.Write(num) Console.ReadLine() Console.WriteLine("el resultado es:") Console.Write(intx + num) Console.Read() End Sub Ejercicio de Consola: Diseñar una aplicación que me permita ingresar dos números, luego se visualizar los números ingresados cada uno respectivamente con la variable previamente ingresada por código. Sub Main() Dim a, b As Integer Console.Write("ingrese el primer elemento ") a = Console.ReadLine Console.Write("ingrese el segundo elemento ") b = Console.ReadLine Console.WriteLine("a es igual a: " & a) Console.WriteLine("b es igual a: " & b) Console.ReadLine() End Sub Ejercicio de Consola: Crear una aplicación que permita ingresar dos valores y luego muestre el resultado de la suma de ellos Sub Main() Dim n1 As Integer Dim n2 As Integer Console.WriteLine("ingrese el primer numero") n1 = Console.ReadLine() Console.WriteLine("ingrese el segundo numero") n2 = Console.ReadLine() Console.WriteLine("el resultado de la suma es") Console.WriteLine(n1 + n2)


Console.Read() End Sub Ejercicio de Consola: Crear una aplicación que permita ingresar tres valores, sabiendo que la formula es la siguiente: valor1+valor2-(valor3-valor1). Mostrar el resultado de la formula. Sub Main() Dim valor1 As Integer Dim valor2 As Integer Dim valor3 As Integer Console.WriteLine("ingrese el primer valor") valor1 = Console.ReadLine() Console.WriteLine("ingrese el segundo valor") valor2 = Console.ReadLine() Console.WriteLine("ingrese el tercer valor") valor3 = Console.ReadLine() Console.WriteLine("el resultado es:") Console.WriteLine(valor1 + valor2 - (valor3 - valor1)) Console.ReadLine() End Sub Ejercicio de Consola: Crear una aplicación que permita ingresar dos valores y que se visualice dos resultados: el de división real y división entera. Sub Main() Dim a As Integer Dim b As Integer Console.Write("primer numero") a = Console.ReadLine() Console.Write("segundo numero") b = Console.ReadLine() Console.WriteLine("visualize la primera division") Console.Write(a / b) Console.ReadLine() Console.WriteLine("visualize la division entera") Console.Write(a \ b) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que me permita visualizar los diferentes formatos de los números ingresados por codificación. Además se debe visualizar el espacio de separación de cada uno. Sub Main() Console.WriteLine("----------------------------") Console.WriteLine("{0,10}{1,5}{2,10}{3}", 10, 15, 23, 450) ' el primero se separa 10 del limite izquierdo, el segundo 5 del primero.... Console.WriteLine("----------------------------")


Console.WriteLine("{0,10:#,###.00}{1,10}", 10.476, 15.355) ' el primero se visualiza con dos decimales, el segundo tal como se ingreso Console.ReadLine() End Sub Ejercicio de Consola: Diseñe un programa que permita hallar el área y el perímetro de un rectángulo. Se considera que: Área = base * altura Perímetro = 2 * (base + altura) Sub Main() Dim base As Integer Dim altura As Integer Console.WriteLine("introduzca la base del cuadrado") base = Console.ReadLine Console.WriteLine("introduzca la altura del cuadrado") altura = Console.ReadLine Console.WriteLine("el area del cuadrado es") Console.WriteLine(base * altura) Console.ReadLine() Console.WriteLine("el perimetro del cuadrado es") Console.WriteLine(2 * (base + altura)) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que permita convertir una longitud dada en metros a sus equivalentes en centímetros, pies, pulgadas y yardas. Se debe considerar: 1 metro = 100 centímetros 1 pulgada = 2,54 centímetros 1 pie = 12 pulgadas 1 yarda = 3 pies Sub Main() Dim metros As Double Console.WriteLine("introduzca la cantidad en metros") metros = Console.ReadLine Console.WriteLine("la cantidad en centimetros es") Console.WriteLine(metros * 100) Console.ReadLine() Console.WriteLine("la cantidad en pulgada es") Console.WriteLine((metros * 100) / 2.54) Console.ReadLine() Console.WriteLine("la cantidad en pie es") Console.WriteLine((((metros * 100) / 2.54)) / 12) Console.ReadLine() Console.WriteLine("la cantidad en yardas es") Console.WriteLine(((((metros * 100) / 2.54)) / 12) / 3) Console.ReadLine()


End Sub Ejercicio de Consola: En una competencia atlética de velocidad el tiempo se mide en minutos, segundos y centésimas de segundo; y el espacio recorrido se mide en metros. Diseñar una aplicación para determinar la velocidad atleta en km/hr. Sub Main() Dim km, hora, veloc, metro, seg, cent As Single Console.Write("introduzca la cantidad de kilometro : ") : km = Console.ReadLine Console.Write("la cantidad en horas es : ") : hora = Console.ReadLine Console.Write("la cantidad en horas es : ") : seg = hora * 60 Console.WriteLine(seg) Console.Write("la velocidad del atleta en hora es : ") : veloc = km / hora Console.WriteLine(veloc & " kilometros por hora") Console.ReadLine() End Sub Ejercicio de Consola: Una institución benéfica peruana ha recibido tres donaciones en soles, dólares y euros. La donación será repartida en tres rubros: 60% para la implementación de un Centro de Salud 30% para un Comedor de Niños Y el resto para gastos administrativos Determinar el monto en soles que le corresponde a cada rubro, se considera que: 1 dólar = 2.88 soles 1 euro = 1,17 dólar   

Module Module1 Sub Main() Dim euros, dolar, soles, teuro, tdolar, tmarco, tsoles As Double Console.WriteLine("introduzca la cantidad en euros") euros = Console.ReadLine Console.WriteLine("introduzca la cantidad en dolares") dolar = Console.ReadLine Console.WriteLine("introduzca la cantidad en soles") soles = Console.ReadLine Console.WriteLine("la cantidad en soles de los euros es") teuro = ((euros * 1.17) * 3.32) Console.WriteLine(teuro) Console.ReadLine() Console.WriteLine("la cantidad en soles de los dolares es") tdolar = (dolar * 3.32) Console.WriteLine(tdolar) Console.ReadLine() Console.WriteLine("la cantidad total en soles es") tsoles = (teuro + tdolar + soles) Console.WriteLine(tsoles) Console.ReadLine() Console.WriteLine("la cantidad destinada a los Centros de Salud - 60%")


Console.WriteLine(tsoles * 0.6) Console.ReadLine() Console.WriteLine("la cantidad destinada a los Comedores de niños - 30%" ) Console.WriteLine(tsoles * 0.3) Console.ReadLine() Console.WriteLine("la cantidad destinada a Gastos Administrativos - 10%") Console.WriteLine(tsoles * 0.1) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar un programa que permita visualizar la hora actual del sistema, así mismo que permita ingresar la hora, minuto y segundo manualmente. Luego debe permitir visualizar cuantos segundos, minutos y horas faltan para concluir el día. Sub Main() Dim hora, minuto, segundo, restosegundos, restominutos, restohoras, todo As Double Console.WriteLine(Now) Console.WriteLine("ingrese la hora actual") hora = Console.ReadLine() Console.WriteLine("ingrese el minuto actual") minuto = Console.ReadLine() Console.WriteLine("ingrese el segundo actual") segundo = Console.ReadLine() Console.WriteLine("cantidad de horas que restan para culminar el dia") restohoras = (24 - hora) Console.WriteLine(restohoras) Console.WriteLine("cantidad de minutos que restan para culminar el dia") restominutos = (restohoras * 60) Console.WriteLine(restominutos) Console.WriteLine("cantidad de segundos que restan para culminar el dia" ) restosegundos = (restominutos * 60) Console.WriteLine(restosegundos) Console.WriteLine("las horas son " & restohoras & " los minutos son " & restominutos & " y los segundos son " & restosegundos) Console.ReadLine() End Sub Ejercicio de Consola: El sueldo neto de un trabajador se calcula con la suma del sueldo básico más el 12% del monto total de ventas hechas. Diseñar un programa que determine el sueldo neto de un vendedor sabiendo que hizo tres ventas durante el mes. Sub Main() Dim sueldo, venta1, venta2, venta3, porcentaje, total As Single Console.WriteLine("ingrese el sueldo basico")


sueldo = Console.ReadLine() Console.WriteLine("ingrese la primera venta") venta1 = Console.ReadLine() Console.WriteLine("ingrese la segunda venta") venta2 = Console.ReadLine() Console.WriteLine("ingrese la tercera venta") venta3 = Console.ReadLine() Console.WriteLine("el porcentaje por cada venta es del 12%") Console.WriteLine("el porcentaje de las tres ventas es") porcentaje = (venta1 + venta2 + venta3) * 0.12 Console.WriteLine(porcentaje) Console.ReadLine() Console.WriteLine("el total del sueldo a cobrar es") total = sueldo + porcentaje Console.WriteLine(total) Console.ReadLine() End Sub Ejercicio de Consola: Diseña una aplicación que permita determinar el porcentaje de varones y de damas que se encuentran en un salón de clases. Sub Main() Dim varones, damas, total, porcvarones, porcdamas As Single Console.WriteLine("ingrese la cantidad de personas que se encuentran en el aula" ) total = Console.ReadLine() Console.WriteLine("ingrese la cantidad de varones") varones = Console.ReadLine() Console.WriteLine("ingrese la cantidad de damas") damas = Console.ReadLine() Console.WriteLine("El porcentaje de varones en el aula es") porcvarones = varones * 100 / total Console.WriteLine(porcvarones) Console.ReadLine() Console.WriteLine("El porcentaje de damas en el aula es" ) porcdamas = damas * 100 / total Console.WriteLine(porcdamas) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que exprese la capacidad de un disco duro en MB, KB y bytes, conociendo la capacidad del disco GB. Considere que: 1 KB = 1024 bytes 1 MB = 1024 KB 1 GB = 1024 MB Sub Main() Dim gb, mb, kb, b As Double Console.WriteLine("ingrese la capacidad del disco duro")


gb = Console.ReadLine() Console.WriteLine("la cantidad en MB es") mb = gb * 1024 Console.WriteLine(mb) Console.ReadLine() Console.WriteLine("la cantidad en KB es") kb = mb * 1024 Console.WriteLine(kb) Console.ReadLine() Console.WriteLine("la cantidad en byte es") b = kb * 1024 Console.WriteLine(b) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que permita ingresar dos números, luego se debe visualizar como respuesta la operación con las cuatro operaciones básicas. Sub Main() Dim a, b, c As Single Console.WriteLine("ingrese el primer numero") a = Console.ReadLine Console.WriteLine("ingrese el segundo numero") b = Console.ReadLine Console.WriteLine("el resultado de la suma es") c=a+b Console.WriteLine(c) Console.WriteLine("el resultado de la resta es") c=a-b Console.WriteLine(c) Console.WriteLine("el resultado de la multiplicacion es") c=a*b Console.WriteLine(c) Console.WriteLine("el resultado de la division es") c=a/b Console.WriteLine(c) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que permita ingresar un numero de cuatro cifras y luego se debe visualizar las unidades, decenas, centenas y miles. Sub Main() Dim numero, centena, decena, mil, unidad As Integer Console.WriteLine("ingrese el numero de cuatro cifras") numero = Console.ReadLine() Console.WriteLine("cantidad en unidades") unidad = (numero - ((numero \ 10) * 10))


Console.WriteLine(unidad) Console.WriteLine("cantidad en decenas") decena = (numero \ 10) Mod 10 Console.WriteLine(decena) Console.WriteLine("cantidad en centenas") centena = (numero \ 100) Mod 10 Console.WriteLine(centena) Console.WriteLine("cantidad en miles") mil = numero \ 1000 Console.WriteLine(mil) Console.ReadLine() End Sub Estructuras Condicionales o de Decisión Simples o Dobles: Ejercicio de Consola: Diseñar un programa en Consola que me permita insertar dos números y una de las opciones: sumar(1) o restar (2). Sub Main() Dim numero1 As Integer Dim numero2 As Integer Console.WriteLine("introduzca el primer numero") numero1 = Console.ReadLine() Console.WriteLine("introduzca el segundo numero") numero2 = Console.ReadLine() Console.WriteLine("escoja una opcion:1-sumar/2-restar") If (Console.ReadLine = 1) Then Console.WriteLine("el resultado de la suma es:" & numero1 + numero2) Console.ReadLine() Else Console.WriteLine("el resultado de la resta es:" & numero1 - numero2) Console.ReadLine() End If End Sub Ejercicio de Consola: Diseñar un programa en Consola que me permita insertar dos números y una de las opciones: sumar (1) o restar (2). Para resolver la operación se debe crear procedimientos. Sub Main() Dim numero1 As Integer Dim numero2 As Integer Console.WriteLine("introduzca el primer numero") numero1 = Console.ReadLine()


Console.WriteLine("introduzca el segundo numero") numero2 = Console.ReadLine() Console.WriteLine("escoja una opcion:1-sumar/2-restar") If (Console.ReadLine = 1) Then suma(numero1, numero2) Console.ReadLine() Else resta(numero1, numero2) Console.ReadLine() End If End Sub Sub suma(ByVal numero1, ByVal numero2) Console.WriteLine("el resultado de la resta es:" & numero1 + numero2) Console.ReadLine() End Sub Sub resta(ByVal numero1, ByVal numero2) Console.WriteLine("el resultado de la resta es:" & numero1 - numero2) Console.ReadLine() End Sub Ejercicio de Consola: Crear un programa que me permita ingresar el apellido, nombre y tres notas de un alumno. Se debe visualizar el promedio y su condición de aprobado o desaprobado. Sub Main() Dim not1, not2, not3, prom As Integer Dim cond As String Console.Write("ingrese el apellido y nombre : ") : Console.ReadLine() Console.Write("ingrese la primera nota : ") : not1 = Console.ReadLine Console.Write("ingrese la segunda nota : ") : not2 = Console.ReadLine Console.Write("ingrese la tercera nota : ") : not3 = Console.ReadLine prom = (not1 + not2 + not3) / 3 Console.WriteLine("el promedio es : " & prom) If prom >= 10.5 Then cond = "aprobado" Else cond = "desaprobado" End If Console.WriteLine("la condicion es : " & cond) Console.Write("presione la tecla enter para salir") : Console.ReadLine() End Sub Ejercicio de Consola: Diseñar un programa que me permita ingresar un monto en Soles. Si la cantidad ingresada es igual o superior a los mil nuevos soles, entonces tendrá un descuento del 10% o de lo contrario solo del 5%. Se debe visualizar el monto de descuento y el pago a realizar. Sub Main()


Dim soles, desc, tot As Single Dim soles, Console.WriteLine("ingrese Console.WriteLine("ingrese la cantidad en soles") soles" ) soles = Console.ReadLine Console.ReadLine Console.WriteLine("descuento Console.WriteLine("descuento por mayor o igual que 100" ) If soles soles >= 1000 Then desc = soles * 0.1 Else desc = soles * 0.05 End If Console.WriteLine(desc) Console.WriteLine("el Console.WriteLine("el pago a realizar es") es" ) tot = soles - desc Console.WriteLine(tot) Console.ReadLine() End Sub Ejercicio de Consola: Determinar si una persona es mayor o menor edad, y también su sexo de acuerdo a las leyes peruanas. Visualizar Visualizar si es mujer u hombre, su edad edad y si es mayor mayor de edad o no. Sub Main() Sub Main() Dim nom, Dim nom, sex, sexo, adulto As String Dim eda Dim eda As Integer Console.Write("ingresar Console.Write("ingresar nombre de la persona " ) : nom = Console.ReadLine Console.Write("ingresar Console.Write("ingresar sexo de la persona " & "(F o M)") M)") : sex = Console.ReadLine Console.Write("ingresar Console.Write("ingresar edad de la persona " ) : eda = Console.ReadLine If sex sex = "F" Then sexo = "es mujer" Else sexo = "es hombre" End If If eda eda >= 18 Then adulto = "mayor de edad" Else adulto = "menor de edad" End If Console.Write(nom & " " & " & sexo & " y " & " & adulto) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que permita digitar un lenguaje de programación. Al digitar uno de los Visual Basic se visualiza el mensaje que el programa escogido “es excelente” y si se digita otro muestra el mensaje “es otro el escogido”.

Sub Main() Sub Main() Console.WriteLine("Digite Console.WriteLine("Digite su lenguaje favorito") favorito" ) Dim lenguaje Dim lenguaje As String lenguaje = Console.ReadLine() Console.ReadLine()


lenguaje = lenguaje.ToUpper If lenguaje lenguaje = "VISUAL BASIC" Or lenguaje lenguaje = "VISUAL BASIC .NET" Then Console.WriteLine(lenguaje Console.WriteLine(lenguaje & " es excelente") excelente" ) Else Console.WriteLine("es Console.WriteLine("es otro el escogido") escogido" ) End If Console.WriteLine() Console.WriteLine("presione Console.WriteLine("presione una tecla para salir") salir" ) Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que me permita ingresar un número entre uno y siete, este número debe representar los días de la semana. Se debe visualizar el día señalado. Sub Main() Sub Main() Dim numero Dim numero As Integer Dim dia Dim dia As String Console.WriteLine("ingrese Console.WriteLine("ingrese el numero") numero") numero = Console.ReadLine Console.ReadLine Console.WriteLine("el Console.WriteLine("el dia señalado es") es" ) If numero numero = 1 Then dia = "domingo" Else If numero numero = 2 Then dia = "lunes" Else If numero numero = 3 Then dia = "martes" Else If numero numero = 4 Then dia = "miercoles" Else If numero numero = 5 Then dia = "jueves" Else If numero numero = 6 Then dia = "viernes" Else If numero numero = 7 Then dia = "sabado" End If End If End If End If End If End If End If Console.WriteLine(dia) Console.ReadLine()


End Sub Ejercicio de Consola: Una empresa desea pagar a sus empleados todos los beneficios que se requieren, para lo cual desean saber cuanto le van a pagar a cada uno sabiendo que recibe beneficio por su instrucción de estudio (secundaria 5%, Técnica 10% y Profesional 20%); además si es casado recibirá un adicional del 5%, y si es soltero del 3%. Se debe tener en cuenta que si el sueldo excede a los 700 nuevos soles recibirá una bonificación del del 10%. Nota: Se debe visualizar todos los montos. montos. Sub Main() Sub Main() Dim sueldo Dim sueldo As Integer Dim instruccion, Dim instruccion, condicion, pagototal As String Dim pagoinst, Dim pagoinst, pagocond, Pago, cobrobruto, descuento As Single Console.WriteLine("el Console.WriteLine("el sueldo es") es" ) sueldo = Console.ReadLine Console.ReadLine Console.WriteLine("ingrese Console.WriteLine("ingrese la instruccion") instruccion" ) instruccion = Console.ReadLine Console.ReadLine Console.WriteLine("ingrese Console.WriteLine("ingrese la condicion social") social" ) condicion = Console.ReadLine Console.ReadLine Console.WriteLine("el Console.WriteLine("el incremento por instruccion es") es" ) If instruccion instruccion = "secundaria" Then pagoinst = sueldo * 0.05 Else If instruccion instruccion = "tecnica" Then pagoinst = sueldo * 0.1 Else If instruccion instruccion = "profesional" Then pagoinst = sueldo * 0.2 End If End If End If Console.WriteLine(pagoinst) Console.WriteLine("el Console.WriteLine("el incremento por condicion social es") es" ) If condicion condicion = "casado" Then pagocond = sueldo * 0.05 0.05 Else If condicion condicion = "soltero" Then pagocond = sueldo * 0.03 0.03 End If End If Console.WriteLine(pagocond) Console.WriteLine("el Console.WriteLine("el cobro bruto es") es") cobrobruto = sueldo + pagoinst + pagocond Console.WriteLine(cobrobruto) Console.WriteLine("descuento Console.WriteLine("descuento si excede a 700" ) If cobrobruto cobrobruto >= 700 Then pagototal = cobrobruto cobrobruto * 0.1 Else


pagototal = cobrobruto End If Console.WriteLine(pagototal) Console.ReadLine() End Sub Múltiples: Ejercicio de Consola: El ISTP “………………………” está haciendo un descuento del 25 y 50% por la inscripción

de uno o dos más hermanos respectivamente. Si solo se inscribe una persona no existe descuento. Sub Main() Dim a As String Dim b, pag As Integer Dim desc, monto, tot As Single Console.Write("ingrese el apellido y nombre : ") : a = Console.ReadLine Console.Write("ingrese la cantidad de hermanos: " ) : b = Console.ReadLine Console.Write("ingrese el monto de pago por alumno: ") : pag = Console.ReadLine If b = 0 Then tot = pag * 1 desc = 0 ElseIf b = 1 Then tot = pag * 2 desc = pag * 0.25 monto = (pag + pag) - desc ElseIf b = 2 Then tot = pag * 3 desc = pag * 0.5 monto = (pag + pag + pag) - desc End If Console.WriteLine("el monto bruto es : " & tot) Console.WriteLine("el descuento es : " & desc) Console.WriteLine("el monto a pagar : " & monto) Console.Write("presione la tecla enter para salir") : Console.ReadLine() End Sub Ejercicio de Consola: Crear un programa que permita ingresar el apellido, nombre, categoría y sueldo básico de sus trabajadores. Hallar el monto de pago sabiendo que si el trabajador es: Categoría A, es Obrero y se le incrementa el 5% Categoría B, es Empleado y se le incrementa el 10% Categoría C, es Gerente y se le incrementa el 15% Si se ingresara una categoría más, se debe señalar categoría no existente.   

Sub Main() Dim cat As String Dim sueldo, pago, porcent As Single Console.Write("ingrese el apellido del trabajador ") : Console.ReadLine()


Console.Write("ingrese el nombre del trabajador ") : Console.ReadLine() Console.Write("ingrese el sueldo del trabajador ") : sueldo = Console.ReadLine() Console.Write("ingrese la categoria del trabajador ") : cat = Console.ReadLine() If cat = "a" Then pago = (sueldo * 0.05) + sueldo porcent = sueldo * 0.05 Console.WriteLine("el señor es obrero su sueldo es " & sueldo & " mas el 5% " & porcent & " siendo el pago total de " & pago) ElseIf cat = "b" Then pago = (sueldo * 0.1) + sueldo porcent = sueldo * 0.1 Console.WriteLine("el señor es empleado su sueldo es " & sueldo & " mas el 10% " & porcent & " siendo el pago total de " & pago) ElseIf cat = "c" Then pago = (sueldo * 0.15) + sueldo porcent = sueldo * 0.15 Console.WriteLine("el señor es gerente su sueldo es " & sueldo & " mas el 15% " & porcent & " siendo el pago total de " & pago) End If Console.Write("presione enter para terminar") : Console.ReadLine() End Sub Ejercicio de Consola: Determinar si un numero ingresado es positivo, negativo o cero a través de un mensaje. Sub Main() Dim num As Single Dim result As String Console.Write("ingresar numero ") : num = Console.ReadLine If num > 0 Then result = "es positivo" Else If num < 0 Then result = "es negativo" Else result = "es cero" End If End If Console.WriteLine("El numero ingresado " & result) Console.Write("Presione la tecla Enter para salir") : Console.ReadLine() End Sub Ejercicio de Consola: En una playa de estacionamiento cobran S/. 2,5 por hora o fracción. Diseñar una aplicación que determine cuanto debe pagar un cliente por el estacionamiento de su vehículo, conociendo el tiempo de estacionamiento en horas y fracción. Sub Main() Dim hora, minuto, minuto1, result As Single Console.Write("ingrese el tiempo en horas ") : hora = Console.ReadLine


Console.Write("ingrese cantidad de minutos ") : minuto = Console.ReadLine If minuto > 0 And minuto <= 60 Then minuto1 = 2.5 Else minuto1 = 0 Console.Write("ingrese minutos entre 1 y 60 ") : minuto = Console.ReadLine() If minuto > 0 And minuto <= 60 Then minuto1 = 2.5 End If End If result = (hora * 2.5) + minuto1 Console.WriteLine("el pago a realizar es " & result) Console.Write("presione enter para terminar") : Console.ReadLine() End Sub Ejercicio de Consola: Una tienda a puesto en oferta la venta al por mayor de cierto producto, ofreciendo un descuento del 15% por la compra de más de 3 docenas y 10% en caso contrario. Además por la compra de más de tres docenas se le obsequia una unidad del producto comprado. Diseñar un programa que determine el monto de la compra, el monto del descuento y el obsequio (si lo hubiera) por la compra. Sub Main() Dim cant As Integer Dim prec, tot, pago, desc As Single Dim prod As String Console.Write("ingrese el producto ") : prod = Console.ReadLine() Console.Write("ingrese el precio ") : prec = Console.ReadLine() Console.Write("ingrese la cantidad vendida ") : cant = Console.ReadLine() tot = prec * cant Console.WriteLine("el importe es " & tot) If cant >= 36 Then Console.WriteLine("tienes obsequio de un " & prod) desc = tot * 0.15 Console.WriteLine("el descuento es del 15% " & desc) pago = tot - desc Console.WriteLine("el total a pagar es " & pago) Else desc = tot * 0.1 Console.WriteLine("el descuento es del 10% " & desc) pago = tot - desc Console.WriteLine("el total a pagar es " & pago) End If Console.Write("presione enter para terminar") : Console.ReadLine() End Sub Ejercicio de Consola: Una compañía dedicada al alquiler de automóviles cobra un monto fijo de S/. 200,00 para los primeros 300 Km. cobra un monto adicional de S/. 5,00 por cada Km. en exceso sobre los


300. Para más de 1000 Km. cobra un monto adicional de S/. 3,00 por cada Km. en exceso sobre 1000. Determinar el monto a pagar por el alquiler de un vehículo y el monto incluido del impuesto. Sub Main() Dim monto = 200 Dim km, km1, km2, igv, exce, exce1, monto1 As Single Console.Write("ingrese la cantidad de de kilometros recorridos ") : km = Console.ReadLine() If km > 0 And km <= 300 Then Console.WriteLine("el monto a pagar es S/. " & monto) igv = monto * 0.19 ElseIf km > 300 And km <= 1000 Then Console.WriteLine("el monto fijo por los primeros 300 kilometros es " & monto) km1 = km - 300 Console.WriteLine("los kilometros excedidos son " & km1) exce = (km1 * 5) Console.WriteLine("el exceso de los kilometros importa S/. " & exce) monto1 = monto + (km1 * 5) Console.WriteLine("el monto a pagar es S/. " & monto1) ElseIf km > 1000 Then Console.WriteLine("el monto fijo por los primeros 300 kilometros es " & monto) km1 = km - 300 - (km - 1000) Console.WriteLine("los kilometros excedidos de 300 a mil son " & km1) km2 = km - 1000 Console.WriteLine("los kilometros excedidos de mil son " & km2) exce = (km1 * 5) Console.WriteLine("el exceso de los 300 a mil kilometros importa S/. " & exce) exce1 = (km2 * 5) Console.WriteLine("el exceso de mas de mil kilometros importa S/. " & exce1) monto1 = monto + exce + exce1 Console.WriteLine("el monto a pagar es S/. " & monto1) End If Console.Write("presione enter para terminar") : Console.ReadLine() End Sub Ejercicio de Consola: Una fábrica de tornillos desea determinar el grado de eficiencia de sus operarios, de acuerdo a las siguientes condiciones que se le imponen para un periodo de prueba: Menos de 200 tornillos defectuosos Más de 10000 tornillos producidos El grado de eficiencia se determinara de la siguiente manera: Si no cumple ninguna de las condiciones – queda fuera Si solo cumple la primera condicion – sigue a prueba Si solo cumple la segunda condicion – contratado, pero sigue a prueba Si cumple las dos condiciones – contratado  

   

Sub Main() Dim torndef, tornprod As Integer


Console.Write("ingrese la cantidad de tornillos defectuosos " ) : torndef = Console.ReadLine() Console.Write("ingrese la cantidad de tornillos producidos ") : tornprod = Console.ReadLine() If (torndef > 200) And (tornprod <= 10000) Then Console.WriteLine("el señor esta fuera") ElseIf (torndef < 200) And (tornprod < 10000) Then Console.WriteLine("el señor sigue a prueba") ElseIf (torndef > 200) And (tornprod > 10000) Then Console.WriteLine("el señor esta contratado, pero sigue a prueba") ElseIf (torndef < 200) And (tornprod > 10000) Then Console.WriteLine("el señor esta contratado") End If Console.Write("presione enter para terminar") : Console.ReadLine() End Sub Ejercicio de Consola: Diseñar una aplicación que permita ingresar tres números y determine el orden de mayor a menor. Sub Main() Dim num1, num2, num3 As Integer Console.Write("ingrese el primer numero ") : num1 = Console.ReadLine() Console.Write("ingrese el segundo numero ") : num2 = Console.ReadLine() Console.Write("ingrese el tercer numero ") : num3 = Console.ReadLine() If num1 > num2 And num2 > num3 Then Console.WriteLine("el numero mayor es " & num1) Console.WriteLine("el numero medio es " & num2) Console.WriteLine("el numero menor es " & num3) ElseIf num1 < num2 And num2 < num3 Then Console.WriteLine("el numero mayor es " & num3) Console.WriteLine("el numero medio es " & num2) Console.WriteLine("el numero menor es " & num1) ElseIf num2 > num1 And num1 > num3 Then Console.WriteLine("el numero mayor es " & num2) Console.WriteLine("el numero medio es " & num1) Console.WriteLine("el numero menor es " & num3) ElseIf num2 < num1 And num1 < num3 Then Console.WriteLine("el numero mayor es " & num3) Console.WriteLine("el numero medio es " & num1) Console.WriteLine("el numero menor es " & num2) ElseIf num1 > num3 And num3 > num2 Then Console.WriteLine("el numero mayor es " & num1) Console.WriteLine("el numero medio es " & num3) Console.WriteLine("el numero menor es " & num2) ElseIf num1 < num3 And num3 < num2 Then Console.WriteLine("el numero mayor es " & num2) Console.WriteLine("el numero medio es " & num3) Console.WriteLine("el numero menor es " & num1) End If


Console.Write("presione enter para terminar") : Console.ReadLine() End Sub Ejercicio de Consola: El promedio de prácticas de un curso se calcula en base a cuatro prácticas calificadas, de las cuales se elimina la nota menor y se promedian las tres notas más altas. Determinar la nota eliminada y el promedio de prácticas de un estudiante. Sub Main() Dim pract1, pract2, pract3, pract4 As Integer Dim prom, menor, menor1, menor2, menor3 As Integer Console.Write("ingrese la primera nota de practica ") : pract1 = Console.ReadLine Console.Write("ingrese la segunda nota de practica " ) : pract2 = Console.ReadLine Console.Write("ingrese la tercera nota de practica ") : pract3 = Console.ReadLine Console.Write("ingrese la cuarta nota de practica ") : pract4 = Console.ReadLine If pract1 < pract2 And pract2 < pract3 And pract3 < pract4 Then menor = pract1 prom = (pract2 + pract3 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract4) ElseIf pract1 < pract2 And pract2 < pract3 And pract3 > pract4 And pract1 < pract4 Then menor = pract1 prom = (pract2 + pract3 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract4) ElseIf pract1 < pract2 And pract2 > pract3 And pract3 > pract4 And pract1 < pract4 Then menor = pract1 prom = (pract2 + pract3 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract4) ElseIf pract1 < pract2 And pract2 > pract3 And pract3 < pract4 And pract1 < pract3 Then menor = pract1 prom = (pract2 + pract3 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract4) ElseIf pract1 > pract2 And pract2 > pract3 And pract3 > pract4 Then menor = pract4 prom = (pract2 + pract3 + pract1) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract1) ElseIf pract1 < pract2 And pract2 < pract3 And pract3 > pract4 And pract1 > pract4 Then menor = pract4 prom = (pract2 + pract3 + pract1) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract1)


ElseIf pract1 < pract2 And pract2 > pract3 And pract3 > pract4 And pract1 > pract4 Then menor = pract4 prom = (pract2 + pract3 + pract1) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract1) ElseIf pract1 > pract2 And pract2 < pract3 And pract3 > pract4 And pract1 > pract4 Then menor = pract4 prom = (pract2 + pract3 + pract1) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract3 & " - " & pract1) ElseIf pract1 > pract2 And pract2 < pract3 And pract3 < pract4 Then menor = pract2 prom = (pract1 + pract3 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract1 & " - " & pract3 & " - " & pract4) ElseIf pract1 > pract2 And pract2 < pract3 And pract3 > pract4 And pract4 > pract2 Then menor = pract2 prom = (pract1 + pract3 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract1 & " - " & pract3 & " - " & pract4) ElseIf pract1 > pract2 And pract2 > pract3 And pract3 < pract4 Then menor = pract3 prom = (pract2 + pract1 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract1 & " - " & pract4) ElseIf pract1 < pract2 And pract2 > pract3 And pract3 < pract4 And pract1 > pract3 Then menor = pract3 prom = (pract2 + pract1 + pract4) / 3 Console.WriteLine("las notas a sacar promedio son " & pract2 & " - " & pract1 & " - " & pract4) End If Console.WriteLine("la nota menor es " & menor) Console.WriteLine("el promedio de las tres notas mas altas es " & prom) Console.Write("presione enter para salir") : Console.Read() End Sub Ejercicio de Consola: Se cuenta con los votos obtenidos por Juan, Pedro y María en una elección democrática a la presidencia de un club. Para ganar la elección debe tener como mínimo el 50% de los votos más 1. En caso que no haya un ganador se repite la elección en una segunda vuelta. Van a la segunda vuelta los dos candidatos que obtengan la más alta votación. Diseñar el programa que determine el resultado de la elección.   

Sub Main() Dim votos, juan, pedro, maria, juan1, pedro1, maria1 As Integer


Console.Write("ingresar la cantidad total de votos: ") : votos = Console.ReadLine Console.Write("ingresar la cantidad de votos de Juan: ") : juan = Console.ReadLine Console.Write("ingresar la cantidad de votos de Pedro: ") : pedro = Console.ReadLine Console.Write("ingresar la cantidad de votos de Maria: ") : maria = Console.ReadLine If juan > ((votos * 0.5) + 1) Then Console.WriteLine("el ganador es Juan") Else If pedro > ((votos * 0.5) + 1) Then Console.WriteLine("el ganador es Pedro") Else If maria > ((votos * 0.5) + 1) Then Console.WriteLine("la ganadora es Maria") Else If juan > pedro And pedro > maria Then Console.WriteLine("clasifican a la segunda vuelta Juan y Pedro") Console.WriteLine("la cantidad de votos sigue siendo: " & votos) Console.Write("ingresar nuevamente los votos de Juan " ) : juan1 = Console.ReadLine Console.Write("ingresar nuevamente los votos de Pedro " ) : pedro1 = Console.ReadLine Else If juan > pedro And pedro < maria And juan > maria Then Console.WriteLine("clasifican a la segunda vuelta Juan y Maria") Console.WriteLine("la cantidad de votos sigue siendo: " & votos) Console.Write("ingresar nuevamente los votos de Juan " ) : juan1 = Console.ReadLine Console.Write("ingresar nuevamente los votos de Maria " ) : maria1 = Console.ReadLine Else If juan > pedro And pedro < maria And juan < maria Then Console.WriteLine("clasifican a la segunda vuelta Juan y Maria") Console.WriteLine("la cantidad de votos sigue siendo: " & votos) Console.Write("ingresar nuevamente los votos de Juan " ) : juan1 = Console.ReadLine Console.Write("ingresar nuevamente los votos de Maria " ) : maria1 = Console.ReadLine Else If juan < pedro And pedro < maria Then Console.WriteLine("clasifican a la segunda vuelta Maria y Pedro") Console.WriteLine("la cantidad de votos sigue siendo: " & votos) Console.Write("ingresar nuevamente los votos de Maria " ) : maria1 = Console.ReadLine Console.Write("ingresar nuevamente los votos de Pedro " ) : pedro1 = Console.ReadLine Else If juan < pedro And pedro > maria And juan < maria Then Console.WriteLine("clasifican a la segunda vuelta Maria y Pedro") Console.WriteLine("la cantidad de votos sigue siendo: " & votos) Console.Write("ingresar nuevamente los votos de Maria " ) : maria1 = Console.ReadLine


Console.Write("ingresar nuevamente los votos de Pedro " ) : pedro1 = Console.ReadLine Else If juan < pedro And pedro > maria And juan > maria Then Console.WriteLine("clasifican a la segunda vuelta Maria y Pedro") Console.WriteLine("la cantidad de votos sigue siendo: " & votos) Console.Write("ingresar nuevamente los votos de Juan " ) : juan1 = Console.ReadLine Console.Write("ingresar nuevamente los votos de Pedro " ) : pedro1 = Console.ReadLine End If End If End If End If End If End If End If End If End If If juan1 > ((votos * 0.5) + 1) Then Console.WriteLine("el ganador es Juan") Console.WriteLine("presione la tecla enter para terminar") : Console.Read() Else If maria1 > ((votos * 0.5) + 1) Then Console.WriteLine("la ganadora es Maria") Console.WriteLine("presione la tecla enter para terminar") : Console.Read() Else If pedro1 > ((votos * 0.5) + 1) Then Console.WriteLine("el ganador es Pedro") Console.WriteLine("presione la tecla enter para terminar") : Console.Read() End If End If End If Console.ReadLine() End Sub Ejercicio de Consola: Se desea una aplicación que permita saber en qué estación se encuentra, para ello se debe ingresar tanto el día del mes, así como el mes. Sub Main() Dim mes, dia As Integer Console.Write("ingrese el mes: ") : mes = Console.ReadLine Console.Write("ingrese el dia: ") : dia = Console.ReadLine Console.Write("la estacion es: ") If (mes = 12 And (dia >= 21 And dia <= 31)) Or (mes = 1 And (dia >= 1 And dia <= 31)) Or (mes = 2 And (dia >= 1 And dia <= 28)) Or (mes = 3 And (dia >= 1 And dia <= 21)) Then Console.WriteLine("Verano") Console.ReadLine()


Else If (mes = 3 And (dia > 21 And dia <= 31)) Or (mes = 4 And (dia >= 1 And dia <= 30)) Or (mes = 5 And (dia >= 1 And dia <= 31)) Or (mes = 6 And (dia >= 1 And dia <= 21)) Then Console.WriteLine("Otoño") Console.ReadLine() Else If (mes = 6 And (dia >= 22 And dia <= 30)) Or (mes = 7 And (dia >= 1 And dia <= 31)) Or (mes = 8 And (dia >= 1 And dia <= 31)) Or (mes = 9 And (dia >= 1 And dia <= 22)) Then Console.WriteLine("Invierno") Console.ReadLine() Else If (mes = 9 And (dia >= 23 And dia <= 30)) Or (mes = 10 And (dia >= 1 And dia <= 31)) Or (mes = 11 And (dia >= 1 And dia <= 30)) Or (mes = 12 And (dia >= 1 And dia <= 20)) Then Console.WriteLine("Primavera") Console.ReadLine() End If End If End If End If End Sub Ejercicio de Consola: Trabajando con Select Case de acuerdo al número ingresado (todos los modos de trabajar con este elemento). Sub Main() Dim num As Integer Console.Write("ingrese el numero: ") : num = Console.ReadLine Select Case 1 Case 3 Console.WriteLine("Mostrara el mensaje siempre y cuando el valor ingresado sea 3") Case 6 To 11 Console.WriteLine("Mostrara el mensaje siempre y cuando el valor ingresado este comprendido entre 6 y 12") Case 14, 17 Console.WriteLine("Mostrara el mensaje siempre y cuando el valor ingresado sea 14 0 17") Case Is > 18 Console.WriteLine("Mostrara el mensaje siempre y cuando el valor ingresado sea mayor a 18") Case Else Console.WriteLine("Se mostrara este mensaje si el valor ingresado no coincide con ninguno de los anteriores") End Select Console.ReadLine() End Sub


Estructuras Cíclicas o Repetitivas Ejercicio de Consola: Se desea calcular el salario neto mensual de un trabajador en función del número de horas trabajadas y las diferentes tasas de impuestos de acuerdo a la siguiente tabla: Las primeras 40 horas se pagan a tarifa normal. Las horas que excedan a 40, se pagan a 1,5 veces de la tarifa normal. Las tasas de impuestos son: Los primeros S/. 200,00 (nuevos soles) son libres de impuestos. Los siguientes S/. 200,00 (nuevos soles) tienen un impuesto del 25%. Los restantes o excedentes tienen un impuesto del 35%. Nota: El ejercicio debe repetirse dos veces sin salir de la ejecución.  

  

Sub Main() Dim nom As String Dim rep, hor, exc As Integer Dim suel, pag, sal, pag1, sal1, imp, cob As Single For rep = 1 To 2 Console.Write("Ingresar numero de horas trabajadas: ") : hor = Console.ReadLine Console.Write("Ingresar sueldo basico por horas: " ) : suel = Console.ReadLine If hor > 40 Then pag = 40 * suel exc = hor - 40 sal = suel * 1.5 sal1 = exc * sal pag1 = (40 * suel) + (exc * sal) Console.WriteLine("El pago bruto de las primeras 40 horas es: " & pag) Console.WriteLine("El exceso de horas es: " & exc) Console.WriteLine("El pago por cada hora excedida es: " & sal) Console.WriteLine("El pago de las horas excedidas es: " & sal1) Console.WriteLine("El pago bruto a cobrar es: " & pag1) Else pag1 = hor * suel Console.WriteLine("El pago bruto de las primeras 40 horas es: " & pag1) End If Console.Write("hallando la tasa de interes ") : Console.ReadLine() If pag1 <= 200 Then Console.WriteLine("El pago bruto es sin descuentos: " & pag1) Else If pag1 > 200 And pag1 <= 400 Then imp = (pag1 - 200) * 0.25 cob = pag1 - imp Console.WriteLine("El impuesto por los primeros S/. 200 no hay: ") Console.WriteLine("El impuesto por mas de S/. 200 es: " & imp) Console.WriteLine("El pago a realizar es: " & cob) Else If pag1 > 400 Then imp = ((pag1 - 200) * 0.35) cob = pag1 - imp Console.WriteLine("El impuesto por los primeros S/. 200 no hay: " )


Console.WriteLine("El impuesto por mas de S/. 200 hasta S/. 400 es: " & imp) Console.WriteLine("El pago a realizar es: " & cob) End If End If End If Console.ReadLine() Next If rep = 3 Then Exit Sub End If End Sub Ejercicio de Consola: Una ferretería desea tener un programa que le permita seleccionar cualquiera de las dos opciones, según la tabla mostrada: Ferretería Aparatos sanitarios Equipos italianos Equipos brasileños Equipos americanos

150 130 200

Materiales de construcción Ladrillos Cemento Arena Agregados Madera

150 17 15 25 3

Se debe tener en cuenta que la tercera opción es salir, es decir que se debe seguir trabajando mientras no se utilice la tercera opción. Sub Main() Dim opcion As Integer opcion = 0 Do While opcion < 3 Console.WriteLine("sistema de ventas") Console.WriteLine("[1] aparatos sanitarios") Console.WriteLine("[2] materiales de construccion") Console.WriteLine("[3] terminar") Console.WriteLine("elija la opcion de la ferrteria") opcion = Console.ReadLine() Select Case opcion Case Is = 1 aparatos() Case Is = 2 materiales() End Select Loop End Sub Private Sub aparatos() Dim pagar As Decimal Dim vta As Decimal


Dim ttarifa As Integer Dim vtarifa As Decimal Console.WriteLine("aparatos sanirarios") Console.WriteLine("[1] equipos itallianos") Console.WriteLine("[2] equipos brasileños") Console.WriteLine("[3} equipos americanos") Console.WriteLine("elegir las clases de equipos sanitarios") ttarifa = Console.ReadLine() Console.WriteLine("que cantidad desea comprar") vta = Console.ReadLine() Select Case ttarifa Case Is = 1 vtarifa = 150 pagar = vta * vtarifa Case Is = 2 vtarifa = 130 pagar = vta * vtarifa Case Is = 3 vtarifa = 200 pagar = vta * vtarifa End Select Console.WriteLine("se pagara:" + Str(pagar)) Console.ReadLine() End Sub Private Sub materiales() Dim pagar As Decimal Dim vtm As Decimal Dim ttarifa As Integer Dim vtarifa As Decimal Console.WriteLine("materiales de construccion") Console.WriteLine("[1] ladrillos") Console.WriteLine("[2] cemento") Console.WriteLine("[3] bolsa de arena") Console.WriteLine("[4] agregados") Console.WriteLine("[5] madera") Console.WriteLine("elegir que material de construccion desea comprar" ) ttarifa = Console.ReadLine() Console.WriteLine("que cantidad de materiales desea comprar") vtm = Console.ReadLine() Select Case ttarifa Case Is = 1 vtarifa = 150 pagar = vtm * vtarifa Case Is = 2 vtarifa = 17 pagar = vtm * vtarifa Case Is = 3 vtarifa = 15 pagar = vtm * vtarifa


Case Is = 4 vtarifa = 25 pagar = vtm * vtarifa Case Is = 5 vtarifa = 3 pagar = vtm * vtarifa End Select Console.WriteLine("se pagara:" + Str(pagar)) Console.ReadLine() End Sub Ejercicio de Consola: Una empresa de transporte de carga, pasajeros, encomiendas y de animales desea calcular el monto de pago por cada una de las opciones propuestas según la tabla: Carga Agroindustrial Metales Madera

Transporte de: Pasajeros Encomiendas Animales 3,1 Lima-Ica 22 Sobres 5 25 2,75 Ica-Nazca 10 Paquetes 12 3,05 Nazca-Ayacucho 30 Bultos 7

Se debe tener en cuenta que la quinta opción es salir, es decir que se debe seguir trabajando mientras no se utilice la tercera opción. Sub Main() Dim opcion As Integer opcion = 0 Do While opcion < 5 Console.WriteLine("sistema de transportes") Console.WriteLine("[1]transporte de carga") Console.WriteLine("[2]transporte de pasajeros") Console.WriteLine("[3]transporte de encomiendas") Console.WriteLine("[4]transporte de animales") Console.WriteLine("[5]terminar") Console.WriteLine("elija la opcion ha utilizar") opcion = Console.ReadLine() Select Case opcion Case Is = 1 carga() Case Is = 2 pasajeros() Case Is = 3 encomiendas() Case Is = 4 animales() End Select Loop End Sub Private Sub carga()


Dim pagar As Decimal Dim peso As Decimal Dim ttarifa As Integer Dim vtarifa As Decimal Console.WriteLine("transporte de carga") Console.WriteLine("[1]trannsporte agrindustrial") Console.WriteLine("[2]transporte metales") Console.WriteLine("[3}transporte de madera") Console.WriteLine("elegir el transporte de carga") ttarifa = Console.ReadLine() Console.WriteLine("que peso transporta") peso = Console.ReadLine() Select Case ttarifa Case Is = 1 vtarifa = 3.1 pagar = peso * vtarifa Case Is = 2 vtarifa = 2.75 pagar = peso * vtarifa Case Is = 3 vtarifa = 3.05 pagar = peso * vtarifa End Select Console.WriteLine("se pagara:" + Str(pagar)) Console.ReadLine() End Sub Private Sub pasajeros() Dim pagar As Decimal Dim ca As Decimal Dim ttarifa As Integer Dim vtarifa As Decimal Console.WriteLine("transporte de pasajeros") Console.WriteLine("[1]lima - ica") Console.WriteLine("[2]ica - nazca") Console.WriteLine("[3}ica - ayacucho") Console.WriteLine("elegir el transporte de pasajeros") ttarifa = Console.ReadLine() Console.WriteLine("que cantidad de asientos") ca = Console.ReadLine() Select Case ttarifa Case Is = 1 vtarifa = 22 pagar = ca * vtarifa Case Is = 2 vtarifa = 10 pagar = ca * vtarifa Case Is = 3 vtarifa = 30 pagar = ca * vtarifa


End Select Console.WriteLine("se pagara:" + Str(pagar)) Console.ReadLine() End Sub Private Sub encomiendas() Dim pagar As Decimal Dim numdoc As Decimal Dim ttarifa As Integer Dim vtarifa As Decimal Console.WriteLine("transporte de encomiendas") Console.WriteLine("[1]trannsporte de sobres") Console.WriteLine("[2]transporte de paquetes") Console.WriteLine("[3}transporte de bultos") Console.WriteLine("elegir el transporte de encomiendas") ttarifa = Console.ReadLine() Console.WriteLine("que peso transporta") numdoc = Console.ReadLine() Select Case ttarifa Case Is = 1 vtarifa = 5 pagar = numdoc * vtarifa Case Is = 2 vtarifa = 12 pagar = numdoc * vtarifa Case Is = 3 vtarifa = 7 pagar = numdoc * vtarifa End Select Console.WriteLine("se pagara:" + Str(pagar)) Console.ReadLine() End Sub Private Sub animales() Dim pagar As Decimal Dim peso As Decimal Dim ttarifa As Integer Dim vtarifa As Decimal Console.WriteLine("transporte de animales") Console.WriteLine("que peso transporta") peso = Console.ReadLine() vtarifa = 25 pagar = peso * vtarifa Console.WriteLine("se pagara:" + Str(pagar)) Console.ReadLine() End Sub

Ejercicio de Consola 46:


En una tienda de accesorios para PCs, el precio de venta unitario de los CDs es el mismo para cualquier marca (S/. 1,50 y 3,00), sin embargo el descuento varia de acuerdo a la marca y se basa a la siguiente tabla Marca Dscto Sony 15% Acer 12% Princo 10% IBM 20% Determinar el importe a pagar por la cantidad de CDs comprados de una sola marca, considerando que no se paga impuestos. Mostrar el importe bruto, el descuento, y el importe a pagar por el cliente.

Ejercicio de Consola 47: Evaluar una expresión de dos operandos enteros de acuerdo al operador que se elija, se debe visualizar el resultado considerando la posibilidad que en la division se intente por 0, para lo cual el resultado debe ser también 0 )aun cuando se sabe que una division por cero tiende al infinito). Los operadores para trabajar es de la tabla siguiente Operador Descripción + Suma Resta * Producto / Division ^ Potencia Ejercicio de Consola 48: Una tienda distribuidora de prendas del vestir ha establecido porcentajes de descuentos sobre el monto comprado basado en la siguiente tabla: Varones Damas Talla S M L S M L Origen Nacional 10 12 15 15 17 20 Importado 05 07 10 07 09 12 Determinar y visualizar para el cliente: el monto comprado, el importe del descuento y el monto a pagar. Module Module1 Sub Main() Dim opcion As Integer opcion = 0 Do While opcion < 3 Console.WriteLine("distribuidora de ropa") Console.WriteLine("[1] hombres") Console.WriteLine("[2] mujeres") Console.WriteLine("[3] terminar") Console.WriteLine("elija la opcion de la distribuidora") opcion = Console.ReadLine() Select Case opcion Case Is = 1


hombres() Case Is = 2 mujeres() End Select Loop End Sub Private Sub hombres() Dim talla As String Console.WriteLine("prendas de hombres") Console.WriteLine("[1] nacional") Console.WriteLine("[2] importado") Console.WriteLine("elegir la calidad de los hombres") talla = Console.ReadLine() Select Case talla Case Is = 1 nacional() Case Is = 2 importado() End Select End Sub Private Sub nacional() Dim opcion1 As Integer Dim venta, precio, total, desc, pago As Single Console.WriteLine("descuentos por nacional") Console.WriteLine("[1] hombres - s - nacional") Console.WriteLine("[2] hombres - m - nacional") Console.WriteLine("[3] hombres - l - nacional") Console.WriteLine("elegir que va a comprar") opcion1 = Console.ReadLine Console.WriteLine("que cantidad desea comprar") venta = Console.ReadLine() Console.WriteLine("ingrese el precio") precio = Console.ReadLine() Select Case opcion1 Case Is = 1 total = (venta * precio) desc = total * 0.1 pago = total - desc Case Is = 2 total = (venta * precio) desc = total * 0.12 pago = total - desc Case Is = 3 total = (venta * precio) desc = total * 0.15 pago = total - desc End Select Console.WriteLine("el total es: " + Str(total)) Console.WriteLine("el descuento: " + Str(desc))


Console.WriteLine("se pagara: " + Str(pago)) Console.ReadLine() End Sub Private Sub importado() Dim opcion2 As Integer Dim venta1, precio1, total1, desc1, pago1 As Single Console.WriteLine("descuentos por importado") Console.WriteLine("[1] hombres - s - importado") Console.WriteLine("[2] hombres - m - importado") Console.WriteLine("[3] hombres - l - importado") Console.WriteLine("elegir que va a comprar") opcion2 = Console.ReadLine Console.WriteLine("que cantidad desea comprar") venta1 = Console.ReadLine() Console.WriteLine("ingrese el precio") precio1 = Console.ReadLine() Select Case opcion2 Case Is = 1 total1 = (venta1 * precio1) desc1 = total1 * 0.05 pago1 = total1 - desc1 Case Is = 2 total1 = (venta1 * precio1) desc1 = total1 * 0.07 pago1 = total1 - desc1 Case Is = 3 total1 = (venta1 * precio1) desc1 = total1 * 0.1 pago1 = total1 - desc1 End Select Console.WriteLine("el total es: " + Str(total1)) Console.WriteLine("el descuento: " + Str(desc1)) Console.WriteLine("se pagara: " + Str(pago1)) Console.ReadLine() End Sub Private Sub mujeres() Dim talla1 As String Console.WriteLine("prendas de mujeres") Console.WriteLine("[1] nacional") Console.WriteLine("[2] importado") Console.WriteLine("elegir la calidad de las mujeres") talla1 = Console.ReadLine() Select Case talla1 Case Is = 1 nacional1() Case Is = 2 importado1() End Select


End Sub Private Sub nacional1() Dim opcion3 As Integer Dim venta2, precio2, total2, desc2, pago2 As Single Console.WriteLine("descuentos por nacional") Console.WriteLine("[1] mujeres - s - nacional") Console.WriteLine("[2] mujeres - m - nacional") Console.WriteLine("[3] mujeres - l - nacional") Console.WriteLine("elegir que va a comprar") opcion3 = Console.ReadLine Console.WriteLine("que cantidad desea comprar") venta2 = Console.ReadLine() Console.WriteLine("ingrese el precio") precio2 = Console.ReadLine() Select Case opcion3 Case Is = 1 total2 = (venta2 * precio2) desc2 = total2 * 0.15 pago2 = total2 - desc2 Case Is = 2 total2 = (venta2 * precio2) desc2 = total2 * 0.17 pago2 = total2 - desc2 Case Is = 3 total2 = (venta2 * precio2) desc2 = total2 * 0.2 pago2 = total2 - desc2 End Select Console.WriteLine("el total es: " + Str(total2)) Console.WriteLine("el descuento: " + Str(desc2)) Console.WriteLine("se pagara: " + Str(pago2)) Console.ReadLine() End Sub Private Sub importado1() Dim opcion4 As Integer Dim venta3, precio3, total3, desc3, pago3 As Single Console.WriteLine("descuentos por importado") Console.WriteLine("[1] mujeres - s - importado") Console.WriteLine("[2] mujeres - m - importado") Console.WriteLine("[3] mujeres - l - importado") Console.WriteLine("elegir que va a comprar") opcion4 = Console.ReadLine Console.WriteLine("que cantidad desea comprar") venta3 = Console.ReadLine() Console.WriteLine("ingrese el precio") precio3 = Console.ReadLine() Select Case opcion4 Case Is = 1 total3 = (venta3 * precio3)


desc3 = total3 * 0.07 pago3 = total3 - desc3 Case Is = 2 total3 = (venta3 * precio3) desc3 = total3 * 0.09 pago3 = total3 - desc3 Case Is = 3 total3 = (venta3 * precio3) desc3 = total3 * 0.12 pago3 = total3 - desc3 End Select Console.WriteLine("el total es: " + Str(total3)) Console.WriteLine("el descuento: " + Str(desc3)) Console.WriteLine("se pagara: " + Str(pago3)) Console.ReadLine() End Sub End Module Ejercicio de Consola 49: Una tienda comercial ofrece ventas al credito, financiadas en tres formas, basadas en la siguiente tabla: Tipo de financiamiento % Interes % Cuota Inicial Numero de letras 1 5 60 2 2 10 50 4 3 15 35 6 El cliente debera firmar antes de la financiacion el monto de la compra, el cual es afecto a un 10% de impuesto, por lo que el monto de la factura es igual al monto de la compra mas el importe de impuesto. Luego que el cliente elige el tipo de financiamiento que le convenga, se debe visualizar lo siguiente: monto de la factura, monto de los intereses, nuevo monto de la factura (incluyendo interes), monto de la cuota inicial y el monto de cada letra por pagar (nuevo monto de factura, menos monto de cuota inicial, entre numero de letras) Ejercicio de Consola 50: En una Olimpiada de tiro al blanco se llega a un acuerdo entre los participantes para que el puntaje obtenido sea cxalculado en base al puntaje original (0 al 10), alcanzado en el tiro, multiplicado por un factor especificado en la siguiente tabla: Puntaje Original Factor 0 Cero 1….5 Seis 6….8 Ocho 9,10 Diez Determinar de un tiro realizado, su puntaje correspondiente. En una Universidad se ha establecido los siguientes puntajes de ingreso a sus respectivas facultades: Especialidad Puntaje minimo Computación 90 Enfermeria 80


Protesis 70 De acuerdo al puntaje obtenido por un postulante, determinar a la Especialidad a la cual ingreso.

Ejercicio de Consola 42: Diseñar una aplicación que permita utilizar el NameSpac, System.Math para leer dos datos ingresados por consola, y que retorne la suma de sus cuadrados y su diferencia, usando las funciones SumaCuadrado y RestaCuadrado 'Importamos el NameSpace System.Math con un AliasName M para hacer referencia_ 'a los elementos de Math Imports M = System.Math Module Module1 Public N1 As Double 'Sumando uno Public N2 As Double 'Sumando dos Sub Main() Try Console.Write("Ingrese sumando uno: ") N1 = Console.ReadLine 'Leer sumando uno ingresado Console.WriteLine() Console.Write("Ingrese sumando dos: ") N2 = Console.ReadLine 'Leer sumando dos ingresado Console.WriteLine() Console.WriteLine("Suma de los cuadrados: ") Console.WriteLine(SumaCuadrado(N1, N2)) 'se llama a la función SumaCuadrado con los datos ingresados Console.WriteLine() Console.WriteLine("Diferencia de los cuadrados: ") Console.WriteLine(RestaCuadrado(N1, N2)) 'se llama a la función RestaCuadrado con los datos ingresados Console.WriteLine() Console.WriteLine("Ejecución Finalizada") Console.WriteLine("Presione ENTER pasa salir") Console.ReadLine() Catch err As Exception Console.Write(err.Message) End Try End Sub Function SumaCuadrado(ByVal NOne As Double, ByVal NTwo As Double) As Double Try SumaCuadrado = M.Pow(NOne, 2) + M.Pow(NTwo, 2) Return SumaCuadrado Catch err As Exception End Try End Function


Function RestaCuadrado(ByVal NOne As Double, ByVal NTwo As Double) As Double Try RestaCuadrado = M.Pow(NOne, 2) - M.Pow(NTwo, 2) Return RestaCuadrado Catch err As Exception End Try End Function 'En las funciones se utiliza el método Pow que recibe dos argumentos_ 'el primero es el número que se va a elevar a una potencia y el segundo es la potencia 'Los bloques TRY CATCH me controlan las excepciones para evitar que el programa se desborde_ 'en tiempo de ejecucíón End Module

Module Module1 Sub Main() Dim a() As Integer = {1, 42, 15, 90, 2} Console.WriteLine("elementos del array a () = {0}", a.Length) Dim i As Integer For Each i In a Console.WriteLine(i) Next Console.ReadLine() End Sub End Module Module Module1 Sub Main() Dim a As Integer For a = 1 To 10 Console.WriteLine(a) Console.ReadLine() 'contara de 1 hasta 10 (a tomara los valores 1, 2 etc) Next Console.ReadLine() End Sub End Module


Module Module1 Sub Main() Dim a As Integer For a = 10 To 1 Step -1 Console.WriteLine(a) Console.ReadLine() 'contara de 10 hasta 1 (a tomara los valores 10, 9 etc) Next Console.ReadLine() End Sub End Module

Module Module1 Sub Main() Dim a As Integer For a = 100 To 1 Step -10 Console.WriteLine(a) Console.ReadLine() 'contara de 100 hasta 10 (a tomara los valores 100, 90 etc) Next Console.ReadLine() End Sub End Module

Module Module1 Sub Main() Dim a As String For Each a In "hola mundo" Console.WriteLine(a) Console.ReadLine() 'se visualizara caracter por caracter Next Console.ReadLine()


End Sub End Module

Module Module1 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.ReadLine() End Sub End Module

Module Module1 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.ReadLine() End Sub End Module

Module Module1 Sub Main() Dim a As Integer a = 0 Do Until a > 9


Console.WriteLine(a) a = a + 1 Loop 'este bucle se epetira para valores de a desde 0 hasta 9 Console.ReadLine() End Sub End Module

Module Module1 Sub Main() Dim a As Integer a = 0 Do While Not (a > 9) Console.WriteLine(a) a = a + 1 Loop Console.ReadLine() End Sub End Module

Table de mulktiplicar Module Module1 Sub Main() Dim num, ope, tot As Integer Console.WriteLine( "Ingrese numero 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

Manual de Ejercicios de Visual Basic .NET Console.WriteLine( "-----------------------" ) Console.ReadLine() End Sub End Module

Module Module1 Sub Main () Dim A As Integer A = 0 Do While A < 10 Console.WriteLine("") Console.WriteLine(" ***************************** SUPERMERCADO METRO *************************** ") Console.WriteLine("") Console.WriteLine(" ¡¡(METRO esta de OFERTA en un 25% por una compra >=100!! ") Console.WriteLine("") Console.WriteLine("")


Console.WriteLine("1-PRODUCTOS EN VENTA") Console.WriteLine("2-PRODUCTOS_DE_SERVICIOS") Console.WriteLine("") Console.WriteLine("DIGITE LA OPCION:") A = Console.ReadLine Select Case A Case 1 PRODUCTOS_EN_VENTA() Case 2 PRODUCTOS_DE_SERVICIOS() End Select Loop A = Console.ReadLine End Sub Private Sub PRODUCTOS_EN_VENTA() Dim A1 Console.WriteLine("1_SECCION:VERDURAS") Console.WriteLine("2_SECCION:TUBERCULOS") Console.WriteLine("3_SECCION:CARNE") Console.WriteLine("4_SECCION:FRUTAS") Console.WriteLine("5_SECCION:ABARROTES") Console.WriteLine("6_SECCION:GOLOSINAS") Console.WriteLine("7_SECCION:ROPAS") Console.WriteLine("8_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") A1 = Console.ReadLine

Select Case A1 Case 1 VERDURAS() Case 2 TUBERCULOS() Case 3 CARNE() Case 4 FRUTA() Case 5 ABARROTES() Case 6 GOLOSINAS() Case 7 ROPAS() End Select End Sub


Private Sub VERDURAS() Dim VERDURAS, CANTIDAD, RESULTADO, descuento As Single Console.WriteLine("") Console.WriteLine("PRODUCTOS EN VENTA") Console.WriteLine("") Console.WriteLine(" VARIEDADES DE VERDURAS ") Console.WriteLine("") Console.WriteLine("1_APIO ............................... $1.0") Console.WriteLine("2_NABO ............................... $0.5") Console.WriteLine("3_ALCACHOFA ............................... $1.5") Console.WriteLine("4_COL ............................... $2.0 ") Console.WriteLine("5_LECHUGA ............................... $1.0") Console.WriteLine("6_PORO ............................... $0.9") Console.WriteLine("7_ALBAHACA ............................... $1.8") Console.WriteLine("8_ESPINACA ............................... $2.1") Console.WriteLine("presione la tecla enter para salir") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") VERDURAS = Console.ReadLine Console.WriteLine("") Console.WriteLine("ESCRIBA LA # DE KILOS POR FAVOR") CANTIDAD = Console.ReadLine

Select Case VERDURAS Case 1 RESULTADO = CANTIDAD Case 2 RESULTADO = CANTIDAD Case 3 RESULTADO = CANTIDAD Case 4 RESULTADO = CANTIDAD Case 5 RESULTADO = CANTIDAD Case 6 RESULTADO = CANTIDAD Case 7

* 1.0 * 0.5 * 1.5 * 2.0 * 1.0 * 0.9


RESULTADO = CANTIDAD * 1.8 Case 8 RESULTADO = CANTIDAD * 2.1 Case 9 End End Select

Console.WriteLine("EL TOTAL DE SU DEUDA ES: " & RESULTADO & " nuevos soles") If RESULTADO >= 100 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("") Console.WriteLine("¡GRACIAS POR SU COMPRA!¡VUELVA PRONTO!") Console.WriteLine() End Sub Private Sub TUBERCULOS() Dim TUBERCULOS, CANTIDAD, RESULTADO, descuento As Single Console.WriteLine("") Console.WriteLine("PRODUCTOS EN VENTA") Console.WriteLine("") Console.WriteLine(" VARIEDADES DE TUBERCULOS ") Console.WriteLine("") Console.WriteLine("1_PAPAS ................................... $1.0") Console.WriteLine("2_ZANAHORIAS ................................... $1.2")


Console.WriteLine("3_CEBOLLAS ................................... $1.1") Console.WriteLine("4_TOMATES ................................... $2.0") Console.WriteLine("5_CAMOTES ................................... $0.8") Console.WriteLine("6_OLLUCO ................................... $2.3") Console.WriteLine("7_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") TUBERCULOS = Console.ReadLine Console.WriteLine("") Console.WriteLine("ESCRIBA EL # DE KILOS POR FAVOR") CANTIDAD = Console.ReadLine Select Case TUBERCULOS Case 1 RESULTADO = CANTIDAD Case 2 RESULTADO = CANTIDAD Case 3 RESULTADO = CANTIDAD Case 4 RESULTADO = CANTIDAD Case 5 RESULTADO = CANTIDAD Case 6 RESULTADO = CANTIDAD

* 1.0 * 1.2 * 1.1 * 2.0 * 0.8 * 2.3

End Select Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") If RESULTADO >= 100 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("")


Console.WriteLine("") Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!") Console.WriteLine() End Sub Private Sub CARNE() Dim CARNE, CANTIDAD, RESULTADO, descuento As Single

CARNE

Console.WriteLine("") Console.WriteLine("PRODUCTOS EN VENTA") Console.WriteLine("") Console.WriteLine(" VARIEDADES DE ")

Console.WriteLine("1_POLLO ................................... $ 6.0") Console.WriteLine("2_PESCADO ................................... $ 3.0") Console.WriteLine("3_RES ................................... $11.0") Console.WriteLine("4_TORO ................................... $15.0") Console.WriteLine("5_VACA ................................... $13.0") Console.WriteLine("6_CHANCHO ................................... $10.0") Console.WriteLine("7_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") CARNE = Console.ReadLine Console.WriteLine("") Console.WriteLine("ESCRIBA EL # DE KILOS POR FAVOR") CANTIDAD = Console.ReadLine Select Case CARNE Case 1 RESULTADO Case 2 RESULTADO Case 3 RESULTADO Case 4 RESULTADO Case 5 RESULTADO Case 6 RESULTADO

= CANTIDAD * 6.0 = CANTIDAD * 3.0 = CANTIDAD * 11.0 = CANTIDAD * 15.0 = CANTIDAD * 13.0 = CANTIDAD * 10.0


End Select Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") Console.WriteLine("") If RESULTADO >= 100 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("") Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!") Console.WriteLine() End Sub Private Sub FRUTA() Dim FRUTAS, CANTIDAD, RESULTADO, descuento As Single Console.WriteLine("") Console.WriteLine("PRODUCTOS EN VENTA") Console.WriteLine("") Console.WriteLine(" VARIEDADES DE FRUTAS ") Console.WriteLine("") Console.WriteLine("1_FRESA ................................... $3.5") Console.WriteLine("2_MANZANA ................................... $3.0") Console.WriteLine("3_MANGO ................................... $1.5") Console.WriteLine("4_DURAZNO ................................... $3.2") Console.WriteLine("5_MANDARINA ................................... $2.0") Console.WriteLine("6_PLATANOS ................................... $4.2") Console.WriteLine("7_NARANJAS ................................... $1.5") Console.WriteLine("8_CEREZAS ................................... $2.5")


Console.WriteLine("9_PEPINOS ................................... $2.2") Console.WriteLine("10_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") FRUTAS = Console.ReadLine Console.WriteLine("") Console.WriteLine("ESCRIBA EL # DE KILOS POR FAVOR") CANTIDAD = Console.ReadLine Select Case FRUTAS Case 1 RESULTADO = Case 2 RESULTADO = Case 3 RESULTADO = Case 4 RESULTADO = Case 5 RESULTADO = Case 6 RESULTADO = Case 7 RESULTADO = Case 8 RESULTADO = Case 9 RESULTADO =

CANTIDAD * 3.5 CANTIDAD * 3.0 CANTIDAD * 1.5 CANTIDAD * 3.2 CANTIDAD * 2.0 CANTIDAD * 4.2 CANTIDAD * 1.5 CANTIDAD * 2.5 CANTIDAD * 2.2

End Select Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") Console.WriteLine("") If RESULTADO >= 100 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("") Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!")


Console.WriteLine() End Sub Private Sub ABARROTES() Dim ABARROTES, CANTIDAD, RESULTADO, descuento As Single Console.WriteLine("") Console.WriteLine("PRODUCTOS EN VENTA") Console.WriteLine("") Console.WriteLine(" VARIEDADES DE ABARROTES ") Console.WriteLine("") Console.WriteLine("1_ARROZ ................................... $2.2") Console.WriteLine("2_AZUCAR ................................... $2.0") Console.WriteLine("3_FIDEOS ................................... $3.6") Console.WriteLine("4_ATUN ................................... $1.6") Console.WriteLine("5_LECHE ................................... $2.0") Console.WriteLine("6_PAPEL HIGIENICO ................................... $1.0") Console.WriteLine("7_PAÑALES ................................... $1.2") Console.WriteLine("8_KOLINOS ................................... $2.5") Console.WriteLine("9_JABONCILLO ................................... $1.5") Console.WriteLine("10_DETERGENTE ................................... $1.8") Console.WriteLine("11_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") ABARROTES = Console.ReadLine Console.WriteLine("") Console.WriteLine("ESCRIBA LA CANTIDAD en # DE KILOS POR FAVOR") CANTIDAD = Console.ReadLine Select Case ABARROTES Case 1 RESULTADO = CANTIDAD * 2.2 Case 2 RESULTADO = CANTIDAD * 2.0 Case 3 RESULTADO = CANTIDAD * 3.6 Case 4


RESULTADO Case 5 RESULTADO Case 6 RESULTADO Case 7 RESULTADO

= CANTIDAD * 1.6 = CANTIDAD * 2.0 = CANTIDAD * 1.0 = CANTIDAD * 1.2

Case 8 RESULTADO = CANTIDAD * 2.5 Case 9 RESULTADO = CANTIDAD * 1.5 Case 10 RESULTADO = CANTIDAD * 1.8 End Select Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") Console.WriteLine("") If RESULTADO >= 100 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("") Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!") Console.WriteLine() End Sub Private Sub GOLOSINAS() Dim GOLOSINAS, CANTIDAD, RESULTADO, descuento As Single Console.WriteLine("") Console.WriteLine("PRODUCTOS EN VENTA") Console.WriteLine("") Console.WriteLine(" VARIEDADES DE GOLOSINAS ") Console.WriteLine("") Console.WriteLine("1_GALLETAS .............................. $2.2")


Console.WriteLine("2_CARAMELOS .............................. $2.0") Console.WriteLine("3_GASEOSA .............................. $3.6") Console.WriteLine("4_GOMITAS .............................. $1.6") Console.WriteLine("5_CHOCOLATE .............................. $2.0") Console.WriteLine("6_FRUGOS .............................. $1.2") Console.WriteLine("7_CHUPETINES .............................. $0.3") Console.WriteLine("8_CHISITOS .............................. $0.5") Console.WriteLine("9_CHUPETES .............................. $0.5") Console.WriteLine("10_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") GOLOSINAS = Console.ReadLine Console.WriteLine("") Console.WriteLine("ESCRIBA LA CANTIDAD POR FAVOR") CANTIDAD = Console.ReadLine Select Case GOLOSINAS Case 1 RESULTADO = CANTIDAD Case 2 RESULTADO = CANTIDAD Case 3 RESULTADO = CANTIDAD Case 4 RESULTADO = CANTIDAD Case 5 RESULTADO = CANTIDAD Case 6 RESULTADO = CANTIDAD Case 7 RESULTADO = CANTIDAD

* 2.2 * 2.0 * 3.6 * 1.6 * 2.0 * 1.2 * 0.3

Case 8 RESULTADO = CANTIDAD * 0.5 Case 9 RESULTADO = CANTIDAD * 0.5 End Select Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") Console.WriteLine("") If RESULTADO >= 100 Then


descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("") Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!") Console.WriteLine() End Sub Private Sub ROPAS() Dim ROPAS, CANTIDAD, RESULTADO, descuento As Single Console.WriteLine("") Console.WriteLine("PRODUCTOS EN VENTA") Console.WriteLine("") Console.WriteLine(" VARIEDADES DE ROPAS ") Console.WriteLine("") Console.WriteLine("1_PANTALON .............................. $ 50.0") Console.WriteLine("2_CAMISA .............................. $ 25.0") Console.WriteLine("3_SHORT .............................. $ 35.0") Console.WriteLine("4_CORBATA .............................. $ 15.0") Console.WriteLine("5_MEDIAS .............................. $ 5.0") Console.WriteLine("6_ZAPATOS .............................. $ 50.0") Console.WriteLine("7_CHALINA .............................. $ 12.0") Console.WriteLine("8_CHOMPA .............................. $ 35.0") Console.WriteLine("9_CASACA .............................. $110.0") Console.WriteLine("10_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") ROPAS = Console.ReadLine


Console.WriteLine("") Console.WriteLine("ESCRIBA LA CANTIDAD POR FAVOR") CANTIDAD = Console.ReadLine Select Case ROPAS Case 1 RESULTADO Case 2 RESULTADO Case 3 RESULTADO Case 4 RESULTADO Case 5 RESULTADO Case 6 RESULTADO Case 7 RESULTADO Case 8 RESULTADO Case 9 RESULTADO

= CANTIDAD * 50.0 = CANTIDAD * 25.0 = CANTIDAD * 35.0 = CANTIDAD * 15.0 = CANTIDAD * 5.0 = CANTIDAD * 50.0 = CANTIDAD * 12.0 = CANTIDAD * 35.0 = CANTIDAD * 110.0

End Select Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") Console.WriteLine("") If RESULTADO >= 100 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("") Console.WriteLine("¡GRACIAS POR SU COMPRA!& ¡VUELVA PRONTO!") Console.WriteLine() End Sub Private Sub PRODUCTOS_DE_SERVICIOS() Dim B1 As Single


Console.WriteLine("1_SECCION:CABINAS PRIVADAS") Console.WriteLine("2_SECCION:CABINAS PUBLICAS") Console.WriteLine("3_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") B1 = Console.ReadLine Select Case B1 Case 1 CABINAS_PRIVADAS() Case 2 CABINAS_PUBLICAS() End Select End Sub Private Sub CABINAS_PRIVADAS() Dim CANTIDAD, INTERNET, RESULTADO, descuento As Single Console.WriteLine("") Console.WriteLine(" PRODUCTOS DE SERVICIOS ") Console.WriteLine("") Console.WriteLine("*** con recaudar 15 horas se rebajaran el costo de nuestros servicios en un 25% ***") Console.WriteLine("") Console.WriteLine("EL COSTO * HORA ES $2.00") Console.WriteLine("") Console.WriteLine(" TARIFA DE # DE HORAS ") Console.WriteLine("") Console.WriteLine("1_1 HORA .............................. $2.0") Console.WriteLine("2_3/4 HORA .............................. $1.5") Console.WriteLine("3_1/2 HORA .............................. $1.0") Console.WriteLine("4_1/4 HORA .............................. $0.5") Console.WriteLine("5_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA LA OPCION POR FAVOR") INTERNET = Console.ReadLine Console.WriteLine("ESCRIBA EL # DE HORAS CANTIDAD = Console.ReadLine

POR FAVOR")


Select Case INTERNET Case 1 RESULTADO = CANTIDAD Case 2 RESULTADO = CANTIDAD Case 3 RESULTADO = CANTIDAD Case 4 RESULTADO = CANTIDAD

* 2.0 * 1.5 * 1.0 * 0.5

End Select

Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") Console.WriteLine("") If RESULTADO >= 15 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0 End If Console.WriteLine("") Console.WriteLine("¡GRACIAS UTILIZAR NUESTROS SERVICIOS EN METRO !& ¡VUELVA PRONTO!") Console.WriteLine() End Sub Private Sub CABINAS_PUBLICAS() Dim CANTIDAD, RESULTADO, descuento, INTERNET1 As Single Console.WriteLine("") Console.WriteLine("PRODUCTOS DE SERVICIOS") Console.WriteLine("")


Console.WriteLine(" con recaudar 15 horas se rebajaran el costo de nuestros servicios en un 25%") Console.WriteLine("") Console.WriteLine("EL COSTO * HORA ES $1.00") Console.WriteLine("") Console.WriteLine(" TARIFA DE # DE HORAS ") Console.WriteLine("") Console.WriteLine("1_1 HORA .............................. $1.0") Console.WriteLine("2_3/4 HORA .............................. $0.8") Console.WriteLine("3_1/2 HORA .............................. $0.5") Console.WriteLine("4_1/4 HORA .............................. $0.3") Console.WriteLine("5_SALIR") Console.WriteLine("") Console.WriteLine("ELIJA UNA OPCION POR FAVOR") INTERNET1 = Console.ReadLine Console.WriteLine("") Console.WriteLine("") Console.WriteLine("ESCRIBA EL # DE HORAS POR FAVOR") CANTIDAD = Console.ReadLine Select Case INTERNET1 Case 1 RESULTADO = CANTIDAD Case 2 RESULTADO = CANTIDAD Case 3 RESULTADO = CANTIDAD Case 4 RESULTADO = CANTIDAD

* 1.0 * 0.8 * 0.5 * 0.3

End Select Console.Write("USTED DEBERA PAGAR: " & RESULTADO & " nuevos soles") Console.WriteLine("") If RESULTADO >= 15 Then descuento = (RESULTADO - (RESULTADO * 25 / 100)) Console.WriteLine("EL DESCUENTO REALIZADO ES :" & (RESULTADO * 25 / 100)) Console.WriteLine("¡¡¡PAGUE solamente unos!!!=" & descuento) Else descuento = 0


End If Console.WriteLine("") Console.WriteLine("¡GRACIAS UTILIZAR NUESTROS SERVICIOS EN METRO! ¡VUELVA PRONTO!") Console.WriteLine() End Sub End Module




Las clases numericas Las clases numericas comparten casi los mismos metodos salvo en algunas que tienen menos metodos y en otras que tienen mas de las mostradas. Compareto Este metodo permite la comparación de un objeto con otro, o consigo mismo, verificando si es igual en su contenido. Existen tres posibilidades de comparación: Si el resultado es =0, indica que el contenido en el objeto es igual que el contenido almacenado en el objeto usado como parámetro. Si el resultado es >0, indica que el contenido en el objeto es mayor que el contenido almacenado en el objeto usado como parámetro. Si el resultado es <0, indica que el contenido en el objeto es menor que el contenido almacenado en el objeto usado como parámetro 





Module Module1 Sub Main() Dim num1, num2, res As Integer Console.WriteLine("Ingrese el primer numero a comparar") num1 = Console.ReadLine Console.WriteLine("Ingrese el segundo numero a comparar") num2 = Console.ReadLine res = num1.CompareTo(num2) If res > 0 Then Console.WriteLine(num1 & " el primer numero es mayor que el segundo " & num2) ElseIf res < 0 Then Console.WriteLine(num1 & " el primer numero es menor que el segundo " & num2) Else Console.WriteLine(num1 & " los numeros son iguales " & num2) End If Console.Read() End Sub End Module

Equals


Este metodo permite la comparación de dos objetos del mismo tipo, retornando true o false Module Module1 Sub Main() Dim num1, num2 As Integer Dim res As Boolean Console.WriteLine("Ingrese comparar") num1 = Console.ReadLine Console.WriteLine("Ingrese comparar") num2 = Console.ReadLine res = num1.Equals(num2) If res = True Then Console.WriteLine(num1 " & num2) Else Console.WriteLine(num1 diferentes " & num2) End If Console.Read()

el primer numero a el segundo numero a

& " los numeros son iguales & " los numeros son

End Sub End Module

GetType Visualiza como resultado el tipo de objeto que es. Si es Integer devuelve System.Int32, lo que pasa es que ese es el verdadero nombre que tiene el tipo de dato integer en la Plataforma .NET Framework y ahora se llama Integer (solo se da de esta forma para conservar la compatibilidad con versiones anteriores). Module Module1 Sub Main() Dim num1 As Integer Console.WriteLine("Ingrese el numero a analizar que tipo de objto es") num1 = Console.ReadLine Console.WriteLine("el numero es un tipo de dato {0}", num1.GetType()) Console.Read() End Sub End Module

Parse Este metodo convierte una cadena que representa un numero Integer a un numero de tipo integer. Module Module1


Sub Main() Dim num1 As Integer Dim res As String res = 11 Console.WriteLine("Ingrese el numero a analizar que tipo de objeto que es") num1 = Console.ReadLine num1 = num1.Parse(res) Console.WriteLine("el numero es " & res) Console.Read() End Sub End Module

ToString Este metodo convierte a cadena el numero especificado. Module Module1 Sub Main() Dim num1 As Integer Dim res As String Console.Write("Ingrese el numero a convertir en string ") num1 = Console.ReadLine res = num1.ToString() Console.WriteLine("la cadena es " & res) Console.Read() End Sub End Module

MinValue y MaxValue Este método devuelve el minimo y maximo del tipo de numero especificado. Module Module1 Sub Main() 'Dim num1 As Long 'Console.WriteLine("el valor minimo de este tipo es {0}", num1.MinValue) 'Console.WriteLine("el valor maximo de este tipo es {0}", num1.MaxValue) 'Console.Read() Console.WriteLine("el valor minimo de este tipo es {0}", Integer.MinValue)


Console.WriteLine("el valor maximo de este tipo es {0}", Integer.MaxValue) Console.Read() End Sub End Module

Module Module1 Sub Main() Dim a As String, i As Integer Dim info As ConsoleKeyInfo ica: 'etiqueta Console.Write("Ingrese la clave: ") 'escribir un texto que se va leer a = "" 'inicializa la variable a en nada Do While (i <= 3) 'es bucle de entrada controlada info = Console.ReadKey(True) 'la variable info se le asigna el valor de la tecla que se presiono Console.Write("*"c) 'muestra en la pantalla el asterisco If Asc(info.KeyChar) = 13 Then 'si presiono la tecla enter Exit Do 'sale del bucle Else 'de lo contrario a = a & info.KeyChar 'almacena el valor de la tecla presionada en la variable a End If 'fin si Loop 'fin del do while Console.WriteLine("") 'coloca el cursor en la sgte linea If a = "kathy" Then 'compara si el valor de la variable a es igual a kathy Console.WriteLine("Clave correcta") 'muestra el mensaje clave correcta For i = 1 To 5 'bucle repetitivo de 1 hasta el 5 King() ' procedimiento que se creo y se detalla debajo Next 'fin del bucle for Else Console.WriteLine("Clave Incorrecta") 'muestra el mensaje de clave incorrecta GoTo ica 'vuelve a la etiqueta inicial End If Console.Read() End Sub Sub King() 'procedimiento que se a creado Dim a, b, r As Integer Console.Write("Ingrese un número: ") 'escribir el texto a = Console.ReadLine() 'leer el texto Console.Write("Ingrese un número: ") b = Console.ReadLine()

EJERCICIOS DE VISUAL BASIC.NET - CONSOLA.pdf

Recommend Documents