欢迎来到天天文库
浏览记录
ID:33759076
大小:58.50 KB
页数:7页
时间:2019-03-01
《vb课程设-按揭购房还款计划设计报告》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、按揭购房还款计划设计报告学院土木工程班级测绘C111学号117538姓名霍新成绩一、设计思路1.要达到的目的⑴培养学生综合利用VB语言进行程序设计的能力,主要是利用VB的图像控件进行界面设计,用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握,了解VB语言在项目开发中的应用。⑵学习程序设计开发的一般方法,了解和掌握项目开发过程及方式,培养正确的设计思想和分析问题、解决问题的能力,特别是项目设计能力。⑶通过对标准化、规范化文档的掌握并查阅
2、有关技术资料等,培养项目设计开发能力。⑷掌握自顶而下的设计方法,将大问题进行模块化分解,领会结构化程序设计的方法,同时深刻认识到面向对象程序设计与面向过程设计的根本区别。⑸进一步掌握在集成环境下调试程序和修改程序的方法和技巧。2.关键问题的解决⑴用户输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月,但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框,显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和、还款额与贷款额之比。⑵)在主窗体中单击“等额本金还款法”按钮,弹出“等额本金还款法”
3、对话框,列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“保存到文件”按钮,显示提示文件名即路径的窗口。然后将列表框中的内容以文本文件的形式保存到指定文件中。⑶“等额本金还款法”和“等额本息还款法”窗口都以模态窗口显示,即必须单击“关闭”按钮后才能继续使用之窗口。“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击“计算”按钮,则显示消息框给予提示。二、模块之间的调用关系,或程序流程图Command1Command2Command3主程序实现
4、等额本息还款法实现等额本金还款法退出应用程序每月还款额︵元︶全部本息总和︵元︶还款与货款之比全部本息总和︵元︶还款比保存路径三、部分程序关键源代码及注释对于主窗体Form1的代码编写为PrivateSubForm_Load()DimiAsIntegerFori=1To30Combo1.AddItemi‘设置还款年数NextiCombo1.Text=15‘系统默认还款年数为15年Fori=2008To2020Combo2.AddItemi‘还款起始的年份NextiCombo2.Text=2008‘系统默认的还款
5、起始年份Fori=1To12Combo3.AddItemI‘还款的月份NextiCombo3.Text=1‘系统默认的还款起始月Text1.Text=0Option1(2).Value=TrueEndSub针对实现等额本息还款法的程序代码:PrivateSubCommand1_Click()DimsAsSingle,zAsSingle,s1AsSingle,z1AsSingleDimYearAsInteger,iAsIntegerIfVal(Text1.Text)=0OrVal(Combo1.Text)=0T
6、henMsgBox"请输入合适的贷款额。",48,"注意":ExitSubs=Text1.Text‘S为贷款的数额Year=Combo1.Text‘Year为还款的年数Fori=0To3‘i为享受政策性贷款的人数IfOption1(i)ThenExitForNextiz=i*6Ifs>zthens=s-zElsez=ss=0‘计算出各种情况下的政策性贷款额和商业性贷款额EndIfs=s*10000z=z*10000s1=(s*(0.05/12)*(1+0.05/12)^(Year*12))/((1+0.05/
7、12)^(Year*12)-1)z1=(z*(0.04/12)*(1+0.04/12)^(Year*12))/((1+0.04/12)^(Year*12)-1)LoadForm2‘下载窗体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.Show1‘显示窗体fo
8、rm2EndSub=====================================================================对于加载的窗体form2的代码编写为:PrivateSubCommand1_Click()UnloadMe‘只是退出程序而不是停止运行程序EndSub================================================
此文档下载收益归作者所有