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

《按揭购房还款计划报告设计》由会员分享，可在线阅读，更多相关《按揭购房还款计划报告设计（21页珍藏版）》请在装配图网上搜索。

1、 VB课程设计任务书 一、课程设计题目： 按揭购房还款计划二、课程设计工作自2011年6月19日起至2011年6月26日止三、课程设计地点： 计算机中心四：课程设计内容要求：1. 本课程设计的目的 进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。 学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。 通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。 掌握自顶而下的设计方法，将大问题进行模块化分解，领会结构化程序设计的方法，同时深刻认识到面向对象程序设计与

2、面向过程设计的根本区别。 进一步掌握在集成环境下调试程序和修改程序的方法和技巧。2. 课程设计的任务及要求： 基本要求： 对系统功能进行需求分析； 使用Visual basic开发环境进行程序设计； 提出系统的设计方案； 编写源程序代码并进行调试。 创新要求 在程序能正常运行之后，对于其中一些比较繁琐的程序代码尝试用循环来使其变得较为简单一些，也增强了代码的可读性。 课程设计报告撰写及装订要求 课程设计报告的撰写要求简明，图表准确。 报告按如下内容和顺序用A4纸进行打印并装订成册。 封面 采用统一的课程设计，并按要求填写好封面要求的个人信息和选题。 设计任务书 评阅书 目录 正文 主要参考文献

3、 课程设计评分标准 达到课程设计的目的与要求，程序可读性较好，并调试正确，60分； 能正确回答设计中的老师所提的问题，可增加10分； 课程设计报告书写规范整齐，可增加10分； 心得体会认真总结，可增加10分； 程序有创新性，可增加10分；成绩评定实行优秀、良好、中等、及格和不及格五个等级，不及格者需重做。 课程设计进度安排 准备阶段（6学时）：选择设计题目、了解设计目的要求、查阅相关资料。 程序设计模块设计分析阶段（8学时）：程序总体设计、详细设计。 代码编写调试阶段（10学时）：程序模块代码编写、调试、测试。 撰写论文阶段（6学时）：总结课程设计任务和设计内容，撰写课程设计论文。 课程设计题

4、目设计要求：设计一个实用程序，帮助准备以按揭贷款形式购买商品房的人士计算出以不同年限、不同数额、不同还款方式贷款时每月应还的款数、还款的总额以及还款额和贷款额的比例，帮助其进行决策。在设计的过程中需要考虑的问题： 第一：了解商业性贷款和政策性贷款的年利率以及相关算法，此外也要了解知道“等额本息还款法”和“等额本金还款法”的相关含义以及其计算方式。 第二：对于贷款的数值其不能为零，而且在计算商业性贷款和政策性贷款的数值的过程中，需要利用“变量代换，数值交换”原则，从而简化计算。 第三：在代码中编写还款额的计算公式时，要注意运算符 “+”、“”、“*”、“”等的优先级，从而根据其是否要加括号。 第

5、四：在对主窗口的程序设计中，要学会多模块程序设计、文本文件的保存、列表框等的基本使用，运行程序，显示主窗口，其中“还款年数”组合框默认值为“15”，“享受政策性贷款的人数”默认为“二人”，“还款起始年月”默认为用户使用时的日期。 第五： 用户根据需要输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月，但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框，显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和、还款额与贷款额之比。第六：在主窗体中单击“等额本金还款法”按钮，弹出“等额本金还款法”对话框，列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“

6、保存到文件”按钮，会出现窗口提示文件保存路径。然后将列表框中的内容以文本文件的形式保存到指定文件中。算法要求： “+”：运算后的到的商业性还款与政策性还款的全部本息总和（“-”和“+”的情况相类似） “/”：运算后所得到的是还款额与贷款额之比以及每月平均的还款数目等。(“*”和“/”的情况大同小异) 学生签名： 郑惠英 2011年 6月24日 课程设计（论文）评阅意见序号项 目等级优秀良好中等及格不及格1课程设计态度评价2出勤情况评价3任务难度评价4工作量饱满评价5设计中创新性评价6论文书写规范化评价综合评定等级 评阅人 熊李艳 职称 教授 2011年6月30日 目录第1章 系统概要6 1.1

7、节 题目要求61.2节 功能概述6第2章 设计思路与算法7第3章 窗体的详细设计8第4章源程序代码12第5章 运行结果及分析16第6章 心得体会19参考文献20第一章 系统概要1.1 题目要求： 设置一个按揭购房还款计划的一个实用程序，帮助准备以按揭贷款形式购买商品房的人士计算出以不同年限、不同数额、不同还款方式贷款时每月应还的款数、还款的总额以及还款额和贷款额的比例，帮助其进行决策。1.2 功能概述：按揭购房还款计划的应用程序是一个类似于计算器的问题，但它又不同于计算器，它能够根据用户的需要快地计算出其还款的总额以及还款额和贷款额的比例，当系统界面和代码设计完成运行后，能够实现以下操作：用户

8、输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月，但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框（如图5-2），显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和（每月还款额还款月数）、还款额与贷款额之比（全部本息总和除以贷款额）。）在主窗体中单击“等额本金还款法”按钮，弹出“等额本金还款法”对话框（如图5-3），列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“保存到文件”按钮，显示如图5-5所示输入窗口提示文件名即路径。然后将列表框中的内容以文本文件的形式保存到指定文件中（文件内容如图5-5）“等额本金还款法”和“等额本息还款法”窗口

9、都以模态窗口显示，即必须单击“关闭”按钮后才能继续使用之窗口。“等额本金换狂发”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击“计算”按钮，则显示如图5-1的消息框给予提示。第二章 计思路设与算法Command1Command2Command3 主程序实现等额本息还款法实现等额本金还款法退出应用程序每月还款额元全部本息总和元还款与货款之比全部本息总和元还款比保存路径 第三章 窗体的详细设计 主窗口的界面为下图3-1，其中，贷款总额、还款年数以及还款起始年月均为系统默认值。 图31 属性设置控件名属性名属性值Lable1Caption货款总额Lable2Captio

10、n还款年数Lable3Caption年Lable4Caption月Text1textCombo1Style0Combo2Style0Combo3Style0Option1（0）Caption无人Option1（1）Caption一人Option1（2）Caption二人Option1（3）Caption三人Frame1Caption享受政策性贷款的人数Frame2Caption还款的起始年月Command1Caption等额本息还款法Command2Caption等额本金还款法Command3Caption退出Form2的窗体界面如下： 图3-2 属性设置控件名属性名属性值Lable1Capt

11、ion每月还款额（元）Lable2Caption全部本息总和Lable3Caption还款与货款之比Text1TextText2TextText3TextCommand1Caption关闭Form3窗体的界面如下： 图3-3 属性设置 控件名属性名属性值Frame1Caption每月还款额（元）List1Columns0Lable1Caption全部本息总和（元）Lable2Caption还货比Text1Text1Text1Text1Command1Caption保存路径Command1Caption关闭第四章 源程序代码对于主窗体Form1的代码编写为Private Sub Form_Loa

12、d() Dim i As IntegerFor i = 1 To 30Combo1.AddItem i 设置还款年数Next iCombo1.Text = 15 系统默认还款年数为15年For i = 2008 To 2020Combo2.AddItem i 还款起始的年份Next iCombo2.Text = 2008 系统默认的还款起始年份For i = 1 To 12Combo3.AddItem I 还款的月份Next iCombo3.Text = 1 系统默认的还款起始月Text1.Text = 0Option1(2).Value = TrueEnd Sub对于Command1的程序代

13、码为：Private Sub Command1_Click()Dim s As Single, z As Single, Rate As Single, s1 As Single, z1 As SingleDim Year As Integer, i As IntegerIf Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox 请输入合适的贷款额。, 48, 注意: Exit Subs = Text1.Text S为贷款的数额Year = Combo1.Text Year为还款的年数For i = 0 To 3 i为享受政策性贷款的人

14、数If Option1(i) Then Exit ForNext iz = i * 6If s z Thens = s - zElsez = ss = 0 计算出各种情况下的政策性贷款额和商业性贷款额End Ifs = s * 10000z = z * 10000s1 = (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)

15、- 1)Load Form2 下载窗体 form2Form2.Text1 = Format(s1 + z1, 0.00) 用于显示每月还款额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 Command1_Click() Unload Me 只是退出程序而不是停止运行程序End Sub对于的C

16、ommand2代码编写为:Private Sub Command2_Click()Dim s As Single, z As Single, Rate As Single, s1 As Single, z1 As SingleDim Year As Integer, i As Integer, j As Integer, start_year As Integer, start_month As IntegerIf Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox 请输入合适的贷款额。, 48, 注意: Exit Subs = Te

17、xt1.TextYear = Combo1.Textstart_year = Combo2.Text start year为开始还款的年份start_month = Combo3.Text start month为开始还款的月份ReDim b1(Year * 12)ReDim b2(Year * 12)For i = 0 To 3 得到享受政策性还款的人数 If Option1(i) Then Exit ForNext iz = i * 6If s z Thens = s - zElsez = ss = 0End Ifs = s * 10000 得到商业性贷款的数额z = z * 10000

18、得到政策性贷款的数额Load 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) 用for循环求商业性还款额z1 = z1 + b2(i) 用for循环求政策性还款额Form3.List1.AddItem start_year & 年 & Format(start_

19、month, 00) & 月： & Format(b1(i) + b2(i), 0.00) & 元start_month = start_month + 1If start_month = 13 Then start_month = 1: start_year = start_year + 1Next iForm3.Text1 = s1 + z1 计算等额本金还款的全部本息总和Form3.Text2 = (s1 + z1) / (s + z) 计算其还货比Form3.Show 1 显示form3窗体End Sub对于加载的Form3窗体编写的程序代码为：Private Sub Command1

20、_Click()Dim s As StringDim i As Integers = InputBox(请输入文件名及路径。, 文件名) 利用InputBox函数来引入输入对话框If s = Then Exit Sub 如果s为空则退出不保存Open s For Output As #1 打开文件供输出For i = 0 To List1.ListCount - 1Print #1, List1.List(i) 输出i行内容Next iClose #1 关闭文件#1End SubPrivate Sub Command2_Click() Unload MeEnd Sub对于Command3命令按

21、钮的代码编写为：Private Sub Command3_Click()End 结束运行End Sub第五章 运行结果及分析如果没有输入贷款总额就单击“等额本息还款法”或者“等额本金还款法”命令按钮，则系统会给予下图5-1的提示，请用户输入合适的货款总额。 图5-1如果用户根据需要输入正确的贷款总额、选择还款年数、政策性贷款人数以及还款起始年月后，然后单击“等额本息还款法”按钮则会弹出“等额本息还款法”对话框（如下图5-2所示），显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和以及还款额与贷款额之比。 图5-2紧接着上面的运行程序，关闭“等额本金还款法”,在主窗体中单击“等额本金还

22、款法”按钮，则会弹出“等额本金还款法”对话框（如如图5-3所示），在列表框中显示出从起始还款年月开始每月的还款额、全部本息总和以及还款比。 图5-3 在上面的操作中，继续单击“保存路径”按钮，则会显示下图5-4对话框，提醒用户早窗口中输入文件名及保存路径。然后将列表框中的内容以文本文件的形式保存到指定文件中（文件内容下图5-5所示）。 图5-4 图5-5第六章 心得体会 毫不夸张的说，VB课程设计于我而言是一项比较大的“工程”，对于这次课程设计的题目按揭购房还款计划，就这么一个题目，也就只是这个题目，除了准备阶段我整整用了一天半的时间才把它给做出来。在这次的程序设计过程中，我遇到了很多问题。就

23、比如在创建单选框的时候，我理所当然的选择了Option1,Option2,Option3,Option4四个单选框，而在程序编写的过程中它总是出项“子程序或函数未定义”的提示，没办法，我也只能求助于课本，当我翻及“常用控件”那一章节细读之后，我才恍然大悟。原来是我没有创建控件数组，纠正这一错误之后，问题又接踵而至，说什么定义不存在之类的，于是我选择了调试，可它指向的却是“If Option1(i) Then Exit for”这一行，我百思不得其解。明明就没有错呀，翻书查看无效之后，我也只和他人商榷了，终于让我发现了这个“Option1”的“与众不同”，原来是我错把1(数字)写成l（英文字母）

24、。在VB设计的过程中类似于这样的问题层出不穷，也终于让我明白即使是一个小标点亦或是一个英文字母对程序的影响也很大。在设计的过程中，我们需要足够的耐心与细心。 在这次的课程设计的过程中虽然碰到很多问题，也有些棘手，但我也是收获颇多。的确，是它让我明白了万事开头总会有那么一些小困难，但刚刚开始遇到一些困难没关系，慢慢来。编程序本来就是一个比较繁琐的过程，是一个需要不断学习、不断积累、不断商讨的过程，而编写程序的乐趣大概也正在于这样学习的过程中吧。我们每知道一点知识，自己的水平就会相应提高一些。 同样，这次程序的编写也让我彻彻底底的明白编程不是一项轻松的活，尤其是对于一个VB课程设计，它并不像我们平

25、常的上机作业那样，工作量不会太大。依然记得在第一天的程序设计中，面对每次的运行结果是“类型不匹配”又或是“子程序或函数未定义”时，我整个人几乎面临崩溃，但我知道我不能，而且我也不被允许，毕竟时间有限。这样的VB课程设计真的很能锻炼一个人的意志，没有一定的坐功、细心程度及耐心那是绝对不可能做到的。 依然记得以前每次上机做VB作业时，我总是怀着一份复杂的心情去对待。因为，一旦我触碰着那看似不怎么起眼的键盘，我不知道接下来会发生的是什么。也许是代码编写过程漏洞百出的烦躁或是程序运行不正常的心烦意乱，也许是在某一个瞬间程序正常运行之后的开怀大笑。总之，是VB给予了“丰富多彩”的情感变化。也就是VB在这样一个比较单调的大学生活中给予了我精神上的享受，通过这样一个学期VB的学习以及以这次课程设计作为VB学习的尾声，对VB这门高级的程序设计语言我有了初步的了解。接下来，我一定要好好复习消化所学内容去迎接这次的VB期末考核，为VB的学习画上一个完美的句号。参考文献 Visual Basic程序设计作者：熊李艳、周美玲主编，人民邮电出版社 Visual Basic程序设计实验教程作者：吴昊、杜玲玲主编 人民邮电出版社 新编Visual Basic程序设计教程 作者：梁普选主编，电子工业出版社 按揭购房还款计划相关搜索