Buscando un programa vb para calcular tarifas de taxi en Shanghai
Modificado:
Conocido:
Precio inicial j0 yuanes (10 yuanes durante el día, 13 yuanes por la noche)
Inicio del kilometraje S1 incluido en el precio = 3 kilómetros
El precio unitario después de superar los 3 kilómetros (s1) es de j1 yuanes/km (2,6 durante el día, 2,6 durante la noche)
Después de superar 10 kilómetros (s2) El precio unitario es j2 yuanes/km (3,9 yuanes/km durante el día y 3,9 yuanes por la noche)
(A través del análisis, se encuentra que todos los cargos por la noche son 1,3 veces más que durante el día)
Restablecer:
p>El kilometraje real es un kilómetro
Opción B durante el día o la noche (b=Y por la noche, b=más por la noche)
(Estos dos parámetros deben determinarse según cada momento. La situación de conducción real se puede determinar mediante un cuadro de diálogo o un cuadro de texto. La variable B también se puede ingresar mediante la opción botón o control de casilla de verificación Por supuesto, también se pueden conectar a la tabla de conducción (precio) para leer los valores de medición o medición. Este programa utiliza la entrada del cuadro de diálogo)
El resultado del precio total es z yuanes (. este ejemplo se muestra en el texto1)
El programa es el siguiente:
Private Sub Form_Click ()
Dim J0 As Single, J1 As Single, J2 As Sencillo
Atenuar A como sencillo, S1 como sencillo, S2 como sencillo
Atenuar Z como sencillo, B como cadena, I como entero
J0 = 10: J1 = 2: J2 = 2.6
S1 = 3: S2 = 10
A = Val(InputBox("Kilometraje real recorrido", "Input", 18)) 'Esta oración se puede ingresar de otras maneras
B = InputBox("Conducir de noche (de 23:00 a 5 del día siguiente): 00)", "Input", "Y") 'Esta oración también se puede ingresar ingresado usando otros métodos
Si B = "Y" Entonces
J0 = J0 * 1.3
p>J1 = J1 * 1.3
J2 = J2 * 1.3
Finalizar si
Z = 0
I = 0
Hacer mientras I lt;= A
Si lt;= S1 Entonces
Z = J0
De lo contrario, Si gt; S1 Y I lt;= S2 Entonces
Z = Z J1
Else
Z = Z J2
Fin si
I = I 1
Bucle
Text1.Text = Format(Z, "0.00")
End Sub
Este programa ya se ha ejecutado.
Si el anfitrión tiene algún requisito adicional, por favor contáctanos nuevamente.