Vb课程设计-按揭购房还款计划Word格式.doc

Vb课程设计-按揭购房还款计划Word格式.doc

《Vb课程设计-按揭购房还款计划Word格式.doc》由会员分享，可在线阅读，更多相关《Vb课程设计-按揭购房还款计划Word格式.doc（7页珍藏版）》请在冰豆网上搜索。

“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。

如果未输入贷款总额就单击“计算”按钮，则显示消息框给予提示。

二、模块之间的调用关系，或程序流程图

Command1

Command2

Command3

主程序

实现等额本息还款法

实现等额本金还款法

退出应用程序

每月还款额︵元︶

全部本息总和︵元︶

还款与货款之比

还款比

保存路径

三、部分程序关键源代码及注释

对于主窗体Form1的代码编写为

PrivateSubForm_Load（）

DimiAsInteger

Fori=1To30

Combo1.AddItemi‘设置还款年数

Nexti

Combo1.Text=15‘系统默认还款年数为15年

Fori=2008To2020

Combo2.AddItemi‘还款起始的年份

Combo2.Text=2008‘系统默认的还款起始年份

Fori=1To12

Combo3.AddItemI‘还款的月份

Combo3.Text=1‘系统默认的还款起始月

Text1.Text=0

Option1

（2）.Value=True

EndSub

针对实现等额本息还款法的程序代码：

PrivateSubCommand1_Click（）

DimsAsSingle,zAsSingle,s1AsSingle,z1AsSingle

DimYearAsInteger,iAsInteger

IfVal（Text1.Text）=0OrVal（Combo1.Text）=0ThenMsgBox"

请输入合适的贷款额。

"

48,"

注意"

:

ExitSub

s=Text1.Text‘S为贷款的数额

Year=Combo1.Text‘Year为还款的年数

Fori=0To3‘i为享受政策性贷款的人数

IfOption1（i）ThenExitFor

z=i*6

Ifs>

zthen

s=s-z

Else

z=s

s=0‘计算出各种情况下的政策性贷款额和商业性贷款额

EndIf

s=s*10000

z=z*10000

s1=（s*（0.05/12）*（1+0.05/12）^（Year*12））/（（1+0.05/12）^（Year*12）-1）

z1=（z*（0.04/12）*（1+0.04/12）^（Year*12））/（（1+0.04/12）^（Year*12）-1）

LoadForm2‘下载窗体form2

Form2.Text1=Format（s1+z1,"

0.00"

）‘用于显示每月还款额

Form2.Text2=Format（（s1+z1）*Year*12,"

）‘用于显示全部本息总和

Form2.Text3=（s1+z1）*Year*12/（s+z）‘用于显示还款与货款之比

Form2.Show1‘显示窗体form2

=====================================================================

对于加载的窗体form2的代码编写为：

UnloadMe‘只是退出程序而不是停止运行程序

针对等额本金还款法的程序代码：

PrivateSubCommand2_Click（）

DimsAsSingle,zAsSingle,RateAsSingle,s1AsSingle,z1AsSingle

DimYearAsInteger,iAsInteger,jAsInteger,start_yearAsInteger,start_monthAsInteger

s=Text1.Text

Year=Combo1.Text

start_year=Combo2.Text‘startyear为开始还款的年份

start_month=Combo3.Text‘startmonth为开始还款的月份

ReDimb1（Year*12）

ReDimb2（Year*12）

Fori=0To3‘得到享受政策性还款的人数

Ifs>

zThen

s=0

s=s*10000‘得到商业性贷款的数额

z=z*10000‘得到政策性贷款的数额

LoadForm3‘下载form3窗体

Fori=1ToYear*12

b1（i）=s/（Year*12）+（s-s/（Year*12）*（i-1））*（0.05/12）

b2（i）=z/（Year*12）+（z-z/（Year*12）*（i-1））*（0.04/12）

s1=s1+b1（i）‘用for循环求商业性还款额

z1=z1+b2（i）‘用for循环求政策性还款额

Form3.List1.AddItemstart_year&

"

年"

&

Format（start_month,"

00"

）&

月：

Format（b1（i）+b2（i）,"

元"

start_month=start_month+1

Ifstart_month=13Thenstart_month=1:

start_year=start_year+1

Form3.Text1=s1+z1‘计算等额本金还款的全部本息总和

Form3.Text2=（s1+z1）/（s+z）‘计算其还货比

Form3.Show1‘显示form3窗体

对于加载的Form3窗体编写的程序代码为：

DimsAsString

DimiAsInteger

s=InputBox（"

请输入文件名及路径。

"

文件名"

）‘利用InputBox函数来引入输入对话框

Ifs="

ThenExitSub‘如果s为空则退出不保存

OpensForOutputAs#1‘打开文件供输出

Fori=0ToList1.ListCount-1

Print#1,List1.List（i）‘输出i行内容

Close#1‘关闭文件#1

UnloadMe

针对退出应用程序的程序代码：

PrivateSubCommand3_Click（）

End‘结束运行

四、设计方案的完善及目前存在的问题

1．设计方案要完善的地方

㈠框中每月还款额的陈述不一定非得使用列表框，因为需要用到循环程序，所以有时候脑子转不过来，可以用文本框加上滚动条来显示更能让人理解。

㈡政策性贷款额和商业性贷款额的计算比较繁琐。

2.目前存在的问题

当对Form3的每月还款额进行保存路径时，必须提前在计算机中建立text文档，这使得过程繁琐，希望可以找到一种方式可以让它直接存盘。

五、本次设计的收获及心得体会

这个程序虽然难度系数是B，但是我还是摸索一阵，它的有些程序我也找了一下，一般的用到的程序我在书上都能找到。

但是由于我的计算机编程知识只是学了一点皮毛，没有达到专业的水平