VB_编程__报销计算器

《VB_编程__报销计算器》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、....报销计算器本程序采用VB语言编写，编程软件为VS2012本计算器是为了计算出差补助，实现以下功能1：能够方便的输入省会补助标准（包含:住宿和其他补助项）_高标准、地方补助标准_低标准2：能够完整的输入车票信息：车票日期时间、出发地点、目的地点、车票价格、以及乘车方式3：能够准确的计算出各项补助金额，以及补助总金额4：能够将车票按照时间顺序排序并输出到文本中，并能计算出在各地的住宿天数具体程序及界面如下：学习参考....完整程序如下:PublicClassForm1StructurechepiaoDimriqAsDateD

2、imshijAsStringDimjiagAsSingleDimchufdAsStringDimmuddAsStringDimshenghAsBooleanDimjiaotfsAsStringDimtiansAsIntegerEndStructurePrivatecp(200)AschepiaoPrivateCcpqAsSingle,CcphAsSingle,CcpfAsSingle,CzsAsInteger,CqtAsIntegerPrivatezAsInteger,qAsIntegerPrivateiAsIntegerPri

3、vateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadCzs=0'为全局数据赋初始值Cqt=0Ccpq=0Ccph=0Ccpf=0i=0EndSub'读取车票信息并对出行方式车票价格求和PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesSR.Click学习参考....Ifcfsj.Text<>""ThenIf(Int(cfsj.Text)/100)>24Or(Int(cfsj.Text)M

4、od100)>=60ThenMsgBox("输入的时间不正确，请重新输入")ExitSubEndIfEndIfcp(i).riq=Date1.Value'读取车票时间信息Ifcfsj.Text<>""Thencp(i).shij=cfsj.Textcp(i).chufd=cfdd.Text'读取车票地址信息cp(i).mudd=mddd.Textcp(i).shengh=sh.Checked'记录车票目的地是否为省会Ifshbz1.Text=""Orshbz2.Text=""ThenMsgBox("请将省会补助标准正确填写完整，

5、没有填0")'检查补助标准是否填写正确ExitSubEndIfIfdfbz1.Text=""Ordfbz2.Text=""ThenMsgBox("请将地方补助标准正确填写完整，没有填0")ExitSubEndIfIfcpjg1.Text=""ThenMsgBox("请输入车票价格，点击确定继续")ExitSubElsecp(i).jiag=cpjg1.Text'判断是否为第一天出行Ifhc.CheckedThen'判断车票类型，并对相应车票求和Ccph=Ccph+cp(i).jiagcp(i).jiaotfs="火车"ElseI

6、fqc.CheckedThenCcpq=Ccpq+cp(i).jiagcp(i).jiaotfs="汽车"ElseCcpf=Ccpf+cp(i).jiagcp(i).jiaotfs="服务车"EndIfEndIfGroupBox1.Enabled=False'保证第一次正确输入后标准不能更改i=i+1Textqc.Text=Ccpq'输出各项费用Texthc.Text=Ccph学习参考....Textglf.Text=CcpfMsgBox("输入成功,点击确定继续")Label12.Text=i&"张"cpjg1.Focus()

7、'车票价格输入框获得焦点cpjg1.Text=""EndSubPrivateSubJS_Click(senderAsObject,eAsEventArgs)HandlesJS.ClickDimmAsInteger,nAsIntegerDimzAsInteger,qAsIntegerDimepAschepiaoDimjiaozAsIntegerjiaoz=0Ifi=0ThenMsgBox("没有数据可供计算，请输入数据后再尝试计算")ExitSubEndIfCzs=0Cqt=0Form=0Toi-2'对车票按时间排序Forn=m+

8、1Toi-1IfDateDiff(DateInterval.Day,cp(m).riq,cp(n).riq)<0Thenep=cp(m)cp(m)=cp(n)cp(n)=epElseIfDateDiff(DateInterval.Day,cp(m).riq,cp