vb编程计算货物的运费编程计算货物的运费.货物重量为w吨、托运距离为d千米、运费单价p元.若：w≤5,总运费T=p×w×d；5

Question

vb编程计算货物的运费
编程计算货物的运费.货物重量为w吨、托运距离为d千米、运费单价p元.
若：w ≤ 5,总运费T = p×w×d；
5 < w ≤ 10,总运费T = ( p×5 + p×1.1×（w -5）)×d；
10 < w ≤ 20,总运费T = ( p×5 + p×1.1×5+ p×1.2×（w -10）)×d；
w ≥ 20,总运费T = p×1.2×w×d
单价P与距离d的关系如下：

Answer 1

'在窗体上添加三个文本框 text1(表示货物重量) text2(托运距离) text3（显示运算结果）
Private Sub Command1_Click()
Dim weight
Dim space
Dim T
Dim p
weight = Val(Text1.Text) '表示货物重量
space = Val(Text2.Text) '表示托运距离
If space 0 Then
p = 1
ElseIf space 100 Then
p = 1.25
ElseIf space 200 Then
p = 1.5
ElseIf space 300 Then
p = 1.75
ElseIf space > 400 Then
p = 2
End If



If weight 0 Then
T = p * weight * space
ElseIf weight 5 Then
T = (p * 5 + p * 1.1 * (weight - 5)) * space
ElseIf weight 10 Then
T = (p * 5 + p * 1.1 * 5 + p * 1.2 * (weight - 10)) * space
ElseIf weight > 20 Then
T = p * 1.2 * weight * space

End If
Text3.Text = T '显示运算结果
End Sub