Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
100% encontró este documento útil (1 voto)
454 vistas3 páginas

Ejercicios de If Anidados y Select Case

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1/ 3

Resuelvan los siguientes ejercicios:

1.- En una tienda de venta de repuestos automotrices se tiene que el descuento


depende del monto de venta, así:

Se ingresa el monto de venta y el sistema debe calcular el descuento y restarlo


del total según las reglas:

 Si el monto es menor que 500 no hay descuento


 Si el monto está comprendido entre 500 y 1000 inclusive, el descuento es
de 5%
 Si el monto está comprendido entre 1000 y 7000 inclusive, el
descuento es del 11%
 Si el monto está comprendido entre 7000 y 15000 inclusive, el descuento
es del 18%
 Si el monto es mayor de 15000 el desc es del 25%.por ejemplo
 si se ingresa un monto de 5000 el descuento será 550, y por tanto el valor
a pagar será 4450.

2. El alquiler de un vehículo cuesta 200.000 pesos por día


más 20.000 pesos por cada kilómetro recorrido. Escribir un programa
que lea por teclado el número de días en alquiler y el números de
kilómetros recorridos y muestre el monto total que se debe pagar.
Deben verificar que las casillas de texto no se encuentren vacías.
3. Desarrollar un programa en Visual Basic 6.0 que muestre el desempeño de una
persona en un examen de acuerdo a la cantidad de preguntas acertadas.
0 o 1 acierto: Deficiente,
2 aciertos: Insuficiente,
3 aciertos: Aceptable,
4 aciertos: Sobresaliente,
5 aciertos : Excelente
2.

Private Sub Command1_Click()


'Declaramos las constantes
Const AlquilerDelAuto = 200.000
Const KilometrosRecorrido = 20.000

Dim DiasDeAlquiler As Integer


Dim KilometrosRecorridos As Integer

DiasDeAlquiler = Val(Text1)
Kilometros = Val(Text2)

If Text1 = "" Then


MsgBox "No has ingresado los dias"
ElseIf Text2 = "" Then
MsgBox "No has ingresado los kilometros"
Else
Label3 = (DiasDeAlquiler * AlquilerDelAuto) + (KilometrosRecorrido * Kilometros)
End If

End Sub

También podría gustarte