NUEVOS EJERCICIOS:
EN EL MERCADO OFRECEN DESCUENTOS DEL 3% SI LLEVA FRUTA, 5% VERDURA Y 7% EN AMBAS SOBRE EL TOTAL DE SU COMPRA, UN CLIENTE DESEA SABER CUANTO VA A PAGAR POR SU COMPRA.
CÓDIGO DEL PROGRAMA :
tprod = InputBox("QUE TIPO DE PRODUCTO LLEVAS: 1 (VERDURAS) 2 (FRUTAS) 3 (AMBAS)")
tcompra = InputBox("TECLEA EL TOTAL DE LA COMPRA: ")
If Val(tprod) = 1 Then
tpagar = Val(tcompra) * 0.95
Else
If Val(tprod) = 2 Then
tpagar = Val(tcompra) * 0.97
Else
tpagar = Val(tcompra) * 0.93
End If
End If
MsgBox "EL TOTAL A PAGAR ES: " & Val(tpagar), vbInformation
Else
MsgBox "TECLEA UN VALOR VALIDO (1,2 ó 3)", vbCritical
End
End If
End
SOLICITAR LAS MEDIDAS DE LOS LADOS DE UN TRIANGULO E INFORMAR UNA VEZ OBTENIDAS, SI EL TRIANGULO ES: EQUILATERO, ISÓSCELES O ESCALENO.
A = InputBox("TECLEA EL 1er. LADO")
C = InputBox("TECLEA EL 3er. LADO")
If Val(A) = Val(B) And Val(B) = Val(C) Then
MsgBox "EL TRIANGULO ES EQUILATERO", vbInformation
Else
If Val(A) <> Val(B) And Val(B) <> Val(C) Then
MsgBox "EL TRIANGULO ES ESCALENO", vbInformation
Else
MsgBox "EL TRIANGULO ES ISOCELES", vbInformation
End If
End If
End
Elaborar un programa que me calcule el número de CD´S necesarios para respaldar la información de
un disco duro cuya capacidad se desconoce, considerar que el disco duro está
lleno de información. Además expresada en Gigabytes (GB) y un CD virgen tiene
700 Megabytes (MB) de capacidad y 1GB= 1,024 MB.
capDDuro = InputBox("TECLEA LA CAPACIDAD DEL DISCO DURO EN GIGABYTES (GB)")
numCD = (Val(capDDuro) * 1024) / 700
MsgBox "EL TOTAL DE CD´S A OCUPAR PARA EL RESPALDO SON: " & numCD, vbInformation
End
Elaborar un programa que solicite 2 número enteros y
pregunte al usuario que operación desea hacer con ellos: SUMAR, RESTAR,
MULTIPLICAR O DIVIDIR.
num1 = InputBox("TECLEA UN NUMERO")
num2 = InputBox("TECLEA OTRO NUMERO")
operacion = InputBox("QUE OPERACION DECEAS REALIZAR: + - / *")
If operacion <> "+" And operacion <> "-" And operacion <> "*" And operacion <> "/" Then
MsgBox "TECLEA SOLO UNA DE LAS OPCIONES: + - * /", vbCritical
End
Else
If operacion = "+" Then
res = Val(num1) + Val(num2)
Else
If operacion = "-" Then
res = Val(num1) - Val(num2)
Else
If operacion = "*" Then
res = Val(num1) * Val(num2)
Else
res = Val(num1) / Val(num2)
End If
End If
End If
MsgBox "EL RESULTADO DE LA OPERACION SOLICITADA ES: " & res, vbInformation
End If
End
