Recorrido del Camión y ganancia del chófer (Visual Basic)

Recorrido del Camión y ganancia del chófer (Visual Basic)

CONSIGNA
Ingresar el camión, sus kilómetros iniciales, sus kilómetros finales y el nombre del chófer. Luego informar los kilómetros realizados y la ganancia del chófer ($50 por kilómetro recorrido). Realizar el valor del IVA al 21% o 18% respectivamente.

INTERFAZ

FUENTE
Private Sub calcular_Click()
KMR = KMF - KMI
Importe = KMR * 50
If (TIVA = "21") Then
IVA = Importe * 0.21
Else
IVA = Importe * 0.18
End If
If KMR >= 10000 Then
Bonificacion = KMR * 2
End If
Subtotal1 = Val(Importe) + Val(IVA)
Pago = KMR * 5
subtota2 = Val(Importe) + Val(IVA) + Val(Bonificacion)
End Sub

---

Private Sub Form_Load()
camion = ""
KMI = ""
KMF = ""
Importe = 0
TIVA = ""
IVA = 0
Subtotal1 = 0
Chofer = ""
KMR = ""
Pago = ""
Bonificacion = ""
subtota2 = ""
End Sub

---

Private Sub limpiar_Click()
camion = ""
KMI = ""
KMF = ""
Importe = 0
TIVA = ""
IVA = 0
Subtotal1 = 0
Chofer = ""
KMR = ""
Pago = ""
Bonificacion = ""
subtota2 = ""
End Sub

---

Private Sub salir_Click()
Unload Me
End Sub