vb中计算邮包邮寄问题

来源：百度知道 编辑：UC知道 时间：2024/06/23 23:04:04
邮局收寄到某地的邮包，如果邮包不超过20kg，每公斤按0．75元邮寄；超过20kg，其超过部分按每公斤0．98元计价。另外，每个邮包收手续费0．2元。计算总邮费P。邮包的重量w从键盘读取，邮费P显示输出。程序可以多次计算，当输入0时结束。

不要控件，运行程序即可开始

Private Sub Form_Activate()
Dim w As Single, p As Single
w = Val(InputBox("请输入邮包的重量，输入0结束（单位：KG）："))
Do While w <> 0
If w < 0 Then
p = 0
ElseIf w <= 20 Then
p = 0.75 * w + 0.2
Else
p = 20 * 0.75 + (w - 20) * 0.98 + 0.2
End If
Print "P="; p
w = Val(InputBox("请输入邮包的重量，输入0结束（单位：KG）："))
Loop
End
End Sub

w=text1.text

if w>20 then
p=20*0.75+(w-20)*0.98+0.2
esle
P=w*0.75+0.2
end if
text2.text=w

我的这个意思是,有一个文本框负责输入公斤数, 一个按钮负责确定,一个文本框负责输出价钱.