Programación VB del programa de facturación de taxis

Cantidad=0

Kilómetros=inputbox("¡Ingrese los kilómetros!")

si kilómetros lt;=3 entonces

Cantidad=11

si no

si kilómetros lt;=10 entonces

Cantidad=11 cint(km-3)*2.1

else

Cantidad=11 cint(10-3)*2.1 cint(km-10)*3.2

finalizar si

terminar si