旅客乘车旅行，可免费携带30公斤行李，超过30公斤部分则

旅客乘车旅行，可免费携带30公斤行李，超过30公斤部分则

用If..then..elseif Dim w w = InputBox("请输入重量：", "重量") j = 0 If w > 50 Then j = 20 ElseIf w > 30 Then j = 10 End If If w = "" Then j = 0 MsgBox "行李托运费为：" & j & "元" 用select case Dim w w = InputBox("请输入重量：", "重量") j = 0 Select Case w Case Is > 50 j = 20 Case Is > 30 j = 10 End Select If w = "" Then j = 0 MsgBox "行李托运费为：" & j & "元" 希望能帮到你