按揭购房还款计划

计算机语言课程设计——设计题目院系：专业班级：自动化学生姓名：学号：完成日期：设计成绩：一、设计目的：综合运用面向对象开发工具，设计Windows风格的软件。

通过此次程序设计题目，使学生熟练掌握Windows应用程序的开发过程，为以后专业课的学习奠定基础。

二、所选编程语言：Visual Basic 6.0三、系统总体设计思路：设计想法：按揭贷款常用的有“等额本息还款”和“等额本金还款”两种方式，题目中给出了相关的计算公式，故可以编写相应的程序来实现这两种还款的相应计算功能，帮助用户计算出不同贷款数额、不同还款方式贷款时每月应还的数额、总额及还款额和贷款额的比例，帮助其进行决策。

可主要由多模块程序设计、文本文件的保存、列表框等基本控件编写相应的程序代码来完成该软件的实现。

设计流程：1．先构建的窗体并添加相应的控件2．对各个窗体及窗体上的控件caption等属性进行相应的更改3．各个窗体相应的代码和控件相应的程序编写4．外观的设计5．菜单栏、工具栏和状态栏的添加编写及帮助文件的添加6．生成.exe文件功能模块的规划：对于主窗口：贷款总额、还款年数、享受政策性人数、还款起始年月的选择添加3个按钮控件来进行等额本息、等额本金还有退出的选择对于form2窗口来实现用户选择等额本息还款法的每月还款额、全部本息和、还款与贷款比的计算结果对于form3窗口来实现用户选择等额本金还款法的每月还款额，全部本息和与还款比的计算结果。

其中点击保存文件可将每月还款额以相应的.txt格式保存在相应的文件中剩下的窗口用来进行软件首页面的设置及相应的帮助文件等。

预计软件实习效果：能实习用户不同年限、不同数额、不同还款方式贷款时每月应还的款数、还款的总额以及还款额和贷款额的比例的基本要求。

四、系统各功能模块设计包括采用的关键控件、关键技术、主要界面通过运行该程序可以基本实现用户以不同年限、不同数额、不同还款方式贷款时每月应还的款数、还款的总额以及还款额和贷款额的比例的计算显示。

（一）关键控件：主要有Label、Frame、CommandButton、OptionButton、ComboBox、TextBox控件，还有Picture Box、Image 控件。

其中，Label 主要用来显示提示内容，例如“贷款总额” ；Frame 主要用来将一些单选控件进行组合，例如对“ 政策性贷款人数” 进行选择；TextBox 主要用来数据的输入以及显示计算结果，例如显示“月还款额”的数值；CommandButton 主要用来执行一些操作，例如执行“关闭” ；OptionButton 主要用来进行单选；ComboBox 主要用来从其提供的列表中选择一项；另外Picture Box 和Image 用来插入个窗体的背景图片。

（二）关键技术输入函数inputbox和MsgBox的使用，动态数组的使用，If语句的使用，列表框和组合框中AddItem方法的使用及for循环的使用等等（三）主要界面（1）首界面：进行进入软件、帮助、退出的相关选择首页面点击“退出”按钮，出现下面对话框（2）选择开始后进入主程序界面（3）点击“等额本息还款法”和“等额本金还款法”时，当未输入贷款总额时，弹出下边对话框（4）当输入贷款总额时，点击“等额本息还款法”按钮（或者点击菜单栏上的“选择还款法进行计算”中的“等额本息还款法”），出现下面窗口（5）当用户根据自己所需输入贷款总额及相应的信息时点击“等额本金还款法”按钮（或者点击菜单栏上的“选择还款法进行计算”中的“等额本息还款法”），出现如下窗体（6）点击保存到文件输入文件名和路径后点击确定保存文件如下如点击取消或未输入相应的文件名，则出现下对话框（7）在首界面点击“帮助”按钮或者菜单栏下的“帮助”在主程序界面点击菜单栏上的帮助中的“使用说明”，弹出如下窗口五、软件设计效果1、基本实现等额本息还款法和等额本金还款法对月还款额、总还款额以及还款与贷款额之比的计算，以便对还款方式进行决策；2、等额本金还款法可以实现对每月还款数据进行保存（生成 .txt 格式文件），便于查看；3、帮助功能便于对此软件的正确使用六、设计总结这次的VB课程学习及编程，虽然是短短的两周，但是对于VB的学习和知识的掌握有了很大的提高。

最开始的编程到最后的软件基本功能的实现，中间进行了无数次的修改，对于出错的和不懂的，不断地翻书查资料，对于一些控件的属性和方法和一些函数有了更深的掌握。

在编程中，虽然过程复杂，经过了反复的修改和操作及完善，对VB的一些基础的相应知识有了进一步地了解，同时也对编程产生了浓厚的兴趣。

程序的入手阶段是困难的，刚刚接触一个新的程序会感到无从下手。

编程是对知识的巩固，虽然只有短短的三四天学习的时间，在短暂的三四天时间里，知识点还不是掌握的十分牢固，但是通过最近几天的编程，我发现在两周时间内学好VB还是可以的。

知识是基础，编程是巩固。

而且还能从中找到乐趣。

编程时要先制定一个大的框架，用几个模块，什么模块，那些事件过程，那些通用过程，当大致的轮廓出来后再进行深一步的编写，考虑语句的语法、逻辑，各个通用过程的调用，事件过程的实现。

这里会遇到真正难以解决的问题，要再次通过查阅多方资料并结合认真思考来寻找解题思路，在编写过程中要擅于总结。

七、参考文献网页参考文献：[1]URL:书籍参考文献:[2]Visual Basic 6.0 程序设计实用教程（第2版）（罗朝盛主编、郑玲利副主编）清华大学出版社附录：源程序（一）主窗口（Form1）:Private Sub Form_Load()Dim i% 'i为还款年数Dim j% 'j为一个循环变量Dim r_year%, r_month% 'r_year为还款起始年，r_month为还款起始月r_year = year(Now)r_month = year(Now) '返回当前年、月s = Val(Text1.Text) * 10000For i = 1 To 60Combo1.AddItem i '设置还款年数Next iCombo1.Text = 15 '系统默认还款年数为15年Option3.Value = Trueperson = 2 '系统默认政策性人数为2人For j = 1 To 60Combo2.AddItem r_yearr_year = r_year + 1Next jCombo2.ListIndex = 0 '设置系统默认还款年份为当前年份For j = 1 To 12Combo3.AddItem j '设置还款月份Next jCombo3.Text = month(Now) '设置系统默认还款月份为当前月份End SubForm1中通用部分：Public s! 's为贷款总额Public person% 'person为享受政策性贷款人数对于Form1中Command1(“等额本息还款法”按钮)的程序代码为：Private Sub Command1_Click()s = Val(Text1.Text) * 10000Dim year% 'year为还款年数Dim a! 'a为每月还款数额Dim month% 'month为还款月数Dim s1! 's1为用户享受政策性贷款总额Dim s2! 's2为用户商业性贷款总额If Text1.Text = "" ThenMsgBox "请输入合适的贷款额", 48, "注意": Exit SubEnd IfIf Option1.Value = True Then person = 0If Option2.Value = True Then person = 1If Option3.Value = True Then person = 2If Option4.Value = True Then person = 3 '确定享受政策性贷款人数year = Combo1.Textmonth = year * 12s1 = person * 60000If s1 > s Thens1 = s: s2 = 0Elses2 = s - s1End Ifa = (s1 * (0.04 / 12) * (1 + 0.04 / 12) ^ month) / ((1 + (0.04 / 12)) ^ month - 1) + (s2 * (0.05 / 12) *(1 + 0.05 / 12) ^ month) / ((1 + (0.05 / 12)) ^ month - 1)Load Form2 '下载窗体form2Form2.Text1 = Format(a, "0.00")Form2.Text2 = Format(a * month, "0.00")Form2.Text3 = Val(a * month / s)Form2.Show 1 '显示窗体form2End Sub对于Form1中Command2(“等额本金还款法”按钮)的程序代码为：Private Sub Command2_Click()Dim year% '定义还款年数Dim month% '定义还款月数Dim s_year%, s_month% '定义起始年月Dim i% '定义一个循环变量Dim s1! 's1为用户享受政策性贷款总额Dim s2! 's2为用户商业性贷款总额Dim m! 'm为全部本息总和If Text1.Text = "" ThenMsgBox "请输入合适的贷款额", 48, "注意": Exit SubEnd Ifyear = Val(Combo1.Text)month = year * 12s = Val(Text1.Text) * 10000s_year = Val(Combo2.Text)s_month = Val(Combo3.Text)ReDim b1(month)ReDim b2(month)If Option1.Value = True Then person = 0If Option2.Value = True Then person = 1If Option3.Value = True Then person = 2If Option4.Value = True Then person = 3 '确定享受政策性人数s1 = person * 60000If s1 > s Thens1 = s: s2 = 0Elses2 = s - s1End IfLoad Form3 '下载窗体Form3For i = 1 To monthb1(i) = s1 / month + (s1 - s1 / month * (i - 1)) * (0.04 / 12)b2(i) = s2 / month + (s2 - s2 / month * (i - 1)) * (0.05 / 12)m = m + b1(i) + b2(i)Form3.List1.AddItem s_year & "年" & Format(s_month, "00") & "月：" & Format(b1(i) + b2(i), "0.00") & "元"s_month = s_month + 1If s_month = 13 Then s_month = 1: s_year = s_year + 1Next iForm3.Text1 = Val(m) '计算全部本息总和Form3.Text2 = Val(m / s) '计算还贷比Form3.Show 1 '显示窗体Form3End Sub（二）等额本息还款法(form2)窗口：Private Sub Command1_Click()Unload MeEnd Sub（三）等额本金还款法（form3）窗口：Form3中的Command1（“保存文件…”按钮）代码：Private Sub Command1_Click()Dim str$Dim i%str = InputBox("请输入文件名及路径：", "文件", "d:\pay.txt")If str = "" ThenMsgBox "请输入您要保存的文件名", 16, "警告"Exit SubElseOpen str For Output As #1 '打开文件End IfFor i = 0 To List1.ListCount - 1Print #1, List1.List(i) '输入文本Next iClose #1 '关闭文件End SubForm3中的Command2（“关闭”按钮）代码：Private Sub Command2_Click()Unload MeEnd Sub（四）使用说明（form4）窗口：Private Sub Command1_Click()Form1.Visible = TrueForm4.Visible = FalseEnd SubPrivate Sub Command2_Click()EndEnd Sub（五）软件首页（form5）窗口：Private Declare Function ShellExecute _Lib "shell32.dll" _Alias "ShellExecuteA" ( _ByVal hwnd As Long, _ByVal lpOperation As String, _ByVal lpFile As String, _ByVal lpParameters As String, _ByVal lpDirectory As String, _ByVal nShowCmd As Long) _As Long '建立帮助文件代码Private Sub help_Click()ShellExecute 0, "open", "hh.exe", App.Path + "\help.chm", "", 1End Sub '建立帮助文件代码Private Sub Label2_Click()Form1.Visible = TrueForm5.Visible = FalseEnd SubPrivate Sub Label3_Click()ShellExecute 0, "open", "hh.exe", App.Path + "\help.chm", "", 1 '建立帮助文件End SubPrivate Sub Label4_Click()x = MsgBox("是否退出系统", 36, "退出系统")If x = 6 ThenEndElseForm5.Visible = True End IfEnd SubPrivate Sub start_Click() Form1.Visible = True Form5.Visible = False End Sub。