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() p>
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