Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB para calcular el flete de mercancías

Programación VB para calcular el flete de mercancías

'Agregue tres cuadros de texto text1 (indica el peso de la mercancía) text2 (distancia de envío) text3 (muestra los resultados de la operación) en el formulario

Private Sub Command1_Click()

Peso atenuado

Espacio atenuado

Dim T

Dim p

peso = Val(Text1.Text) ' Indica el peso de la mercancía

space = Val(Text2.Text) 'Indica la distancia de envío

Si el espacio <= 100 y el espacio > 0 Entonces

p = 1

ElseIf espacio <= 200 Y espacio > 100 Entonces

p = 1.25

ElseIf espacio <= 300 Y espacio > 200 Entonces

p = 1,5

Si no es espacio <= 400 y espacio > 300 entonces

p = 1,75

Si no es espacio > 400 entonces

p = 2

Fin Si

Si peso <= 5 Y peso > 0 Entonces

T = p * peso * espacio

ElseIf peso < = 10 Y peso > 5 Entonces

T = (p * 5 + p * 1.1 * (peso - 5)) * espacio

ElseIf peso <= 20 Y peso > 10 Entonces

T = (p * 5 + p * 1.1 * 5 + p * 1.2 * (peso - 10)) * espacio

ElseIf peso > 20 Entonces

T = p * 1.2 * peso * espacio

End If

Text3.Text = T 'Mostrar resultados de la operación

End Sub