按揭购房还贷计划毕业课程设计报告.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章 我的系统概要 2
1.1功能介绍 2
第2章 内容总体设计 2
2.1设计思路 2
2.2 属性窗口 3
第3章 源程序代码 6
3.1 Form1窗口的代码 6
3.2 Form2窗口的代码 8
3.3 Form3窗口的代码 8
3.4 模块的代码 9
第4章 最后运行结果及分析 10
4.1 运行结果 10
4.2程序分析 11
4.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 属性窗口
用户界面：
对象属性：
控件名
属性名
属性值
Form1
Caption
1-Fixed Single
Form1
Caption
按揭还款计算软件
Form1
Caption
2-屏幕中心
Label1
caption
贷款总额
Label2
caption
(万元)
Label3
caption
还款年数
text1
text

Option1(0)
Caption
无人
Option1(1)
Caption
一人
Option1(2)
Caption
两人
Option1(2)
Value
True
Option1(3)
Caption
三人
Frame1
Caption
享受政策性贷款的人数
Frame2
Caption
还款起始年月
Combo1
名称
cboYear1
Combo1
Style
2-Dropdown List
Combo1
Txet
cboYear1
Combo2
名称
cboYear
Combo2
Style
2-Dropdown List
Combo2
Txet
cboYear
Combo3
名称
cboMonth
Combo3
Style
2-Dropdown List
Combo3
Txet
cboMonth
Command1
Caption
等额本息还款法
Command2
Caption
等额本金还款法
Command3
Caption
退出

控件名
属性名
属性值
Form2
Caption
1-Fixed Single
Form2
Caption
等额本息还款法
Form2
Caption
屏幕中心
Label1
caption
每月还款额(元)
Label2
caption
全部本息总和(元)
Label3
caption
还款与贷款之比
Text1
text

Text2
text

Text3
text

Command1
Caption
关闭

控件名
属性名
属性值
Form3
Caption
1-Fixed Single
Form3
Caption
等额本金还款法
Form3
Caption
2-屏幕中心
Frame1
Caption
每月本金还款额
Command1
Caption
关闭
Command2
Caption
保存到文件…
Text1
text

Text2
text

Label1
caption
全部本息总和（元）
Label2
caption
还款与贷款之比
第3章 源程序代码
3.1 Form1窗口的代码

Option Explicit
Private 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 Sub
Private 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 Sub
Private 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 1
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
3.2 Form2窗口的代码
Private Sub Command1_Click()
Unload Me
End Sub
3.3 Form3窗口的代码
Option Explicit
Private Sub Command1_Click()
Unload Me
End Sub
Private 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 1
End Sub
3.4 模块的代码
Option Explicit
Function 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 Function
Function 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
Next
B = total
End 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. 基于单片机的全位置自动焊接控制系统的研究
项目论证，项目可行性研究报告，可行性研究报告，项目推广，项目研究报告，项目设计，项目建议书，项目可研报告，本文档支持完整下载，支持任意编辑！选择我们，选择成功！
项目论证，项目可行性研究报告，可行性研究报告，项目推广，项目研究报告，项目设计，项目建议书，项目可研报告，本文档支持完整下载，支持任意编辑！选择我们，选择成功！
毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书，毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书
毕业论文，毕业设计，毕业论文设计，商业计划、商业策划、大学生商业计划书、大学生商业策划书、大学生创业计划书