编写一个Function过程Calculate，用来计算货物运费。设货物运费每吨单价P（元）与运输距离d（公里）之间有如下关系：
编写一个Function过程Calculate，用来计算货物运费。设货物运费每吨单价P（元）
与运输距离d（公里）之间有如下关系：
用InputBox函数输入要托运的货物重量为W吨、托运的距离为d公里，计算总运费T：T=P*W*d。
【正确答案】：
【评分参考】
（1）程序结构完整，流程合理，算法正确，给满分。
（2）变量无声明，扣 1 分；主流程不清晰，扣 3 分；关键算法错误扣 3 分。
（3）重要代码缺少，扣 3 分。
（4）如果思路正确，但代码不完整的，根据代码质量适当给分。