1.
Construir un programa que calcule el Indice de masa corporal IMC= peso/(altura*altura), e
indique el estado en el que se encuentra en base al calculo del IMC
Sub Main()
[Link]("Programa cuotas de casas")
[Link]()
Dim masa As Single
Dim altura As Single
Dim imc As Single
[Link]("Introduzca su masa en kilogramos =")
masa = [Link]
[Link]()
[Link]("Introduzca su altura en metros =")
altura = [Link]
[Link]()
imc = masa / (altura * altura)
If imc <= 0 Then
[Link]("Valores incorrectos.")
Else
If imc < 16 Then
[Link]("Su imc es = ")
[Link](imc)
[Link]()
[Link]("Criterio de ingreso en hospital")
Else
If imc < 17 Then
[Link]("Su imc es = ")
[Link](imc)
[Link]()
[Link]("Infrapeso")
If imc < 18 Then
[Link]("Su imc es = ")
[Link](imc)
[Link]()
[Link]("Bajo peso")
Else
If imc < 25 Then
[Link]("Su imc es = ")
[Link](imc)
[Link]()
[Link]("Peso normal
(Saludable)")
If imc < 30 Then
[Link]("Su imc es = ")
[Link](imc)
[Link]()
[Link]("Sobrepeso
(Obesidad de grado I)")
Else
If imc < 35 Then
[Link]("Su imc es
= ")
[Link](imc)
[Link]()
[Link]("Sobrepeso
cronico (Obesidad de grado II)")
If imc < 40 Then
[Link]("Su
imc es = ")
[Link](imc)
[Link]()
[Link]("Obesidad premorbida (Obesidad de grado III)")
Else
If imc > 40 Then
[Link]("Su imc es = ")
[Link](imc)
[Link]()
[Link]("Obesidad morbida (Obesidad de grado IV)")
End If
End If
End If
End If
End If
End If
End If
End If
End If
[Link]()
[Link]()
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()
[Link]("Descuento al trabajar")
[Link]()
Dim salario As Single
Dim total As Double
Dim afp As Double
Dim isss As Double
Dim renta As Double
Dim genero As String
[Link]("Ingrese su salario = ")
salario = [Link]
If salario < 0 Then
[Link]("Salario mal ingresado o negativo.")
Else
If salario <= 300 Then
[Link]("No tiene ningun descuento")
[Link]()
[Link]("Su salario es = ")
[Link](salario)
Else
If salario > 300 Then
afp = (6.25 / 100) * salario
[Link]("Ingrese si es Hombre o Mujer = ")
genero = [Link]
Select Case genero
Case "Hombre"
isss = 0.03 * salario
renta = 0.1 * salario
total = salario - afp - isss - renta
[Link]("Tiene descuento por
afp, isss y renta")
[Link]()
[Link]("Su salario final es =
")
[Link](total)
Case "Mujer"
total = salario - afp
[Link]("Tiene descuento por
afp")
[Link]()
[Link]("Su salario final es =
")
[Link](total)
Case Else
[Link]("Error, ingresar Hombre
o Mujer")
End Select
End If
End If
End If
[Link]()
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()
[Link]("Programa Supermercado")
[Link]()
Dim monto As Single
Dim numero As Single
Dim desc As Single
[Link]("Ingrese numero=")
numero = [Link]
[Link]("Ingrese el monto=")
monto = [Link]
If numero > 0 Then
If numero Mod 5 = 0 And numero Mod 3 = 0 Then
desc = 0.25 * monto
[Link]("El descuento es =")
[Link](desc)
[Link]()
[Link]("El monto a pagar es=")
[Link](monto - desc)
Else
If numero Mod 5 = 0 And numero Mod 3 <> 0 Then
desc = 0.2 * monto
[Link]("El descuento es =")
[Link](desc)
[Link]()
[Link]("El monto a pagar es=")
[Link](monto - desc)
Else
If numero Mod 5 <> 0 And numero Mod 3 = 0 Then
desc = 0.15 * monto
[Link]("El descuento es =")
[Link](desc)
[Link]()
[Link]("El monto a pagar es=")
[Link](monto - desc)
Else
If numero Mod 5 <> 0 And numero Mod 3 <> 0 Then
desc = 0.1 * monto
[Link]("El descuento es =")
[Link](desc)
[Link]()
[Link]("El monto a pagar es=")
[Link](monto - desc)
Else
[Link]("El numero no obtiene descuento")
[Link](desc)
[Link]()
[Link]("El monto a pagar es=")
[Link](monto)
End If
End If
End If
End If
End If
If numero < 0 Then
[Link]("El numero es negativo")
End If
[Link]()
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()
[Link]("Programa cuotas de casas")
[Link]()
Dim ingreso As Single
Dim casa As Single
Dim cuota As Single
Dim desccuota As Single
Dim restcuota As Single
[Link]("Introduzca ingreso mensual =")
ingreso = [Link]
[Link]()
[Link]("Introduzca costo de la casa a adquirir =")
casa = [Link]
[Link]()
If ingreso <= 1000 Then
desccuota = 0.15 * casa
restcuota = casa - desccuota
cuota = restcuota / 120
[Link]("La cuota inicial a pagar es = ")
[Link](desccuota)
[Link]()
[Link]("El monto por cada cuota es de = ")
[Link](cuota)
[Link]()
[Link]("Le corresponde pagar 120 cuotas.")
Else
If ingreso < 300 Then
[Link]("Ingreso mensual insuficiente")
Else
If ingreso < 0 Then
[Link]("Dato mal ingresado")
End If
End If
End If
If ingreso > 1000 Then
desccuota = 0.3 * casa
restcuota = casa - desccuota
cuota = restcuota / 75
[Link]("La cuota inicial a pagar es = ")
[Link](desccuota)
[Link]()
[Link]("El monto por cada cuota es de = ")
[Link](cuota)
[Link]()
[Link]("Le corresponde pagar 75 cuotas.")
End If
[Link]()
[Link]()
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()
[Link]("Programa telefonia")
[Link]()
Dim plan As String
Dim costoplan As Single
Dim consumo As Single
Dim adicional As Single
Dim desc As Single
[Link]("Ingrese el plan en el que se encuentra A | B | C = ")
plan = [Link]
[Link]()
[Link]("Ingrese el consumo del cliente= ")
consumo = [Link]
[Link]()
Select Case plan
Case "A"
[Link]("Ingrese el monto que paga en el plan A")
costoplan = [Link]
[Link]("Le corresponden 300 minutos libres.")
If consumo > 300 Then
adicional = 0.1 * costoplan
[Link]("Pago por minuto adicional = ")
[Link](adicional)
[Link]()
total = costoplan + adicional
[Link]("El descuento es de 0 para su plan")
[Link]("El monto a pagar es = ")
[Link](total)
Else
If consumo > 0 Then
adicional = 0
[Link]("El descuento es de 0 para
su plan")
[Link]()
total = costoplan + adicional
[Link]("El monto a pagar es = ")
[Link](total)
Else
[Link]("Consumo mal ingresado o
negativo.")
End If
End If
Case "B"
[Link]("Ingrese el monto que paga en el plan A")
costoplan = [Link]
[Link]("Le corresponden 200 minutos libres.")
If consumo > 200 Then
adicional = 0.08 * costoplan
[Link]("Pago por minuto adicional = ")
[Link](adicional)
[Link]()
desc = (costoplan + adicional) * 0.05
[Link]("El descuento es de 5% para su plan =
")
[Link](desc)
[Link]()
total = costoplan + adicional - desc
[Link]("El monto a pagar es = ")
[Link](total)
Else
If consumo > 0 Then
adicional = 0
desc = (costoplan + adicional) * 0.05
[Link]("El descuento es de 5% para su
plan = ")
[Link](desc)
[Link]()
total = costoplan + adicional - desc
[Link]("El monto a pagar es = ")
[Link](total)
Else
[Link]("Consumo mal ingresado o
negativo.")
End If
End If
Case "C"
[Link]("Ingrese el monto que paga en el plan C")
costoplan = [Link]
[Link]("Le corresponden 200 minutos libres.")
If consumo > 100 Then
adicional = 0.05 * costoplan
[Link]("Pago por minuto adicional = ")
[Link](adicional)
[Link]()
desc = (costoplan + adicional) * 0.1
[Link]("El descuento es de 10% para su plan =
")
[Link](desc)
[Link]()
total = costoplan + adicional - desc
[Link]("El monto a pagar es = ")
[Link](total)
Else
If consumo > 0 Then
adicional = 0
desc = (costoplan + adicional) * 0.01
[Link]("El descuento es de 10% para su
plan = ")
[Link](desc)
[Link]()
total = costoplan + adicional - desc
[Link]("El monto a pagar es = ")
[Link](total)
Else
[Link]("Consumo mal ingresado o
negativo.")
End If
End If
Case Else
[Link]("Plan mal elegido.")
End Select
[Link]()
[Link]()
End Sub
Programa sobre la compra de madera:
Sub Main()
[Link]("Programa compra de madera")
[Link]()
Dim metros As Single
dim costo as Single
dim madera as string
dim total as Single
[Link]("Introduzca cuantos metros cubicos piensa comprar =")
metros = [Link]
[Link]("Introduzca que tipo de madera quiere comprar =")
madera= [Link]
[Link]("Introduzca el costo por metro cubico =")
costo= [Link]
[Link]()
select case metros
case is <30
total = 0.98*metros*costo
[Link]("total a pagar es=")
[Link](total)
case is >=30
select case madera
case "A"
total = 0.96*metros*costo
[Link]("total a pagar es=")
[Link](total)
case "B"
total = 0.92*metros*costo
[Link]("total a pagar es=")
[Link](total)
case "C"
total = 0.90*metros*costo
[Link]("total a pagar es=")
[Link](total)
case else
[Link]("tipo no
existente.")
end select
case is <0
[Link]("No hay cantidades
negativas")
case else
[Link]("error encontrado")
end select
[Link]()
[Link]()
End Sub
