VB算法设计打开'c:\MyExam\工程1.vbp'完成如下算法设计 请你为某汽车运输公司编制一个计算运输费用的程序,运输费用的计算方法是距离愈远,每公里运价愈低,如下表所示： 距离s＜500公里

VB算法设计打开'c:\MyExam\工程1.vbp'完成如下算法设计 请你为某汽车运输公司编制一个计算运输费用的程序,运输费用的计算方法是距离愈远,每公里运价愈低,如下表所示： 距离s＜500公里
VB算法设计
打开'c:\MyExam\工程1.vbp'完成如下算法设计 请你为某汽车运输公司编制一个计算运输费用的程序,运输费用的计算方法是距离愈远,每公里运价愈低,如下表所示：     距离s＜500公里                   折扣=0%            500=＜s＜1000            折扣=5%            1000=＜s＜3000          折扣=10%            s＞=3000                      折扣=15% 如果运输的货物重为15吨,每吨运价为0.225元,请根据不同的运输距离计算出运费. 注：1.请勿更改main函数.2.请在函数func(c)中实现功能.     帮我写一下吧 好不好  不用做 只要把那些代码呀什么的全给我弄过来就好了 注意：一定是我将这个复制到程序里就可以直接得到我想要的结果的如果我满意的话  我会加分的  我保证 

VB算法设计打开'c:\MyExam\工程1.vbp'完成如下算法设计 请你为某汽车运输公司编制一个计算运输费用的程序,运输费用的计算方法是距离愈远,每公里运价愈低,如下表所示： 距离s＜500公里
我写了一个函数,你看看符不符合你的要求,使用方法我也写在代码中：
'定义x为函数,其中x为价钱,zl是货物的重量,juli为货物运送的距离
Public Function x(zl As Integer, juli As Integer) As Single '使用方法是： x（货物重量,运送距离）
If juli < 500 Then '然后print x
x = zl * 0.225
ElseIf juli >= 500 And juli < 1000 Then
x = (zl * 0.225) * 0.95
ElseIf juli >= 1000 And juli < 3000 Then
x = (zl * 0.225) * 0.9
ElseIf juli > 3000 Then
x = (zl * 0.225) * 0.85
End If
End Function