某物流公司规定A、B两地之间物品的托运费用根据下面的方法计算：物品重量在50千克以内，托运费为每千克0.65元，超过的话，超过部分每千克0.95元，请完善下面的程序。

Dim G As Integer

Dim M As Integer

Input “输入重量 G = ”; G

If  then

    M=0.65*G

Else

    M=

End if

Print “运费为：”; M