Private Sub Command1_Click()
Dim W As Integer
Dim M As Double
W = Val(InputBox("请输入重量"))
If W <= 50 Then
M = W * 0.25
ElseIf W > 50 And W <= 100 Then
M = 50 * 0.25
M = M + (W - 50) * 0.35
Else
M = 50 * 0.25
M = M + 50 * 0.35
M = M + (W - 100) * 0.45
End If
Print "价格为" & M
End Sub
加个commmand button 把代码加进去