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

华东交通大学VB课程设计报告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 代号即可。具体流程图如下：等额本息还款法用A函数等额本金还款法用B函数退出 A 、B函数实现等额本金还款法还款总额还贷之比货款额或还款年数为零时：警告消息对话框货款额或还款年数为零时：警告消息对话框还款总额还贷比每月还款额列表保存到文件流程图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所示输入窗口提示文件名即路径。然后将列表框中的内容以文本文件的形式保存到指定文件中。如果未输入贷款总额就单击“计算”按钮，则显示如图的消息框