Vb课程设计-按揭购房还款计划

按揭购房还款计划设计报告

一、设计思路

1.要达到的目的

⑴培养学生综合利用VB语言进行程序设计的能力，主要是利用VB的图像控件进行界面设计，用VB的鼠标事件进行控件的拖拽处理以及利用数组进行数据处理的能力。进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。

⑵学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。

⑶通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。

⑷掌握自顶而下的设计方法，将大问题进行模块化分解，领会结构化程序设计的方法，同时深刻认识到面向对象程序设计与面向过程设计的根本区别。

⑸进一步掌握在集成环境下调试程序和修改程序的方法和技巧。

2.关键问题的解决

⑴用户输入贷款总额、选择还款年数、政策性贷款人数和还款起始年月，但后单击“等额本息还款法”按钮弹出“等额本息还款法”对话框，显示以“等额还款本息还款法”还款时每月的还款额、全部本息总和、还款额与贷款额之比。

⑵）在主窗体中单击“等额本金还款法”按钮，弹出“等额本金还款法”对话框，列表框中显示出从起始还款年月开始每月的还款额以及全部本息总和及还款比。单击“保存到文件”按钮，显示提示文件名即路径的窗口。然后将列表框中的内容以文本文件的形式保存到指定文件中。

⑶“等额本金还款法”和“等额本息还款法”窗口都以模态窗口显示，即必须单击“关闭”按钮后才能继续使用之窗口。“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击“计算”按钮，则显示消息框给予提示。

二、模块之间的调用关系，或程序流程图

三、部分程序关键源代码及注释

对于主窗体Form1的代码编写为

Private Sub Form_Load()

Dim i As Integer

For i = 1 To 30

Combo1.AddItem i ‘设置还款年数

Next i

Combo1.Text = 15 ‘系统默认还款年数为15年For i = 2008 To 2020

Combo2.AddItem i ‘还款起始的年份

Next i

Combo2.Text = 2008 ‘系统默认的还款起始年份

For i = 1 To 12

Combo3.AddItem I ‘还款的月份

Next i

Combo3.Text = 1 ‘系统默认的还款起始月

Text1.Text = 0

Option1(2).Value = True

End Sub

针对实现等额本息还款法的程序代码：

Private Sub Command1_Click()

Dim s As Single, z As Single, s1 As Single, z1 As Single

Dim Year As Integer, i As Integer

If Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox "请输入合适的贷款额。", 48, "注意": Exit Sub

s = Text1.Text ‘S为贷款的数额

Year = Combo1.Text ‘Year为还款的年数

For i = 0 To 3 ‘i为享受政策性贷款的人数

If Option1(i) Then Exit For

Next i

z = i * 6

If s>z then

s = s - z

Else

z = s

s = 0 ‘计算出各种情况下的政策性贷款额和商业性贷款额

End If

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)

Load Form2 ‘下载窗体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.Show 1 ‘显示窗体form2

End Sub

=====================================================================对于加载的窗体form2的代码编写为：

Private Sub Command1_Click()

Unload Me ‘只是退出程序而不是停止运行程序

End Sub

=====================================================================针对等额本金还款法的程序代码：

Private Sub Command2_Click()

Dim s As Single, z As Single, Rate As Single, s1 As Single, z1 As Single

Dim Year As Integer, i As Integer, j As Integer, start_year As Integer, start_month As Integer

If Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox "请输入合适的贷款额。", 48, "注意": Exit Sub

s = Text1.Text

Year = Combo1.Text

start_year = Combo2.Text ‘start year为开始还款的年份

start_month = Combo3.Text ‘start month为开始还款的月份

ReDim b1(Year * 12)

ReDim b2(Year * 12)

For i = 0 To 3 ‘得到享受政策性还款的人数

If Option1(i) Then Exit For

Next i