按揭购房还款计划设计报告

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

4、 iCombo1.Text = 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

5、Single, z As Single, Rate As Single， 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 <= 0 Then M

6、sgBox "还款年数必须大于零。",48," 注意":Exit SubIf IsNumeric(Combol.Text) = False The n MsgBox "请输入合适的还款年数。",48,"意":Exit Subs = Textl.TextYear = Combol.TextFori = 0 To 3S为贷款的数额'Year为还款的年数'i为享受政策性贷款的人数If Option1(i) Then Exit ForNext iIf s>z the nElse z = ss=0

7、9;计算出各种情况下的政策性贷款额和商业性贷款额End Ifs = s * 10000z = z * 10000si = (s * (0.05 / 12) * (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&quo

8、t;)'用于显示每月还款额Form2.Text2 =Format(s1 + z1) * Year * 12, "0.00")'用于显示全部本息总和Form2.Text3 =(s1 + z1) * Year * 12 / (s + z)'用于显示还款与货款之比Form2.Show 1'显示窗体form2End Sub对于加载的窗体form2的代码编写为:Private Sub Comma nd1_Click()Un load Me'只是退出程序而不是停止运行程序End Sub针对等额本金还款法的程序代码：Private Sub Comm

9、a 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,start_year As Integer,start_monthAs In tegerIf IsNumeric(Texti.Text) = False Then MsgBox " 请输入合适的贷款额。",48,"注意":Exit SubIf Textl.Text <= 0 Then Ms

10、gBox "贷款总额必须大于零。",48," 注意":Exit SubIf Combol.Text <= 0 Then MsgBox "还款年数必须大于零。",48," 注意":Exit SubIf IsNumeric(Combol.Text) = False The n MsgBox "请输入合适的还款年数。",48," 注意":Exit Subs = Textl.TextYear = Combol.Text start_year = Combo2.Text star

11、t_mo nth = Combo3.Text ReDim b1(Year * 12) ReDim b2(Year * 12)Fori = 0 To 3If Option1(i) Then Exit For Next iz = i * 6If s > z The n'start year 为开始还款的年份 start mon th 为开始还款的月份'得到享受政策性还款的人数s = s - zElsez = ss = 0End Ifs = s * 10000z = z * 10000Load Form3'得到商业性贷款的数额'得到政策性贷款的数额'下载

12、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") & "循

13、环求商业性还款额循环求政策性还款额年"& 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 Su

14、b'计算其还货比'显示form3窗体对于加载的Form3窗体编写的程序代码为:Private Sub Comma nd1_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","文件名") 利用InputB

15、ox函数来引入输入对'如果s为空则退出不保存'打开文件供输出输出i行内容'关闭文件#1End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub针对退出应用程序的程序代码：Private Sub Comma nd3_Click()End'结束运行End Sub四、设计方案的完善及目前存在的问题1.设计方案要完善的地方 框中每月还款额的陈述不一定非得使用列表框，因为需要用到循环程序，所以有时 候脑子转不过来，可以用文本框加上滚动条来显示更能让人理解。 政策性贷款额和商业性贷款额的计算比较繁琐。2.目前存在的问题当对F

16、orm3的每月还款额进行保存路径时，必须提前在计算机中建立text文档，这使得过程繁琐，希望可以找到一种方式可以让它直接存盘。五、本次设计的收获及心得体会这个程序的应用价值很高，在做的过程中，首先构思程序，形成思路，然后再进行上机编程，编程的过程中，还要查阅一些相关的资料。虽然程序编好了，但还是会遇到运行不起来的情况，于是我就调试它。还会有一些拼写错误。需要仔细耐心的调整，最终才完整的做完，功能还算完善，可以运行。我希望自己在接下来的学习中更好的去学习计算机编程，可 以在日后学以致用，把学到的知识应用于实践当中，对人们的工作和生活有所帮助。在学习过程中，我遇到问题会问同学，会自己查书，养成了很

17、好的自主学习的习惯，让 我体会了认真、投入的去做一件事也可以得到很多快乐，只要自己全身心的投入，也可以很享受，乐在其中。同时，程序的设计也教会了我要有思维、有逻辑的做事才能做好，做精， 这就是我一个学习体会。在这次编程过程中我通过建立Option1,Option2,Option3,Option4四个单选框，了解了什么叫控件数组。当然有些东西在书本上是找不到的，于是我就到图书馆查阅资料。当我翻及“常用控件”那一章节细读之后，学习了不少东西。在设计的过程中，我们需要足够的耐 心与细心。当程序设计完成并且运行无误的时候，内心十分高兴，我体会到了收获的喜悦， 同时也深刻感受到了信息技术带给人们的巨大便利，提高了工作效率，方便了人们的生活。 因此我对计算机和编程的兴趣有了进一步的增加。六、对该题目和VB设计的意见和建议1. 对该题目的意