This for All who want make a computer program who in bassic skill.Full description
Descrição: VB6
Manual de Visual BasicDescripción completa
Descripción: Visual Basic 2005 Express - VB .Net
Descripción completa
1. Construir un programa que calcule el Indice de masa corporal IMC= peso/(altura*altura), peso/(altura*altura), e indique el estado en el que se encuentra en base al calculo del IMC
Sub Main() Sub Main() Console.WriteLine("Programa Console.WriteLine("Programa cuotas de casas") casas" ) Console.WriteLine() Dim masa Dim masa As Single Dim altura Dim altura As Single Dim imc Dim imc As Single Console.WriteLine("Introduzca Console.WriteLine("Introduzca su masa en kilogramos =" ) masa = Console.Readline Console.Readline Console.WriteLine() Console.WriteLine("Introduzca Console.WriteLine("Introduzca su altura en metros =" ) altura = Console.Readline Console.Readline Console.WriteLine() imc = masa / (altura * altura) If imc If imc <= 0 Then Console.WriteLine("Valores Console.WriteLine("Valores incorrectos incorrectos." .") ) Else If imc If imc < 16 Then Console.Write( "Su imc es = ") ") Console.Write(imc) Console.WriteLine() Console.Write( "Criterio de ingreso en hospital") hospital" ) Else If imc If imc < 17 Then Console.Write( "Su imc es = ") ") Console.Write(imc) Console.WriteLine() Console.Write( "Infrapeso" "Infrapeso") ) If imc If imc < 18 Then Console.Write( "Su imc es = ") ") Console.Write(imc) Console.WriteLine() Console.Write( "Bajo peso") peso" ) Else If imc If imc < 25 Then Console.Write( "Su imc es = ") ") Console.Write(imc) Console.WriteLine() Console.Write( "Peso normal (Saludable)" ) If imc If imc < 30 Then Console.Write( "Su imc es = ") ") Console.Write(imc) Console.WriteLine() Console.Write( "Sobrepeso (Obesidad de grado I)") I)" ) Else If imc If imc < 35 Then Console.Write( "Su imc es = ") ")
cronico (Obesidad de grado II)" ) If imc < 40 Then Console.Write( "Su imc es = ") Console.Write(imc) Console.WriteLine() Console.Write( "Obesidad premorbida (Obesidad de grado III)") Else If imc > 40 Then Console.Write( "Su imc es = ") Console.Write(imc) Console.WriteLine() Console.Write( "Obesidad morbida (Obesidad de grado IV)" ) End If End If End If End If End If End If End If End If End If Console.WriteLine() Console.ReadLine() Main() End Sub
2. Diseñe un programa que calcule, los descuentos a un trabajador, sabiendo que, son aplicables, un 6.25% del salario en AFP, solo si este es superior a $300.00; Además que, si es un trabajador hombre, se le descuenta, aparte del AFP, el 3% sobre el sueldo en conceptos de ISSS y 10% por concepto de RENTA. Sub Main() Console.WriteLine("Descuento al trabajar") Console.WriteLine() Dim salario As Single Dim total As Double Dim afp As Double Dim isss As Double Dim renta As Double Dim genero As String Console.WriteLine("Ingrese su salario = ") salario = Console.ReadLine If salario < 0 Then Console.Write( "Salario mal ingresado o negativo.") Else If salario <= 300 Then Console.Write( "No tiene ningun descuento") Console.WriteLine()
Console.Write("Su salario es = ") Console.Write(salario) Else If salario > 300 Then afp = (6.25 / 100) * salario Console.WriteLine("Ingrese si es Hombre o Mujer = " ) genero = Console.ReadLine Select Case genero Case "Hombre" isss = 0.03 * salario renta = 0.1 * salario total = salario - afp - isss - renta Console.Write( "Tiene descuento por
afp, isss y renta") Console.WriteLine() Console.Write( "Su salario final es = ") Console.Write(total) Case "Mujer" total = salario - afp Console.Write( "Tiene descuento por afp") Console.WriteLine() Console.Write( "Su salario final es = ") Console.Write(total) Case Else Console.Write( "Error, ingresar Hombre o Mujer") End Select End If End If End If Console.ReadLine() Main() End Sub
3. En un supermercado se hace una promoción mediante la cual el cliente obtiene un descuento dependiendo del número entero que ingrese. Si el número ingresado es múltiplo de 5 y de 3 el descuento es del 25% sobre el monto de compra; si el número ingresado es múltiplo de 5 pero no de 3 el descuento es del 20%; si el número ingresado no es múltiplo de 5 pero sí de 3 el descuento es del 15%; y si el número ingresado no es múltiplo de 5 ni de 3 el descuento es del 10%. Diseñe un programa que permita saber el monto del descuento y el monto neto que debe pagar un cliente por toda su compra. Sub Main() Console.WriteLine("Programa Supermercado") Console.WriteLine() Dim monto As Single Dim numero As Single Dim desc As Single Console.WriteLine("Ingrese numero=") numero = Console.ReadLine Console.WriteLine("Ingrese el monto=") monto = Console.ReadLine If numero > 0 Then If numero Mod 5 = 0 And numero Mod 3 = 0 Then desc = 0.25 * monto Console.Write("El descuento es =") Console.Write(desc) Console.WriteLine()
Console.Write("El monto a pagar es=") Console.Write(monto - desc) Else If numero Mod 5 = 0 And numero Mod 3 <> 0 Then desc = 0.2 * monto Console.Write("El descuento es =") Console.Write(desc) Console.WriteLine() Console.Write("El monto a pagar es=") Console.Write(monto - desc) Else If numero Mod 5 <> 0 And numero Mod 3 = 0 Then desc = 0.15 * monto Console.Write("El descuento es =") Console.Write(desc) Console.WriteLine() Console.Write("El monto a pagar es=") Console.Write(monto - desc) Else If numero Mod 5 <> 0 And numero Mod 3 <> 0 Then desc = 0.1 * monto Console.Write("El descuento es =") Console.Write(desc) Console.WriteLine() Console.Write("El monto a pagar es=") Console.Write(monto - desc) Else Console.Write("El numero no obtiene descuento") Console.Write(desc) Console.WriteLine() Console.Write("El monto a pagar es=") Console.Write(monto) End If End If End If End If End If If numero < 0 Then Console.Write("El numero es negativo") End If Console.ReadLine() Main() End Sub
4. Una empresa ofrece casas de interés social bajo las siguientes condiciones: si el ingreso mensual del comprador es menor o igual a us$1000 la cuota inicial será el 15% del costo de la casa y el resto se distribuirá en 120 cuotas mensuales sin intereses; pero si el ingreso mensual del comprador es mayor a us$1000 la cuota inicial será el 30% del costo de la casa y el resto se distribuirá en 75 cuotas mensuales. Diseñe un programa que determine cuánto deberá pagar un comprador por cuota inicial, cuánto por cada cuota y cuántas cuotas le corresponden pagar. Verificar que el ingreso mensual no sea inferior a us$300; de lo contrario emitir un mensaje “ingreso mensual insuficiente”. Sub Main() Console.WriteLine("Programa cuotas de casas") Console.WriteLine() Dim ingreso As Single Dim casa As Single Dim cuota As Single
Dim desccuota As Single Dim restcuota As Single Console.WriteLine("Introduzca ingreso mensual =" ) ingreso = Console.Readline Console.WriteLine() Console.WriteLine("Introduzca costo de la casa a adquirir =" ) casa = Console.Readline Console.WriteLine() If ingreso <= 1000 Then desccuota = 0.15 * casa restcuota = casa - desccuota cuota = restcuota / 120 Console.Write("La cuota inicial a pagar es = " ) Console.Write(desccuota) Console.WriteLine() Console.Write("El monto por cada cuota es de = ") Console.Write(cuota) Console.WriteLine() Console.WriteLine("Le corresponde pagar 120 cuotas.") Else If ingreso < 300 Then Console.WriteLine("Ingreso mensual insuficiente") Else If ingreso < 0 Then Console.WriteLine("Dato mal ingresado") End If End If End If If ingreso > 1000 Then desccuota = 0.3 * casa restcuota = casa - desccuota cuota = restcuota / 75 Console.Write("La cuota inicial a pagar es = " ) Console.Write(desccuota) Console.WriteLine() Console.Write("El monto por cada cuota es de = ") Console.Write(cuota) Console.WriteLine() Console.WriteLine("Le corresponde pagar 75 cuotas.") End If Console.WriteLine() Console.ReadLine() Main() End Sub
5. Telefónica del Perú ha diseñado los siguientes planes para sus usuarios de telefonía fija:
Diseñe un programa que permita determinar la cantidad de minutos libres que le corresponden según el plan que elija, el pago por los minutos adicionales, el monto de descuento y el monto que debe pagar un usuario. Considere la posibilidad que el usuario no tenga que pagar nada porque sus minutos consumidos ya estén cubiertos por sus minutos libres.
Sub Main() Console.WriteLine("Programa telefonia") Console.WriteLine() Dim plan As String Dim costoplan As Single Dim consumo As Single Dim adicional As Single Dim desc As Single Console.WriteLine("Ingrese el plan en el que se encuentra A | B | C = " ) plan = Console.Readline Console.WriteLine() Console.WriteLine("Ingrese el consumo del cliente= " ) consumo = Console.Readline Console.WriteLine() Select Case plan Case "A" Console.WriteLine("Ingrese el monto que paga en el plan A") costoplan = Console.Readline Console.WriteLine("Le corresponden 300 minutos libres.") If consumo > 300 Then adicional = 0.1 * costoplan Console.Write("Pago por minuto adicional = ") Console.Write(adicional) Console.WriteLine() total = costoplan + adicional Console.Write( "El descuento es de 0 para su plan") Console.Write( "El monto a pagar es = ") Console.WriteLine(total) Else If consumo > 0 Then adicional = 0 Console.WriteLine("El descuento es de 0 para su plan") Console.WriteLine() total = costoplan + adicional Console.WriteLine("El monto a pagar es = ") Console.WriteLine(total) Else Console.WriteLine("Consumo mal ingresado o negativo.") End If End If Case "B" Console.WriteLine("Ingrese el monto que paga en el plan A") costoplan = Console.Readline Console.WriteLine("Le corresponden 200 minutos libres.") If consumo > 200 Then adicional = 0.08 * costoplan Console.Write( "Pago por minuto adicional = ") Console.Write(adicional) Console.WriteLine() desc = (costoplan + adicional) * 0.05 Console.Write( "El descuento es de 5% para su plan = ") Console.Write(desc) Console.WriteLine() total = costoplan + adicional - desc Console.Write( "El monto a pagar es = ") Console.Write(total)
Else If consumo > 0 Then adicional = 0 desc = (costoplan + adicional) * 0.05 Console.Write( "El descuento es de 5% para su plan = ") Console.Write(desc) Console.WriteLine() total = costoplan + adicional - desc Console.Write( "El monto a pagar es = ") Console.Write(total) Else Console.WriteLine("Consumo mal ingresado o negativo.") End If End If Case "C" Console.WriteLine("Ingrese el monto que paga en el plan C") costoplan = Console.Readline Console.WriteLine("Le corresponden 200 minutos libres.") If consumo > 100 Then adicional = 0.05 * costoplan Console.Write( "Pago por minuto adicional = ") Console.Write(adicional) Console.WriteLine() desc = (costoplan + adicional) * 0.1 Console.Write("El descuento es de 10% para su plan = ") Console.Write(desc) Console.WriteLine() total = costoplan + adicional - desc Console.Write( "El monto a pagar es = ") Console.Write(total) Else If consumo > 0 Then adicional = 0 desc = (costoplan + adicional) * 0.01 Console.Write( "El descuento es de 10% para su plan = ") Console.Write(desc) Console.WriteLine() total = costoplan + adicional - desc Console.Write( "El monto a pagar es = ") Console.Write(total) Else Console.WriteLine("Consumo mal ingresado o negativo.") End If End If Case Else Console.WriteLine("Plan mal elegido.") End Select Console.WriteLine() Console.ReadLine() End Sub
Programa sobre la compra de madera: Sub Main() Console.WriteLine("Programa compra de madera") Console.WriteLine() Dim metros As Single dim costo as Single dim madera as string dim total as Single Console.WriteLine("Introduzca cuantos metros cubicos piensa comprar =" ) metros = Console.Readline Console.WriteLine("Introduzca que tipo de madera quiere comprar =" ) madera= console.ReadLine Console.WriteLine("Introduzca el costo por metro cubico =") costo= console.ReadLine Console.WriteLine() select case metros case is <30 total = 0.98*metros*costo Console.WriteLine("total a pagar es=") Console.Write(total) case is >=30 select case madera case "A" total = 0.96*metros*costo Console.WriteLine("total a pagar es=") Console.Write(total) case "B" total = 0.92*metros*costo Console.WriteLine("total a pagar es=") Console.Write(total) case "C" total = 0.90*metros*costo Console.WriteLine("total a pagar es=") Console.Write(total) case else Console.WriteLine("tipo no existente.") end select case is <0 Console.WriteLine("No hay cantidades negativas") case else Console.WriteLine("error encontrado") end select Console.WriteLine() Console.ReadLine() End Sub