在VB（Visual Basic）中求解运输问题，通常需要考虑以下几个步骤：
获取用户输入 ：包括货物重量、运输距离等。定义运费计算规则：
根据货物重量和运输距离确定运费单价。
计算总运费：
应用运费计算规则得出总运费。
输出结果：
将计算结果显示给用户。
```vb
Private Sub Command1_Click（）
' 获取用户输入
Dim w As Double ' 货物重量（吨）
Dim d As Double ' 运输距离（千米）
Dim p As Double ' 运费单价（元/吨/千米）
Dim T As Double ' 总运费（元）
' 输入货物重量
w = InputBox（"请输入货物重量（吨）："）
' 输入运输距离
d = InputBox（"请输入运输距离（千米）："）
' 定义运费单价
If d <= 500 Then
p = 2.5 ' 250≤s
ElseIf d <= 1000 Then
p = 2 ' 500≤s
ElseIf d <= 2000 Then
p = 1.8 ' 1000≤s
ElseIf d <= 3000 Then
p = 1.5 ' 2000≤s
Else
p = 1.2 ' 3000≤s
End If
' 计算总运费
T = w * p * d
' 输出结果
MsgBox "总运费为：" & Format（T, "F2"） & "元"
End Sub
```
代码解释：
获取用户输入
使用 `InputBox` 函数分别获取货物重量 `w` 和运输距离 `d`。
定义运费单价
根据运输距离 `d` 的不同，设定不同的运费单价 `p`。例如，距离在250千米以内为2.5元/吨/千米，500千米以内为2元/吨/千米，依此类推。
计算总运费
使用公式 `T = w * p * d` 计算总运费。
输出结果
使用 `MsgBox` 函数显示总运费。
注意事项：
确保输入的重量和距离为有效数值。
根据实际情况调整运费单价和计算规则。
可以根据需要扩展程序，例如添加更多的输入验证、错误处理或用户界面元素。
这个示例程序提供了一个基本的运输费用计算框架，你可以根据具体需求进行调整和优化。