Solicitud urgente~ Utilice la programación VB para calcular tarifas de taxi y escribir un programa. Tiene que ser ejecutable, ¡gracias!
Han pasado dos días. Nadie puede ayudarte. Vamos, déjame escribirlo por ti.
5:0-23:00. >
El nombre del cuadro de millas es?txtkm,
La etiqueta donde se muestra el monto es: lablmoney?
Consulte la imagen a continuación. El código está en el. fin..
Opción ?Explícita
'La tarifa inicial de un taxi en Shanghai es de 12 yuanes (3 kilómetros); 10 kilómetros
'¿El tiempo de espera es cada 5 2,4 yuanes por minuto? El período de operación nocturna es de 23:00 a 5:00. La tarifa inicial es de 16 yuanes (un aumento del 30% del servicio nocturno). tarifa). El precio unitario también aumenta
Private?Sub?Command1_Click()
If?optbt.Value?=?False?And?optws.Value?=?False?Then
MsgBox?"¡Seleccione un período de tiempo!"
ElseIf? optbt.Value?=?True?Then
lablmoney.Caption?=?12? +?jsk(Val(txtkm.Text))
Else
lablmoney.Caption?=?16?+?jsk(Val(txtkm.Text))
¿Fin?Si
Fin?Sub
¿Privado?Función jsk(lc?As?Double)?As?Double
Si?lc?< ?3?Entonces
jsk?=?jsks(Val(txtime.Text))
ElseIf?lc?>?10?Entonces
jsk?= ?(lc?-?3)?*?3.2?+?jsks(Val(txtime.Text))
Else
jsk?=?(lc?-?3) ?*?2.4?+?jsks(Val(txtime.Text))
¿Fin?Si
¿Fin?Función
¿Función?privada?jsks(sj ?¿Como?Doble)?Como?Doble
Si?sj?
jsks?=?0
ElseIf?sj?>? 5?Entonces
jsks?=?Int(sj?/?5)?*?2.4
¿Fin?Si
¿Fin?Función