VB火车托运行李运费问题

Private Sub Command1_Click()

a = int(InputBox(""))

if a mod 50 <=0 then

print "你的行李重量是" &a &"Kg，所需运费为" &1.5 * csng(a)

else

print "你的行李重量是" &a &"Kg，此旦姿所需运森绝费为"迟银 &1.5 * 50 + 2.5 * csng(a mod 50)

End if

End Sub

第一，关于报错的问题拿空启，你可以使用on error resume next语句

第二，关于让程序知道已经取消自启动的问题有两种方式处理：

1.可以检查注册表

2.可以在执行完删除注册表后，在本地创建一个标示文件，点击按消如钮时先检验标示文件即可亏模 ，给你一个实例代码吧

fno=freefile()

Open App.Path &"\states.ini" For Input As #1

Do Until EOF(1)

Line Input #1, a

Loop

Close #1

if val(a)<>1 then

'这里填写你的删除注册表的 *** 作

'这一部分是用来把状态写进文件的

Open App.Path &"\States.ini" For Output As #fno

Print #fno, 1

Close #fno

else

msgbox "已经 *** 作过了！"

end if

---