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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)