文档介绍：该【VB-编程--报销计算器 】是由【儒林】上传分享，文档一共【10】页，该文档可以免费在线阅读，需要了解更多关于【VB-编程--报销计算器 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。VB-编程--报销计算器报销计算器本程序采用VB语言编写,编程软件为VS2012本计算器是为了计算出差补助,实现以下功能1:能够方便的输入省会补助标准(包含:住宿和其他补助项)_高标准、地方补助标准_低标准2:能够完整的输入车票信息:车票日期时间、出发地点、目的地点、车票价格、以及乘车方式3:能够准确的计算出各项补助金额,以及补助总金额4:能够将车票按照时间顺序排序并输出到文本中,并能计算出在各地的住宿天数具体程序及界面如下:If(Int()/100)>24Or(Int()Mod100)>=60ThenMsgBox("输入的时间不正确,请重新输入")ExitSubEndIfEndIfcp(i).riq='<>""Thencp(i).shij=(i).chufd='读取车票地址信息cp(i).mudd=(i).shengh='=""=""ThenMsgBox("请将省会补助标准正确填写完整,没有填0")'=""=""ThenMsgBox("请将地方补助标准正确填写完整,没有填0")=""ThenMsgBox("请输入车票价格,点击确定继续")ExitSubElsecp(i).jiag=''判断车票类型,并对相应车票求和ph+cp(i).jiagcp(i).jiaotfs="火车"+cp(i).jiagcp(i).jiaotfs="汽车"Elsepf+cp(i).jiagcp(i).jiaotfs="服务车"=False'保证第一次正确输入后标准不能更改i=i+'("输入成功,点击确定继续")=i&"张"()'=""EndSubPrivateSubJS_Click(senderAsObject,eAsEventArgs),nAsIntegerDimzAsInteger,qAsIntegerDimepAschepiaoDimjiaozAsIntegerjiaoz=0Ifi=0ThenMsgBox("没有数据可供计算,请输入数据后再尝试计算")ExitSubEndIfCzs=0Cqt=0Form=0Toi-2'对车票按时间排序Forn=m+1Toi-1IfDateDiff(,cp(m).riq,cp(n).riq)<0Thenep=cp(m)cp(m)=cp(n)cp(n)=epElseIfDateDiff(,cp(m).riq,cp(n).riq)=0Andcp(m).shij>cp(n).shijThenep=cp(m)cp(m)=cp(n)cp(n)=epEndIfNextNextForm=1Toi-1n=DateDiff(,cp(m-1).riq,cp(m).riq)Ifcp(m-1).shenghAndn<>0Thenjiaoz=jiaoz+1cp(m-1).tians=nIfcp(m-1).shenghThen'判断补助标准z=====Czs+z*nCqt=Cqt+q*==Cqt-jiaoz*(Int()-Int())+Czs+CqtEndSub'数据输出到文本中PrivateSubshuchu_Click(senderAsObject,eAsEventArgs),mAsIntegerDimpathAsStringDimriqiAsStringIfi=0ThenMsgBox("没有数据可供输出,请输入数据后再尝试输出")()'打开保存对话框path='()'path=()Forn=0Toi-1Form=1To(10-Len(cp(n).chufd)*2)\2'将出发地点标准还为10个字符cp(n).chufd=""&cp(n).chufd&""NextForm=1To(10-Len(cp(n).mudd)*2)\2'将目的地点标准还为10个字符cp(n).mudd=""&cp(n).mudd&""NextForm=1To(8-Len(cp(n).jiaotfs)*2)\2'将交通方式标准化为8个字符cp(n).jiaotfs=""&cp(n).jiaotfs&""(path,"日期时间出发地点目的地点交通方式价格住宿天数"&vbNewLine,True)Forn=0Toi-1'输出车票明细riqi=Format(cp(n).riq,"yyyyMMdd")(path,riqi,True)Ifcp(n).shij=""Then'(path,""&"",True)ElseIfcp(n).shij\1000=(path,""&cp(n).shij\100&":"&cp(n).shijMod100&"",True)(path,""&cp(n).shij\100&":"&cp(n).shijMod100,True)(path,""&cp(n).chufd,True)(path,""&cp(n).mudd,True)(path,""&cp(n).jiaotfs,True)Ifcp(n).jiagMod1=0Then'将车票价格标准化为5个字符并输出Ifcp(n).jiag\10=(path,""&""&cp(n).jiag&"",True)ElseIfcp(n).jiag\100=(path,""&""&cp(n).jiag&"",True)ElseIfcp(n).jiag\1000=(path,""&""&cp(n).jiag&"",True)ElseIfcp(n).jiag\10000=(path,""&cp(n).jiag&"",True)(path,""&cp(n).jiag,True)EndIfElseIfcp(n).jiag\10=(path,""&""&cp(n).jiag&"",True)ElseIfcp(n).jiag\100=(path,""&cp(n).jiag&"",True)'ElseIfcp(n).jiag\1000=0Then'(path,""&cp(n).jiag,True)(path,""&cp(n).jiag,True)(path,""&cp(n).tians&vbNewLine,True)Next'(path,vbNewLine,True)(path,"汽车票:"&pq)&"元"&vbNewLine,True)(path,"火车票:"&ph)&"元"&vbNewLine,True)(path,"过路费:"&pf)&"元"&vbNewLine,True)(path,"住宿补贴:"&Str(Czs)&"元"&vbNewLine,True)(path,"其他补助:"&Str(Cqt)&"元"&vbNewLine,True)IfInt()(path,"费用总和:"&""&&"元"&vbNewLine,True)Shell(""&path)EndSub'清除数据PrivateSubqingchu_Click(senderAsObject,eAsEventArgs)=0ThenMsgBox("没有车票可供清除")ExitSubEndIfCzs=0Cqt=0i=i-1Ifcp(i).jiaotfs="汽车"pq-cp(i).jiagIfcp(i).jiaotfs="火车"ph-cp(i).jiagIfcp(i).jiaotfs="服务车"pf-cp(i).jiagMsgBox("清除:"&cp(i).riq&""&cp(i).chufd&"到"&cp(i).mudd&""&"价格:"&cp(i).jiag)=i&"张"="0"="0"="0"EndSub'出发地与目的地地址交换PrivateSubLabel11_Click(senderAsObject,eAsEventArgs)======='防止输入非法字符PrivateSubshbz1_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=8OrAsc()=46ThenExitSubIfAsc()=()IfAsc()<=47OrAsc()>==""EndSub'防止输入非法字符PrivateSubshbz2_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=8OrAsc()=46ThenExitSubIfAsc()=()IfAsc()<=47OrAsc()>==""EndSub'防止输入非法字符PrivateSubdfbz1_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=8OrAsc()=46ThenExitSubIfAsc()=()IfAsc()<=47OrAsc()>==""EndSub'防止输入非法字符PrivateSubdfbz2_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=8OrAsc()=46ThenExitSubIfAsc()=()IfAsc()<=47OrAsc()>==""EndSub'防止输入非法字符PrivateSubcfsj_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=8ThenExitSubIfAsc()=()IfAsc()<=47OrAsc()>==""EndSub'防止输入非法字符PrivateSubcpjg1_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=8OrAsc()=46ThenExitSubIfAsc()=()IfAsc()<=47OrAsc()>==""EndSubPrivateSubcfdd_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=()EndSubPrivateSubmddd_KeyPress(senderAsObject,eAsKeyPressEventArgs)()=()EndSubEndClass