VB课程设-揭购房还款计划设计报告.docVIP

按揭购房还款计划设计报告 学院 土木工程 班级 测绘C111 学号 117538 姓名 霍新 成绩 一、设计思路 1.要达到的目的 ⑴培养学生综合利用语言进行程序设计的能力，主要是。 三、部分程序关键源代码及注释 对于主窗体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 sz 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)