《按揭购房还款计划设计报告》由会员分享，可在线阅读，更多相关《按揭购房还款计划设计报告（7页珍藏版）》请在金锄头文库上搜索。
1、按揭购房还款计划设计报告学院班级学号姓名成绩一、设计思路1要达到的目的 培养学生综合利用 VB语言进行程序设计的能力， 主要是利用VB的图像控件进行界面 设计，用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。 学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计 思想和分析问题、解决问题的能力，特别是项目设计能力。 通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。 掌握自顶而下的设计方法，将大问题进行模块化分解，领会结构化程序设计的方法，同
2、时深刻认识到面向对象程序设计与面向过程设计的根本区别。 进一步掌握在集成环境下调试程序和修改程序的方法和技巧。2关键问题的解决 用户输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月，但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框，显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和、还款额与贷款额之比。 在主窗体中单击“等额本金还款法”按钮，弹出“等额本金还款法”对话框，列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“保存到文件”按钮，显示提示文件名即路径的窗口。然后将列表框中的内容以文本文件的形式保存到指定文件中。“等额本金还款法”和“
3、等额本息还款法”窗口都以模态窗口显示，即必须单击“关 闭”按钮后才能继续使用之窗口。“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击“计算”按钮，则显示消息框给予提示。二、模块之间的调用关系，或程序流程图退出应用程序实现等额本金还款法实现等额本息还款法保存路径设置还款年数系统默认还款年数为 15年还款起始的年份三、部分程序关键源代码及注释对于主窗体Forml的代码编写为Private Sub Form_Load() Dim i As In tegerFor i = 1 To 30Combo1.Addltem iNext iCombo1.Text =
4、 15For i = 2000To 2020Combo2.AddItem iNext iCombo2.Text = Year(Date)Fori = 1 To 12系统默认的还款起始年份Combo3.Addltem I还款的月份Next iCombo3.Text = Mo nth(Date)系统默认的还款起始月Textl.Text = 0系统默认的贷款总额Optio n1(2).Value = TrueEnd Sub针对实现等额本息还款法的程序代码：Private Sub Comma nd1_Click()Dim s As Single, z As Single, Rate As Single
5、， si As Single, z1 As SingleDim Year As In teger, i As In tegerIf IsNumeric(Textl.Text) = False The n MsgBox 请输入合适的贷款额。,48, 注意Exit SubIf Textl.Text = 0 Then MsgBox 贷款总额必须大于零。,48, 注意：Exit SubIf Combol.Text z the nElse z = ss=0计算出各种情况下的政策性贷款额和商业性贷款额End Ifs = s * 10000z = z * 10000si = (s * (0.05 / 12)
6、 * (1 + 0.05 / 12) A (Year * 12) / (1 + 0.05 / 12) A (Year* 12) - 1)z1 = (z * (0.04 / 12) * (1 + 0.04 / 12) a (Year * 12) / (1+ 0.04 / 12) a (Year* 12) - 1)Load Form2下载窗体form2Form2.Text1 =Format(s1 + z1, 0.00)用于显示每月还款额Form2.Text2 =Format(s1 + z1) * Year * 12, 0.00)用于显示全部本息总和Form2.Text3 =(s1 + z1) *
7、Year * 12 / (s + z)用于显示还款与货款之比Form2.Show 1显示窗体form2End Sub对于加载的窗体form2的代码编写为:Private Sub Comma nd1_Click()Un load Me只是退出程序而不是停止运行程序End Sub针对等额本金还款法的程序代码：Private Sub Comma nd2_Click()Dim s As Single, z As Single, Rate As Single, si As Single, z1 As SingleDim Year As Integer,i As Integer, j As Integer
8、,start_year As Integer,start_monthAs In tegerIf IsNumeric(Texti.Text) = False Then MsgBox 请输入合适的贷款额。,48,注意:Exit SubIf Textl.Text = 0 Then MsgBox 贷款总额必须大于零。,48, 注意:Exit SubIf Combol.Text z The nstart year 为开始还款的年份 start mon th 为开始还款的月份得到享受政策性还款的人数s = s - zElsez = ss = 0End Ifs = s * 10000z = z * 1000
9、0Load Form3得到商业性贷款的数额得到政策性贷款的数额下载form3窗体For i = 1 To Year * 12b1(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)用 forz1 = z1 + b2(i)用 forForm3.List1.Addltem start_year & Format(b1(i) + b2(i), 0.00) & 循环求商业性还款额循环
10、求政策性还款额年& Format(start_month, 00) & 元月：” &start_ mon th = start_mo nth + 1If start_ mon th = 13 The n start_ mon th = 1: start_year = start_year + 1 Next iForm3.Text1 = s1 + z1计算等额本金还款的全部本息总和Form3.Text2 = (s1 + z1) / (s + z)Form3.Show 1End Sub计算其还货比显示form3窗体对于加载的Form3窗体编写的程序代码为:Private Sub Comma nd1
11、_Click()Dim s As Stri ngDim i As In tegers = InputBox(请输入文件名及路径。话框If s = The n Exit SubOpe n s For Output As #1For i = 0 To List1.ListCount - 1Print #1, List1. List(i)Next iClose #1,文件名) 利用InputBox函数来引入输入对如果s为空则退出不保存打开文件供输出输出i行内容关闭文件#1End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub针对退出应用程序的程序代
12、码：Private Sub Comma nd3_Click()End结束运行End Sub四、设计方案的完善及目前存在的问题1.设计方案要完善的地方 框中每月还款额的陈述不一定非得使用列表框，因为需要用到循环程序，所以有时 候脑子转不过来，可以用文本框加上滚动条来显示更能让人理解。 政策性贷款额和商业性贷款额的计算比较繁琐。2.目前存在的问题当对Form3的每月还款额进行保存路径时，必须提前在计算机中建立text文档，这使得过程繁琐，希望可以找到一种方式可以让它直接存盘。五、本次设计的收获及心得体会这个程序的应用价值很高，在做的过程中，首先构思程序，形成思路，然后再进行上机编程，编程的过程中，还要查阅
