vb编程：运输部门的货物运费与里程有关，距离越远，每吨货物的单价就越低。假定每吨单价p（元）和距离s（公里）之间的关系如下所示：


编写程序，从键盘上输入要托运的货物重量，然后计算并输出总运费。

解：设总运费为t(元),要托运的货物重量为w(吨)，则计算公式为 t=p*w*s

以下是此题的【VB源代码】
Private Sub Form_Click()

    Dim w As Single, s As Single
    Dim p As Single, t As Single
    w = InputBox("输入货物重量（吨)")
    s = InputBox("输入托运距离（公里）")
    If s <= 0 Then End
    Select Case s
      Case Is < 100
        p = 32
      Case Is < 200
        p = 28
      Case Is < 300
        p = 25
      Case Is < 400
        p = 22.5
      Case Is < 1000
        p = 20
      Case Else
        p = 15
    End Select
    t = p * w * s
    Print w; "吨货物"; s; "公里的总运费为："; t; "元"

End Sub

程序运行后，单击窗体，输入货物重量为5，托运距离为50，输出结果为：
5吨货物 50公里的总运费为：8000元

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_7.4.html