VB-编程--报销计算器.docxVIP

VB-编程--报销计算器

完整程序如下:

PublicClassForm1

Structurechepiao

DimriqAsDate

DimshijAsString

DimjiagAsSingle

DimchufdAsString

DimmuddAsString

DimshenghAsBoolean

DimjiaotfsAsString

DimtiansAsInteger

EndStructure

Privatecp(200)Aschepiao

PrivateCcpqAsSingle,CcphAsSingle,CcpfAsSingle,CzsAsInteger,CqtAsInteger

PrivatezAsInteger,qAsInteger

PrivateiAsInteger

PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.Load

Czs=0为全局数据赋初始值

Cqt=0

Ccpq=0

Ccph=0

Ccpf=0

i=0

EndSub

读取车票信息并对出行方式车票价格求和

PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesSR.Click

Ifcfsj.TextThen

If(Int(cfsj.Text)/100)24Or(Int(cfsj.Text)Mod100)=60Then

MsgBox(输入的时间不正确，请重新输入)

ExitSub

EndIf

EndIf

cp(i).riq=Date1.Value读取车票时间信息

Ifcfsj.TextThencp(i).shij=cfsj.Text

cp(i).chufd=cfdd.Text读取车票地址信息

cp(i).mudd=mddd.Text

cp(i).shengh=sh.Checked记录车票目的地是否为省会

Ifshbz1.Text=Orshbz2.Text=Then

MsgBox(请将省会补助标准正确填写完整，没有填0)检查补助标准是否填写正确

ExitSub

EndIf

Ifdfbz1.Text=Ordfbz2.Text=Then

MsgBox(请将地方补助标准正确填写完整，没有填0)

ExitSub

EndIf

Ifcpjg1.Text=Then

MsgBox(请输入车票价格，点击确定继续)

ExitSub

Else

cp(i).jiag=cpjg1.Text判断是否为第一天出行

Ifhc.CheckedThen判断车票类型，并对相应车票求和

Ccph=Ccph+cp(i).jiag

cp(i).jiaotfs=火车

ElseIfqc.CheckedThen