VB课程设-按揭购房还款计划设计报告.docVIP

按揭购房还款计划设计报告 学院 土木工程 班级 测绘C111 学号 117538 姓名 霍新 成绩 一、设计思路 1.要达到的目的 ⑴培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的图像控件进行界面设计，用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。 ⑵ 学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。 ⑶ 通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。 ⑷ 掌握自顶而下的设计方法，将大问题进行模块化分解，领会结构化程序设计的方法，同时深刻认识到面向对象程序设计与面向过程设计的根本区别。 ⑸ 进一步掌握在集成环境下调试程序和修改程序的方法和技巧。 2.关键问题的解决 ⑴用户输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月，但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框，显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和、还款额与贷款额之比。 ⑵）在主窗体中单击“等额本金还款法”按钮，弹出“等额本金还款法”对话框，列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“保存到文件”按钮，显示提示文件名即路径的窗口。然后将列表框中的内容以文本文件的形式保存到指定文件中。 ⑶“等额本金还款法”和“等额本息还款法”窗口都以模态窗口显示，即必须单击“关闭”按钮后才能继续使用之窗口。“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击“计算”按钮，则显示消息框给予提示。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 对于主窗体Form1的代码编写为 Private Sub Form_Load() Dim i As Integer For i = 1 To 30 Combo1.AddItem i ‘设置还款年数 Next i Combo1.Text = 15 ‘系统默认还款年数为15年 For i = 2008 To 2020 Combo2.AddItem i ‘还款起始的年份 Next i Combo2.Text = 2008 ‘系统默认的还款起始年份 For i = 1 To 12 Combo3.AddItem I ‘还款的月份 Next i Combo3.Text = 1 ‘系统默认的还款起始月 Text1.Text = 0 Option1(2).Value = True End Sub 针对实现等额本息还款法的程序代码： Private Sub Command1_Click() Dim s As Single, z As Single, s1 As Single, z1 As Single Dim Year As Integer, i As Integer If Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox 请输入合适的贷款额。, 48, 注意: Exit Sub s = Text1.Text ‘S为贷款的数额 Year = Combo1.Text ‘Year为还款的年数 For i = 0 To 3 ‘i为享受政策性贷款的人数 If Option1(i) Then Exit For Next i z = i * 6 If sz then s = s - z Else z = s s = 0 ‘计算出各种情况下的政策性贷款额和商业性贷款额 End If 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) Load Form2 ‘下载窗体 form2 Form2.Text1 = Format(s1 + z1, 0.00) ‘用于显示每月还款额 Form2.T