按揭购房还款计划报告设计.docx
- 文档编号:8637179
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:17
- 大小:217.28KB
按揭购房还款计划报告设计.docx
《按揭购房还款计划报告设计.docx》由会员分享,可在线阅读,更多相关《按揭购房还款计划报告设计.docx(17页珍藏版)》请在冰豆网上搜索。
按揭购房还款计划报告设计
设计任务书
华东交通大学艺术学院音乐学1班
一、课程设计题目:
按揭购房还款计划
二、课程设计工作自2012年5月27日起至2011年6月6日止
三、课程设计地点:
计算机中心
四:
课程设计内容要求:
1.本课程设计的目的
⑴进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握,了解VB语言在项目开发中的应用。
⑵学习程序设计开发的一般方法,了解和掌握项目开发过程及方式,培养正确的设计思想和分析问题、解决问题的能力,特别是项目设计能力。
⑶通过对标准化、规范化文档的掌握并查阅有关技术资料等,培养项目设计开发能力。
⑷掌握自顶而下的设计方法,将大问题进行模块化分解,领会结构化程序设计的方法,同时深刻认识到面向对象程序设计与面向过程设计的根本区别。
⑸进一步掌握在集成环境下调试程序和修改程序的方法和技巧。
2.课程设计的任务及要求:
⑴基本要求:
⑴对系统功能进行需求分析;
⑵使用Visualbasic开发环境进行程序设计;
⑶提出系统的设计方案;
⑷编写源程序代码并进行调试。
⑵创新要求
在程序能正常运行之后,对于其中一些比较繁琐的程序代码尝试用循环来使其变得较为简单一些,也增强了代码的可读性。
⑶课程设计报告撰写及装订要求
课程设计报告的撰写要求简明,图表准确。
报告按如下内容和顺序用A4纸进行打印并装订成册。
⑴封面
采用统一的课程设计,并按要求填写好封面要求的个人信息和选题。
⑵设计任务书
⑶评阅书
⑷目录
⑸正文
⑹主要参考文献
⑷课程设计评分标准
⑴达到课程设计的目的与要求,程序可读性较好,并调试正确,60分;
⑵能正确回答设计中的老师所提的问题,可增加10分;
⑶课程设计报告书写规范整齐,可增加10分;
⑷心得体会认真总结,可增加10分;
⑸程序有创新性,可增加10分;
成绩评定实行优秀、良好、中等、及格和不及格五个等级,不及格者需重做。
⑸课程设计进度安排
⑴准备阶段(6学时):
选择设计题目、了解设计目的要求、查阅相关资料。
⑵程序设计模块设计分析阶段(8学时):
程序总体设计、详细设计。
⑶代码编写调试阶段(10学时):
程序模块代码编写、调试、测试。
⑷撰写论文阶段(6学时):
总结课程设计任务和设计内容,撰写课程设计论文。
⑹课程设计题目
设计要求:
设计一个实用程序,帮助准备以按揭贷款形式购买商品房的人士计算出以不同年限、不同数额、不同还款方式贷款时每月应还的款数、还款的总额以及还款额和贷款额的比例,帮助其进行决策。
在设计的过程中需要考虑的问题:
第一:
了解商业性贷款和政策性贷款的年利率以及相关算法,此外也要了解知道“等额本息还款法”和“等额本金还款法”的相关含义以及其计算方式。
第二:
对于贷款的数值其不能为零,而且在计算商业性贷款和政策性贷款的数值的过程中,需要利用“变量代换,数值交换”原则,从而简化计算。
第三:
在代码中编写还款额的计算公式时,要注意运算符“+”、“—”、“*”、“/”等的优先级,从而根据其是否要加括号。
第四:
在对主窗口的程序设计中,要学会多模块程序设计、文本文件的保存、列表框等的基本使用,运行程序,显示主窗口,其中“还款年数”组合框默认值为“15”,“享受政策性贷款的人数”默认为“二人”,“还款起始年月”默认为用户使用时的日期。
第五:
用户根据需要输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月,但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框,显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和、还款额与贷款额之比。
第六:
在主窗体中单击“等额本金还款法”按钮,弹出“等额本金还款法”对话框,列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。
单击“保存到文件”按钮,会出现窗口提示文件保存路径。
然后将列表框中的内容以文本文件的形式保存到指定文件中。
算法要求:
“+”:
运算后的到的商业性还款与政策性还款的全部本息总和(“-”和“+”的情况相类似)
“/”:
运算后所得到的是还款额与贷款额之比以及每月平均的还款数目等。
(“*”和“/”的情况大同小异)
学生签名:
2012年6月6日
课程设计(论文)评阅意见
序号
项目
等 级
优秀
良好
中等
及格
不及格
1
课程设计态度评价
2
出勤情况评价
3
任务难度评价
4
工作量饱满评价
5
设计中创新性评价
6
论文书写规范化评价
综合评定等级
评阅人职称
年月日
目 录
第1章系统概要6
1.1节题目要求6
1.2节功能概述6
第2章设计思路与算法7
第3章窗体的详细设计8
第4章源程序代码12
第5章运行结果及分析16
第6章心得体会19
参考文献20
第一章系统概要
1.1题目要求:
设置一个按揭购房还款计划的一个实用程序,帮助准备以按揭贷款形式购买商品房的人士计算出以不同年限、不同数额、不同还款方式贷款时每月应还的款数、还款的总额以及还款额和贷款额的比例,帮助其进行决策。
1.2功能概述:
按揭购房还款计划的应用程序是一个类似于计算器的问题,但它又不同于计算器,它能够根据用户的需要快地计算出其还款的总额以及还款额和贷款额的比例,当系统界面和代码设计完成运行后,能够实现以下操作:
⑴用户输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月,但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框(如图5-2),显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和(每月还款额×还款月数)、还款额与贷款额之比(全部本息总和除以贷款额)。
⑵)在主窗体中单击“等额本金还款法”按钮,弹出“等额本金还款法”对话框(如图5-3),列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。
单击“保存到文件”按钮,显示如图5-5所示输入窗口提示文件名即路径。
然后将列表框中的内容以文本文件的形式保存到指定文件中(文件内容如图5-5)
⑶“等额本金还款法”和“等额本息还款法”窗口都以模态窗口显示,即必须单击“关闭”按钮后才能继续使用之窗口。
“等额本金换狂发”窗口中“每月还款额”列表框中显示的内容要求上下对齐。
如果未输入贷款总额就单击“计算”按钮,则显示如图5-1的消息框给予提示。
第二章计思路设与算法
第三章窗体的详细设计
主窗口的界面为下图3-1,其中,贷款总额、还款年数以及还款起始年月均为系统默认值。
图3—1
属性设置
控件名
属性名
属性值
Lable1
Caption
货款总额
Lable2
Caption
还款年数
Lable3
Caption
年
Lable4
Caption
月
Text1
text
Combo1
Style
0
Combo2
Style
0
Combo3
Style
0
Option1(0)
Caption
无人
Option1
(1)
Caption
一人
Option1
(2)
Caption
二人
Option1(3)
Caption
三人
Frame1
Caption
享受政策性贷款的人数
Frame2
Caption
还款的起始年月
Command1
Caption
等额本息还款法
Command2
Caption
等额本金还款法
Command3
Caption
退出
Form2的窗体界面如下:
图3-2
属性设置
控件名
属性名
属性值
Lable1
Caption
每月还款额(元)
Lable2
Caption
全部本息总和
Lable3
Caption
还款与货款之比
Text1
Text
Text2
Text
Text3
Text
Command1
Caption
关闭
Form3窗体的界面如下:
图3-3
属性设置
控件名
属性名
属性值
Frame1
Caption
每月还款额(元)
List1
Columns
0
Lable1
Caption
全部本息总和(元)
Lable2
Caption
还货比
Text1
Text1
Text1
Text1
Command1
Caption
保存路径
Command1
Caption
关闭
第四章源程序代码
对于主窗体Form1的代码编写为
PrivateSubForm_Load()
DimiAsInteger
Fori=1To30
Combo1.AddItemi‘设置还款年数
Nexti
Combo1.Text=15‘系统默认还款年数为15年
Fori=2008To2020
Combo2.AddItemi‘还款起始的年份
Nexti
Combo2.Text=2008‘系统默认的还款起始年份
Fori=1To12
Combo3.AddItemI‘还款的月份
Nexti
Combo3.Text=1‘系统默认的还款起始月
Text1.Text=0
Option1
(2).Value=True
EndSub
对于Command1的程序代码为:
PrivateSubCommand1_Click()
DimsAsSingle,zAsSingle,RateAsSingle,s1AsSingle,z1AsSingle
DimYearAsInteger,iAsInteger
IfVal(Text1.Text)=0OrVal(Combo1.Text)=0ThenMsgBox"请输入合适的贷款额。
",48,"注意":
ExitSub
s=Text1.Text‘S为贷款的数额
Year=Combo1.Text‘Year为还款的年数
Fori=0To3‘i为享受政策性贷款的人数
IfOption1(i)ThenExitFor
Nexti
z=i*6
Ifs>zThen
s=s-z
Else
z=s
s=0‘计算出各种情况下的政策性贷款额和商业性贷款额
EndIf
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)
LoadForm2‘下载窗体form2
Form2.Text1=Format(s1+z1,"0.00")‘用于显示每月还款额
Form2.Text2=Format((s1+z1)*Year*12,"0.00")‘用于显示全部本息总和
Form2.Text3=(s1+z1)*Year*12/(s+z)‘用于显示还款与货款之比
Form2.Show1‘显示窗体form2
EndSub
对于加载的窗体form2的代码编写为:
PrivateSubCommand1_Click()
UnloadMe‘只是退出程序而不是停止运行程序
EndSub
对于的Command2代码编写为:
PrivateSubCommand2_Click()
DimsAsSingle,zAsSingle,RateAsSingle,s1AsSingle,z1AsSingle
DimYearAsInteger,iAsInteger,jAsInteger,start_yearAsInteger,start_monthAsInteger
IfVal(Text1.Text)=0OrVal(Combo1.Text)=0ThenMsgBox"请输入合适的贷款额。
",48,"注意":
ExitSub
s=Text1.Text
Year=Combo1.Text
start_year=Combo2.Text‘startyear为开始还款的年份
start_month=Combo3.Text‘startmonth为开始还款的月份
ReDimb1(Year*12)
ReDimb2(Year*12)
Fori=0To3‘得到享受政策性还款的人数
IfOption1(i)ThenExitFor
Nexti
z=i*6
Ifs>zThen
s=s-z
Else
z=s
s=0
EndIf
s=s*10000‘得到商业性贷款的数额
z=z*10000‘得到政策性贷款的数额
LoadForm3‘下载form3窗体
Fori=1ToYear*12
b1(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.AddItemstart_year&"年"&Format(start_month,"00")&"月:
"&Format(b1(i)+b2(i),"0.00")&"元"
start_month=start_month+1
Ifstart_month=13Thenstart_month=1:
start_year=start_year+1
Nexti
Form3.Text1=s1+z1‘计算等额本金还款的全部本息总和
Form3.Text2=(s1+z1)/(s+z)‘计算其还货比
Form3.Show1‘显示form3窗体
EndSub
对于加载的Form3窗体编写的程序代码为:
PrivateSubCommand1_Click()
DimsAsString
DimiAsInteger
s=InputBox("请输入文件名及路径。
","文件名")‘利用InputBox函数来引入输入对话框
Ifs=""ThenExitSub‘如果s为空则退出不保存
OpensForOutputAs#1‘打开文件供输出
Fori=0ToList1.ListCount-1
Print#1,List1.List(i)‘输出i行内容
Nexti
Close#1‘关闭文件#1
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
对于Command3命令按钮的代码编写为:
PrivateSubCommand3_Click()
End‘结束运行
EndSub
第五章运行结果及分析
如果没有输入贷款总额就单击“等额本息还款法”或者“等额本金还款法”命令按钮,则系统会给予下图5-1的提示,请用户输入合适的货款总额。
图5-1
如果用户根据需要输入正确的贷款总额、选择还款年数、政策性贷款人数以及还款起始年月后,然后单击“等额本息还款法”按钮则会弹出“等额本息还款法”对话框(如下图5-2所示),显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和以及还款额与贷款额之比。
图5-2
紧接着上面的运行程序,关闭“等额本金还款法”,在主窗体中单击“等额本金还款法”按钮,则会弹出“等额本金还款法”对话框(如如图5-3所示),在列表框中显示出从起始还款年月开始每月的还款额、全部本息总和以及还款比。
图5-3
在上面的操作中,继续单击“保存路径”按钮,则会显示下图5-4对话框,提醒用户早窗口中输入文件名及保存路径。
然后将列表框中的内容以文本文件的形式保存到指定文件中(文件内容下图5-5所示)。
图5-4
图5-5
第六章心得体会
毫不夸张的说,VB课程设计于我而言是一项比较大的“工程”,对于这次课程设计的题目——按揭购房还款计划,就这么一个题目,也就只是这个题目,除了准备阶段我整整用了一天半的时间才把它给做出来。
在这次的程序设计过程中,我遇到了很多问题。
就比如在创建单选框的时候,我理所当然的选择了Option1,Option2,Option3,Option4四个单选框,而在程序编写的过程中它总是出项“子程序或函数未定义”的提示,没办法,我也只能求助于课本,当我翻及“常用控件”那一章节细读之后,我才恍然大悟。
原来是我没有创建控件数组,纠正这一错误之后,问题又接踵而至,说什么定义不存在之类的,于是我选择了调试,可它指向的却是“IfOption1(i)ThenExitfor”这一行,我百思不得其解。
明明就没有错呀,翻书查看无效之后,我也只和他人商榷了,终于让我发现了这个“Option1”的“与众不同”,原来是我错把1(数字)写成l(英文字母)。
在VB设计的过程中类似于这样的问题层出不穷,也终于让我明白即使是一个小标点亦或是一个英文字母对程序的影响也很大。
在设计的过程中,我们需要足够的耐心与细心。
在这次的课程设计的过程中虽然碰到很多问题,也有些棘手,但我也是收获颇多。
的确,是它让我明白了万事开头总会有那么一些小困难,但刚刚开始遇到一些困难没关系,慢慢来。
编程序本来就是一个比较繁琐的过程,是一个需要不断学习、不断积累、不断商讨的过程,而编写程序的乐趣大概也正在于这样学习的过程中吧。
我们每知道一点知识,自己的水平就会相应提高一些。
同样,这次程序的编写也让我彻彻底底的明白编程不是一项轻松的活,尤其是对于一个VB课程设计,它并不像我们平常的上机作业那样,工作量不会太大。
依然记得在第一天的程序设计中,面对每次的运行结果是“类型不匹配”又或是“子程序或函数未定义”时,我整个人几乎面临崩溃,但我知道我不能,而且我也不被允许,毕竟时间有限。
这样的VB课程设计真的很能锻炼一个人的意志,没有一定的坐功、细心程度及耐心那是绝对不可能做到的。
依然记得以前每次上机做VB作业时,我总是怀着一份复杂的心情去对待。
因为,一旦我触碰着那看似不怎么起眼的键盘,我不知道接下来会发生的是什么。
也许是代码编写过程漏洞百出的烦躁或是程序运行不正常的心烦意乱,也许是在某一个瞬间程序正常运行之后的开怀大笑。
总之,是VB给予了“丰富多彩”的情感变化。
也就是VB在这样一个比较单调的大学生活中给予了我精神上的享受,通过这样一个学期VB的学习以及以这次课程设计作为VB学习的尾声,对VB这门高级的程序设计语言我有了初步的了解。
接下来,我一定要好好复习消化所学内容去迎接这次的VB期末考核,为VB的学习画上一个完美的句号。
参考文献
⑴《VisualBasic程序设计》作者:
熊李艳、周美玲主编,人民邮电出版社
⑵《VisualBasic程序设计实验教程》作者:
吴昊、杜玲玲主编人民邮电出版社
⑶《新编VisualBasic程序设计教程》作者:
梁普选主编,电子工业出版社
⑷按揭购房还款计划相关搜索
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 按揭 购房 还款 计划 报告 设计