【vb精品源码栏目提醒】:以下是网学会员为您推荐的vb精品源码-VB按揭贷款还款程序 - 其它资料,希望本篇文章对您学习有所帮助。
《可视化程序设计》课程设计论文 课程设计题目:按揭还款计划 专 业: 计算机应用 班 级: 计完成日期 2011 年 12 月 20 日 摘 要 在这个按揭还款的程序中,我们使用 Microsoft Visual Basic 6.0 编程软件,MicrosoftVisual Basic 6.0 中包括了许多设计技术,我们这次看似一个简单的小程序,但是在设 ,计的过程中应用了“循环”“判断语句”等,才使这个小程序趋于完善。
开始时,我们打算在窗体的 ComboBox 控件的 List 属性中一条一条地添加项,后来发现工作量太大,并且项是固定的,无法灵活显示为当前时间。
经过思考,我们应用 Now 函数加“循环语句”,发现不但代码长度有了很大的缩减,而且整个编写过程趋于简单。
方便了使用者,也为编写者提高了编写效率。
面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序,他简单易学、效率高,且功能强大可以与 Windows 专业开发工具 SDK 相媲美。
在 Visual Basic 环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用 Windows 内部的广泛的应用程序接口(API)函数,动态链接库(DLL) 对接与嵌入 、 、 (OLE) 开放式数据连接(ODBC)等技术,可以高效、快速地开发 Windows 环境下功能强大、图形界面丰富的应用软件系统。
关键词:
VB,按揭还款程序,循环,判断 I 目 录引 言 11.软件介绍 21.1 功能需求分析 21.2 运行环境要求 21.3 软件特点 22.总体设计 32.1 界面总体设计 32.2 窗体中使用的控件 32.3 代码编写思路 33.详细设计 43.1 界面的设计 43.2 菜单设计 54.程序测试 10总 结 12参考文献 13 II按揭还款计划 1 引 言 根据我国当今社会的实际情况,购房成了民生的首要问题。
由于房价的日益高涨,购房者手里没有足够钱一次性付足房款,所以按揭就成了解决钱不足的最好办法。
但新的问题又出现了,选择适合自己的按揭方式,成为购房者考虑的问题。
为了解决这一问题,我们小组上网了解了多种按揭贷款的方法,选择了其中常用的两种计算方法。
考虑到现在电脑普及使用,由于 Visual Basic 在实际当中的广泛应用,引起了广大学生,计算机应用开发者的学习兴趣,兴起了学习,掌握和使用的热潮。
因此近年来不少学校已把 Visual Basic 程序设计语言作为大学生的入门语言,有些省市也把 Visual Basic程序设计语言纳入计算机等级考试的科目。
我们想利用
VB 程序,设计了一个小软件,在选择按揭方式时可以发挥大作用。
本着为购房者办实事的态度,为了让这个软件更人性化,我们小组精心为用户设计了两种结算模式,最大程度上缩短用户计算的时间。
1按揭还款计划 1 一.需求介绍1.1 功能需求分析 对于“贷款还款程序”,要实现以下基本功能: 能自动显示当前年月,并且显示出未来 10 年的年数; 按照等额本息还款法和等额本金还款法计算; 能选择政策性贷款的人数; 能保存在等额本金还款法显示出从起始还款年月开始每月的还款额以及全部本息总和及还贷比,并且保存。
1.2 运行环境要求1.2.1 硬件环境 CPU:奔腾 586 处理器以上 内存:15MB 以上 剩余硬盘:100MB 以上1.2.2 程序环境 操作系统:windows98 以上
VB 程序介绍:
VB 是 Visual Basic 的简称,是由美国微软公司于 1991 年开发的一种可视化的,面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发Windows 环境下的各类应用程序,他简单易学、效率高,且功能强大可以与 Windows专业开发工具 SDK 相媲美。
在 Visual Basic 环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用 Windows 内部的广泛的应用程序接口(API)函数,动态链接库(DLL)、对接与嵌入(OLE)、开放式数据连接(ODBC)等技术,可以高效、快速地开发 Windows 环境下功能强大、图形界面丰富的应用软件系统。
Windows 介绍:Windows 中文是窗户的意思。
另外还有微软公司推出的视窗电脑操作系统名为 Windows。
随着电脑硬件和软件系统的不断升级,微软的 Windows 操作系统也在不断升级,从 16 位、32 位到 64 位操作系统。
从最初的 Windows1.0 到大家熟知的 Windows95、NT、97、98、2000、Me、XP、Server、Vista,Windows 7 各种版本的持续更新,微软一直在尽力于 Windows 操作的开发和完善。
1.3 软件特点 人性化设计:多模式计算,方便用户根据个人习惯,选择适合的模式。
自动显示出用户电脑当前的系统时间,方便用户使用。
2按揭还款计划 1 二.总体设计2.1 界面总体设计在主界面下有三个单击按钮,分别对应两种计算模式的窗体。
2.2 窗体中使用的控件多出使用 ComboBoxOption,Labe 控件,主要原因是:ComboBoxOption 控件能清楚的显示出用户能够选择的的选项。
Combobox是一种兼有文本框和列表框两者功能特性儿形成的控件。
它允许用户在文本框中输入内容,但必须通过Additem方法将内容添加到列表框,也允许用户在列表框选择项目,选中的项目同时在文本框显示。
Optionbutton控件:单选按钮通常是以组的形式出现,只允许用户在其中选择一项。
Labe 主要用来显示文本信息,而不能输入信息。
为了表示结果,我们建立了 Labe 的控件数组,并通过代码使其在显示文本信息的同时,又能够作为按钮使用,方便快捷。
2.3代码编写思路本程序主要代码思路是根据Combobox及Option组合,显示选择的计算模式,再根据选择的模式在模态窗口中显示计算后的结果。
此外,也可以根据实际需求打开相应的窗体。
2.4 模块的使用在这个软件中,我们使用了“Labelbox” ,“Textbox” , “Combobox”, “Commandbutton”等模块。
3按揭还款计划 1 三.详细设计3.1 界面的设计3.1.1 设计流程图在主界面下建立“按店名查找”,“单店套餐”,“查看所有食品”三个按钮后分别建立三个像个相对应的窗体,如图3.1 所示: 图 3.1 设计流程图 4按揭还款计划 13.2 菜单设计3.2.1 主菜单设计在主界面下有 3 个按钮,4 个单选按钮,3 个下拉式列表框。
如图 3.2 所示: 图 3.2 主界面主界面主要程序代码:Private Sub Command1_Click If Text1.Text Or Text1.Text 0 Then 判断是否输入了数字 MsgBox 请输入合适的贷款额 Exit Sub End If Form2.Show 显示 Form2End Sub代码作用:调出“等额本息还款法”窗口Private Sub Command2_ClickIf Text1.Text Or Text1.Text 0 Then 判断是否输入了数字 MsgBox 请输入合适的贷款额 Exit Sub End If Form3.Show 显示 Form3End Sub代码作用:调出“等额本息还款法”窗口 5按揭还款计划 1Private Sub Command3_ClickEndEnd SubPrivate Sub Form_Load Form1.Text1 0 窗体加载资料 Dim i j s k i0 j0 s FormatNow mm k FormatNow yyyy For i 1 To 30 Comb_NS.AddItem i Comb_NS.Text Comb_NS.ListIndex 0 Next For j 1 To 12 Comb_mon.AddItem j If j s Then End If Comb_mon.ListIndex j - 1 Next For k k To k 10 Comb_year.AddItem k Comb_year.ListIndex 0 Next End Sub代码作用:程序运行时,窗体加载数据在 3 个下拉式列表框中添加数据Private Sub Text1_Change If Not IsNumericText1.Text Then 判断是否合法 MsgBox 请输入合法的数字 End IfEnd Sub代码作用:判断输入的数据是否合法 6按揭还款计划 13.2.2 等额本息还款法设计通过按照等额本息还款法计算,分别在 Text1Text2Text3 中显示结果,如图 3.3 所示: 图 3.3 等额本息还款法窗口等额本息还款法窗口主要程序代码:Private Sub Command1_Click Unload Form2 释放系统内存End Sub代码作用:释放出空闲的系统内存Private Sub Form_Load Dim dkSum dktotal As Double 贷款总额 Dim years As Integer 还款年数 dkSum Form1.Text1 years Form1.Comb_NS dktotal dkSum 10000 dkSum 10000 0.05每月还款 Text1.Text dktotal / years 12 全部总息 Text2.Text dktotal还款与贷款之比 Text3.Text dktotal / dkSum 10000 End Sub代码作用:等额本息还款法的计算 7按揭还款计划 13.2.3 等额本金还款法设计 在通过按照等额本金还款法计算, List1 中显示从起始还款年月开始每月的还款额以及在 Text1 和 Text2 中分别全部本息总和及还贷比,点击“保存文件”按钮,能保存文本,利用 InStr 函数简单判断保存路劲格式是否正确,如图 3.4 所示: 图 3.4 等额本金还款法窗口等额本金还款法窗口:Private Sub Command1_ClickDim strpath As Stringstrpath InputBox请输入文件名及路径. If StrPtrstrpath 0 Then 保证正常取消 Exit SubEnd If代码作用:保证取消功能正常,避免提示错误后点击取消,取消功能失效If InStr路径 : 0 Then 判断路径是否合法 MsgBox 请正确输入路径 Exit Sub End If代码作用:判断输入的路径中是否有“:”If strpath Then 验证是否输入文件名及路径 Exit Sub End If 8按揭还款计划 1代码作用:判断是否输入了路径Dim i As IntegerDim num As Integer num FreeFile Open strpath For Output As num 在文件中保存文本 For i 0 To List1.ListCount - 1 Print num List1.Listi 从第一排保存到文件,循环 List1.ListCount 次 Next Close 1 关闭文件End Sub代码作用:保存文本Private Sub Form_LoadMe.AutoRedraw True Dim dkSum dktotal avgdk As Double 贷款总额 Dim years As Integer 还款年数 dkSum Form1.Text1 years Form1.Comb_NS dktotal dkSum 10000 dkSum 10000 0.05 avgdk dktotal / years 12 每月还贷 Text1.Text dktotal / years 12 全部总息 Text1.Text dktotal 还款与贷款之比 Text2.Text dktotal / dkSum 10000 Dim syear smon As Integer syear Form1.Comb_year 开始年 smon Form1.Comb_mon 开始月 Dim i j As Integer For i syear To syear years - 1 For j smon To 12 List1.AddItem Stri 年 TrimStrj 月: Stravgdk 元 在 List1 中从第一排写年月每月还款 Next Next End Sub代码作用:等额本金还款法的计算 9按揭还款计划 1 四.程序测试主界面按钮有效性测试:主界面有 3 个按钮,分别单击 3 个按钮,单击“等额本息还款法”和“等额本金还款法”显示对应的窗体,单击“退出”按钮退出程序,如图 4.1 所示: 图 4.1 界面按钮有效性测试主界面下拉式列表框显示当前年月功能测试:运行程序,在“还款起始年月”框内的两个下拉式列表框显示出当前的年月,并在列表框内添加当前年数后退 10 年的所有年数,如图 4.2 所示: 图 4.2 主界面下拉式列表框显示当前年月功能测试保存文本功能测试:单击“保存到文件…”按纽,输入保存路径,如果是不正确的路径,提示错误;如果是正确路径,则保存文本到所输入的路径中,如图 4.3 所示: 10按揭还款计划 1 图 4.3 保存文本功能测试 11按揭还款计划 1 总 结 本次我们课程设计的题目是按揭贷款还款程序。
根据课程设计的要求,需要我用本学期所学的可视化程序的知识来编写程序,利用面向对象的方法以及
VB 编程思想来完成程序的设计。
在这一个礼拜的课程设计中,我通过小组的同心协力和指导老师赵强的帮助下,顺利地完成了任务。
在最初的设计中我遇到的一些困难。
通过查阅资料和小组讨论和请教赵老师后我有了头绪,之后通过自己的努力逐一排除错误。
通过自己仔细检查程序和请教老师以及同学,最终解决了所有问题。
我们的这个课题乍看之下十分简单,但真正设计起来还是有难度的。
设计之初,我们并没有什么头绪,单单是在每月日期显示的问题上就花费了很长时间,经过老师指点,我们应用了控件数组,不仅解决了问题,还是的代码简化了许多。
在显示星期的问题上,我们尝试了很多个方法,却总是出错,后通过翻阅资料。
在设计的过程中,我参考了大量的书籍资料,我们的指导老师也一直悉心指导我们,最后我终于通过努力完成了此次的课程设计。
通过这次的课程能够设计学习,不仅巩固了我对于控件的使用,而且还让我对
VB 语言有了更深层的认识和理解。
此外,由于编者水平有限,因此错误和问题难免,恳请各位使用者批评指正,本人也会不停更新程序,使之更加完善。
12按揭还款计划 1 参 考 文 献1张玲玲.网络安全技术M.北京:中国水利水电出版社,20082宁章.计算机及网络安全与防护基础M.北京:北京航空航天大学出版社,20093戴红王海泉黄坚.计算机网络安全M.北京:电子工业出版社,20044陈月波.网络信息安全M.第1版.武汉:武汉工业大学出版社,20085曾宪文.计算机网络技术M.北京:机械工业出版社,2008 13