按揭购房还贷计划毕业课程设计报告.doc

VB课程设计(论文)任务书土木建筑 学院环境工程 专业 2 班一、课程设计(论文)题目 ： 按揭购房还款计划 二、课程设计(论文)工作自 2013 年 6 月17日起至 2013 年 6 月 23 日止 三、课程设计(论文) 地点: 计算中心8#706 四、课程设计(论文)内容要求：1. 本课程设计的目的（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。 2. 课程设计的任务及要求(1) 基本要求：（1） 对系统功能进行需求分析；（2） 使用Visual basic开发环境进行程序开发；（3） 提出系统的设计方案；（4） 编写源程序代码并进行调试。(2) 创新要求在基本要求达到后，可进行创新设计。(3) 课程设计报告撰写及装订要求课程设计报告的撰写要求表述简明，图表准确。报告按如下内容和顺序用A4纸进行打印并装订成册。（1）封面采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。（2）设计任务书（3）评阅书（4）目录 （5）正文 （6）主要参考文献(4) 课程设计评分标准： （1）达到课程设计的目的与要求，程序的可读性较好，并调试正确，60分；（2）能正确回答设计的中老师所提问题，可增加10分；（3）课程设计报告书写规范整齐，可增加10分；（4）心得体会认真总结，可增加10分；（5）程序有创新性，可增加10分；成绩评定实行优秀、良好、中等、及格和不及格五个等级。不及格者需重做。(5) 课程设计进度安排（1）准备阶段（6学时）：选择设计题目、了解设计目的要求、查阅相关资料。（2）程序模块设计分析阶段（8学时）：程序总体设计、详细设计。(3) 代码编写调试阶段（10学时）：程序模块代码编写、调试、测试。(4) 撰写论文阶段（6学时）：总结课程设计任务和设计内容，撰写课程设计论文。(6）课程设计题目具体要求：设计要求：设计一个“按揭购房还款计划”使用银行按揭贷款是目前购买商品房常用的方式，即一次性贷款然后每月偿还，在预定年限（还款年数）内连本带息还清为止。本题目要求编制一个实用程序，帮助准备以按揭贷款形式购买商品房的人士计算出以不同年限、不同数额、不同还款方式贷款时每月应偿还的款数、还款的总额以及还款额和贷款额的比值。说明：贷款方式分为两类：商业性贷款，年利率为5%；政策性贷款，年利率为4%（政策性贷款需要贷款人具有有效的公积金账户，且每人最多螚贷6万元）。等额本息还款法，每月还款额相同，为：等额本金还款法，每月还款额不相同，逐月递减，第i月的还款额为，其中： ，月利率=年利率/12 运行程序，显示主窗口（如图1），其中“还款年数”组合框默认值为“16”，“享受政策性贷款的人数”默认为“二人”，“还款起始年月”默认值为用户使用时的日期。 图1 用户根据需要输入总额、选择还款年数、政策性贷款人数和还款起始年月，然后单击“等额本息还款法”按钮弹出“等额本息还款法”窗口（图2），显示以“等额本息还款法”还款时“每月的还款额”、“全部本息总和”（每月还款额还款月数）、“还款与贷款之比”（全部本息总和贷款额）。 图2 图3 在主窗口中单击“等额本金还款法”按钮，弹出“等额本金还款法”窗口（如图3），列表框中显示出从起始还款年月开始“每月还款额”以及“全部本金总和”及“还贷比”；单击“保存到文件”按钮，显示如图4所示的输入对话框提示输入文件名及路径，然后将列表框中的内容以文本文件的形式保存到指定文件中。 图4 图5 “等额本金还款法”和“等额本息还款法”窗口都必须单击“关闭”按钮后返回到主窗口。“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击计算按钮，则显示消息对话框予以提示。学生签名： 2013年 6月 17 日课程设计（论文）评阅意见序号项 目等级优秀良好中等及格不及格1课程设计态度评价2出勤情况评价3任务难度评价4工作量饱满评价5设计中创新性评价6论文书写规范化评价综合评定等级评阅人 周美玲 职称 讲师 2013年 6 月 23 日 目录第1章 我的系统概要21.1功能介绍2第2章内容总体设计22.1设计思路22.2 属性窗口3第3章源程序代码63.1 Form1窗口的代码63.2 Form2窗口的代码83.3 Form3窗口的代码83.4 模块的代码9第4章 最后运行结果及分析104.1 运行结果104.2程序分析114.3运行程序的相关说明13第5章 心得体会15参考文献16第1章 我的系统概要 “使用银行按揭贷款是目前购买商品房常用的方式，即一次性贷款后每月偿还，在预定年限（还款年数）内连本带息还清为止。本题目要求 一个实用程序，帮助准备以按揭贷款形式购买商品房的人士计算出以不同年限、不同数额、不同还款方式贷款时每月应还的款数、还款的总额以及还款额和贷款额的比例，帮助其进行决策。1.1功能介绍按揭购房还款计划的应用程序是一个类似于计算器的问题，但它又不同于计算器，它能够根据用户的需要快地计算出其还款的总额以及还款额和贷款额的比例，当系统界面和代码设计完成运行后，能够实现以下操作： （1） 运行程序，显示主窗口，其中“还款年数”组合框默认值为“15”，“享受政策性贷款的人数”默认为“二人”，“还款起始年月”默认为用户使用时的日期。（2） 用户根据需要输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月，但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框，显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和（每月还款额还款月数）、还款额与贷款额之比（全部本息总和除以贷款额）。（3）在主窗体中单击“等额本金还款法”按钮，弹出“等额本金还款法”对话框，列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“保存到文件”按钮，显示如图1.4所示输入窗口提示文件名即路径。然后将列表框中的内容以文本文件的形式保存到指定文件中。（4）“等额本金还款法”和“等额本息还款法”窗口都以模态窗口显示，即必须单击“关闭”按钮后才能继续使用之窗口。“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击“计算”按钮，则显示消息框给予提示。第2章内容总体设计2.1设计思路分析:因为商业性贷款和政策性贷款的年利率分别为5%和4%，所以用If Corpus1 Corpus2 Then Corpus1 = Corpus1 - Corpus2 Else Corpus2 = Corpus1 Corpus1 = 0 End If 来对贷款总额分类。又因为还款方式分等额本息还款发和等额本金还款法两种，其中等额本息还款法：由公式，每月还款额 等额本金还款法：有公式，第i个月还款额所以建立一个全局通用的模块，在模块中定义A函数 Function A(Corpus As Single, Rate As Single, Year As Integer) As Single 和 B函数 Function B(Corpus As Single, Rate As Single, Year As Integer, Arr() As Single) As Single 然后再在每个Click事件中调用这两个即可。要将得到的每个月还款额的列表框输出到指定文件中，用Open 文件名 For 模式as 代号即可。具体流程图如下：流程图2.2 属性窗口用户界面：对象属性：控件名属性名属性值Form1Caption 1-Fixed SingleForm1Caption按揭还款计算软件Form1Caption2-屏幕中心Label1caption贷款总额 Label2caption(万元)Label3 caption还款年数text1text Option1(0)Caption无人Option1(1)Caption一人Option1(2)Caption两人Option1(2)ValueTrueOption1(3)Caption三人Frame1Caption享受政策性贷款的人数Frame2Caption还款起始年月Combo1名称cboYear1Combo1Style2-Dropdown ListCombo1TxetcboYear1Combo2名称cboYearCombo2Style2-Dropdown ListCombo2TxetcboYearCombo3名称cboMonthCombo3Style2-Dropdown ListCombo3TxetcboMonthCommand1Caption等额本息还款法Command2Caption等额本金还款法Command3Caption退出控件名属性名属性值Form2Caption 1-Fixed SingleForm2Caption等额本息还款法Form2Caption屏幕中心Label1caption每月还款额(元)Label2caption全部本息总和(元)Label3 caption还款与贷款之比Text1textText2textText3textCommand1Caption关闭控件名属性名属性值Form3Caption 1-Fixed SingleForm3Caption等额本金还款法 Form3Caption2-屏幕中心Frame1Caption每月本金还款额Command1Caption 关闭Command2Caption 保存到文件Text1text Text2text Label1caption全部本息总和（元）Label2caption还款与贷款之比第3章源程序代码3.1 Form1窗口的代码 Option ExplicitPrivate Sub Form_Load() Dim i As Integer For i = 1 To 30 cboYear1.AddItem i Next cboYear1.Text = 15 For i = 0 To 9 cboYear.AddItem Year(Date) + i Next cboYear.Text = Year(Date) For i = 1 To 12 cboMonth.AddItem i Next cboMonth.Text = month(Date)End SubPrivate Sub Command1_Click() Dim Corpus1 As Single Dim Corpus2 As Single Dim Rate As Single Dim Year As Integer Dim i As Integer Dim A1 As Single Dim A2 As Single If Val(txtCorpus.Text) = 0 Or Val(cboYear1.Text) = 0 Then MsgBox 请输入合适的贷款额。, 48, 注意: Exit Sub Corpus1 = txtCorpus.Text Year = cboYear1.Text For i = 0 To 3 If Option1(i) Then Exit For Next Corpus2 = i * 6 If Corpus1 Corpus2 Then Corpus1 = Corpus1 - Corpus2 Else Corpus2 = Corpus1 Corpus1 = 0 End If Corpus1 = Corpus1 * 10000 Corpus2 = Corpus2 * 10000 A1 = A(Corpus1, 0.05, Year) A2 = A(Corpus2, 0.04, Year) Load Form2 Form2.Text1 = Format(A1 + A2, 0.00) Form2.Text2 = Format(A1 + A2) * Year * 12, 0.00) Form2.Text3 = (A1 + A2) * Year * 12 / (Corpus1 + Corpus2) Form2.Show 1 End SubPrivate Sub Command2_Click() Dim Corpus1 As Single Dim Corpus2 As Single Dim Rate As Single Dim Year As Integer Dim i As Integer, j As Integer Dim A1 As Single Dim A2 As Single Dim start_year As Integer, start_month As Integer Dim b1() As Single Dim b2() As Single If Val(txtCorpus.Text) = 0 Or Val(cboYear1.Text) = 0 Then MsgBox 请输入合适的贷款额。, 48, 注意: Exit Sub Corpus1 = txtCorpus.Text Year = cboYear1.Text start_year = cboYear.Text start_month = cboMonth.Text ReDim b1(Year * 12) ReDim b2(Year * 12) For i = 0 To 3 If Option1(i) Then Exit For Next Corpus2 = i * 6 If Corpus1 Corpus2 Then Corpus1 = Corpus1 - Corpus2 Else Corpus2 = Corpus1 Corpus1 = 0 End If Corpus1 = Corpus1 * 10000 Corpus2 = Corpus2 * 10000 A1 = B(Corpus1, 0.0504, Year, b1) A2 = B(Corpus2, 0.0405, Year, b2) Load Form3 For i = 1 To Year * 12 Form3.List1.AddItem start_year & 年 & Format(start_month, 00) & 月： & Format(b1(i) + b2(i), 0.00) & 元 start_month = start_month + 1 If start_month = 13 Then start_month = 1: start_year = start_year + 1 Next Form3.Text2 = A1 + A2 Form3.Text3 = (A1 + A2) / (Corpus1 + Corpus2) Form3.Show 1End SubPrivate Sub Command3_Click() Unload MeEnd Sub3.2 Form2窗口的代码Private Sub Command1_Click()Unload MeEnd Sub3.3 Form3窗口的代码Option ExplicitPrivate Sub Command1_Click() Unload MeEnd SubPrivate Sub Command2_Click() Dim s As String Dim i As Integer s = InputBox(请输入文件名及路径。, 文件名) If s = Then Exit Sub Open s For Output As 1 For i = 0 To List1.ListCount - 1 Print #1, List1.List(i) Next Close 1End Sub3.4 模块的代码Option ExplicitFunction A(Corpus As Single, Rate As Single, Year As Integer) As Single Dim Temp As Single Rate = Rate / 12# Temp = (1 + Rate) (Year * 12) A = (Corpus * Rate * Temp) / (Temp - 1)End FunctionFunction B(Corpus As Single, Rate As Single, Year As Integer, Arr() As Single) As Single Dim total As Single Dim m_total As Single Dim month As Integer Dim i As Integer Rate = Rate / 12 month = Year * 12 total = 0# m_total = 0# For i = 1 To month m_total = Corpus / month + (Corpus - Corpus / month * (i - 1) * Rate Arr(i) = m_total total = total + m_total NextB = totalEnd function第4章 最后运行结果及分析4.1 运行结果当贷款总额为10时，运行结果如图：单击等额本息还款法等额本金还款法当输入贷款总额为0时：4.2程序分析运行错误在设计代码的时候，确实遇到了不少问题，首先，在设置控件的属性只能的时候，不知道哪些该改，哪些不该改。然后，编写代码时出现了很多错误。1 模块中的通用函数A、B，一是由公式代换时出现错误，二是定义变量时漏掉许多东西，于是就调试，重新定义变量。2在应用For循环语句和If条件语句嵌套时，漏写Next或者Then或者End If。措施：加上缺少的语句即可。3不知道怎么计算政策性和商业性贷款的总额，上网查询。4在调用通用过程时定义的变量有误，重新定义变量。5使消息对话框出现警告，不知道用48代号，查阅书本。6文件输出时出现路径错误，调试后才发现是文件名错误。4.3运行程序的相关说明用户根据需要输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月，然后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框，显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和（每月还款额还款月数）、还款额与贷款额之比（全部本息总和除以贷款额）。在主窗体中单击“等额本金还款法”按钮，弹出“等额本金还款法”对话框，列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“保存到文件”按钮，显示如图1.4所示输入窗口提示文件名即路径。然后将列表框中的内容以文本文件的形式保存到指定文件中。如果未输入贷款总额就单击“计算”按钮，则显示如图的消息框给予提示。第5章 心得体会说实话，vb课程设计对我来说确实有很大的挑战性，有很多东西都要自学，还要咨询有经验的学长，但通过这个课程设计让我对vb有了进一步的了解。在这次的程序设计过程中，我遇到了很多问题。什么定义不存在之类的问题，于是我选择了调试，可它指向的却是“If Option1(i) Then Exit for”这一行，我百思不得其解。翻书查看无效之后，我便开始问学长究竟什么原因，终于让我发现了这个“Option1”，原来是我错把1(数字)写成l（英文字母）。在VB设计的过程中类似于这样的问题有很多，看似很小的问题，即使是一个小标点或是一个英文字母对程序的影响也很大。因此，在设计的过程中，我们需要足够的耐心。 在这次的课程设计的过程中虽然碰到很多问题，但我收获颇多。的确，是它让我明白了万事开头难，但刚刚开始遇到一些困难没关系，慢慢来。编程序本来就是一个比较繁琐的过程，是一个需要不断学习、不断积累的过程，而编写程序的乐趣大概也正在于这样学习的过程中吧。 这次程序的编写也让我明白编程不是一项轻松的活，尤其是对于一个VB课程设计，它并不像我们平常的上机作业那样。面对每次的运行结果是“类型不匹配”或是“函数未定义”时，我整个人几乎面临崩溃，毕竟时间有限。这样的VB课程设计真的很能锻炼一个人的自学水平，没有一定的基本功、细心及耐心是绝对不可能做到的。现在回想起整个课程设计的过程，有时候真的不想做了，讨厌代码编写过程经常漏洞百出和有些程序不能正常运行，在某一个瞬间程序正常运行之后我会不自觉的开怀大笑。总之，VB给予了我欢乐与痛苦。通过这样一个学期VB的学习以及以这次课程设计，我对VB这门高级的程序设计语言有了许多了解。逐渐喜欢上了编程的过程。接下来，我一定要好好复习所学内容去迎接最后的VB期末考核。相信我一定行。参考文献 Visual Basic程序设计作者：熊李艳、周美玲主编，人民邮电出版社 Visual Basic程序设计实验教程作者：吴昊、杜玲玲主编 人民邮电出版社（3） 按揭购房还款计划相关搜索1. 基于单片机和DSP的卷绕控制器数据采集和通讯设计 2. 基于MSP430单片机的柴油发电机监控器的设计 3. 基于CPLD/FPGA和单片机的爆速仪设计 4. 基于单片机控制的晶闸管中频感应电源的研制 5. 基于十六位单片机的电力设备故障在线监测装置的设计与算法研究 6. 基于SPCE061A单片机的语音识别系统的研究 7. 基于PIC单片机的生物机能实验装置的研究 8. 基于Motorola MC68HC08系列单片机演示系统的设计与实现 9. 基于TCP/IP协议的单片机与INTERNET互连的设计与实现 10. 基于嵌入式实时操作系统和TCP/IP协议的单片机测控系统 11. AVR 8位嵌入式单片机在车载全球定位系统显示终端中的应用 12. 基于AVR单片机的250W HID灯电子镇流器的研究 13. 基于单片机的TCP/IP技术研究及应用14. 基于P87C591单片机的CAN总线应用层协议的研究 15. 基于单片机实现对二级倒立摆的控制 16. C8051FXXX系列单片机仿真器的研制 17. 基于80C196MC单片机控制的变频调速及配料控制系统的应用研究 18. 基于单片机的胶印机控制系统开发研究 19. 基于凌阳单片机的二次压降全自动测量仪的研制 20. 基于单片机的超声测距系统 21. 基于MOTOROLA单片机的专用电池组智能充电仪 22. 全站仪动态测量的研究以及其与单片机在轨道式龙门吊实时检测中的应用 23. 一种基于80C196KC单片机的新型电子负载的设计24. 基于单片机的对讲系统的研究开发 25. 基于单片机的微波加热沥青路面再生修复机温度控制器的开发与研究 26. 基于单片机ATmega128的嵌入式工业控制器设计 27. 基于单片机的压电闭环微位移控制系统的研究 28. 基于单片机的高压静电除尘整流设备的自动监控系统设计 29. 采用W78E58单片机的酸碱浓度检测技术30. 基于单片机的粮库温度监控系统设计 31. 基于单片机控制的微型轴流式血泵外磁驱动系统研究 32. 基于AVR单片机的电动自行车控制系统研究 33. 基于PIC单片机的配电网综合参数测控仪研究 34. 全自动包装机的单片机控制研究 35. 基于单片机系统的Java虚拟机研究与设计 36. 基于智能传感器和单片机的温度监测系统 37. 基于DSP和单片机的数据采集与处理系统的设计 38. 基于单片机的在线测试技术的研究 39. 分散式智能测控终端的研制基于单片机的大容量固态存储技术的设计实现 40. 基于单片机的定尺飞锯切割机控制系统设计 41. 基于196单片机的开关磁阻电机调速系统设计 42. 基于EDA技术的兼容MCS-51单片机IP核设计 43. 基于单片机的嵌入式USB主机研究与实现 44. 单片机控制连续固体激光器高频开关电源的研制45. 基于MSP430单片机的微机自动准同期装置 46. 基于MSP430单片机中小型水轮机微机调速器的设计与研制47. 基于单片机的便携式心电监测系统的研究 48. 基于单片机和CAN总线的混凝土搅拌站控制系统设计 49. 基于单片机的全位置自动焊接控制系统的研究 项目论证，项目可行性研究报告，可行性研究报告，项目推广，项目研究报告，项目设计，项目建议书，项目可研报告，本文档支持完整下载，支持任意编辑！选择我们，选择成功！项目论证，项目可行性研究报告，可行性研究报告，项目推广，项目研究报告，项目设计，项目建议书，项目可研报告，本文档支持完整下载，支持任意编辑！选择我们，选择成功！毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书，毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书