Question

这道vb编程题怎么做？

、程序设计题：

火车站托运行李的收费标准是50kg以内（包括50kg），按0.2元/kg，超过部分0.5元/kg。

编写程序，要求根据输入的重量（inputbox），计算出应付的托运行李费(print 或msgbox)

Answer 1

Function aaaa() As Double
Dim a As Variant, b As Double
a = InputBox("请输入托运行李的重量：", "对话框")
If Not IsNumeric(a) Then MsgBox "重量应为数值！", 48: Exit Function
b = a * 0.2
If a > 50 Then b = a * 0.5 - 15
MsgBox b, 48
aaaa = b
End Function

Answer 2

dim weight
if weight<=50
then
price=0.2*weight
else
price=0.5*weight-15
endif
MsgBox price

有段时间没有用VB了可能语法格式有问题，你自己查询下语法吧。。。。