1、“等额本金还款法”窗口中“每月还款额”列表框中显示的内容要求上下对齐。如果未输入贷款总额就单击“计算”按钮,则显示消息框给予提示。二、模块之间的调用关系,或程序流程图Command1Command2Command3 主程序实现等额本息还款法实现等额本金还款法退出应用程序每月还款额元全部本息总和元还款与货款之比还款比保存路径三、部分程序关键源代码及注释对于主窗体Form1的代码编写为Private Sub Form_Load() Dim i As IntegerFor i = 1 To 30Combo1.AddItem i 设置还款年数Next iCombo1.Text = 15 系统默认还款年
2、数为15年For i = 2008 To 2020Combo2.AddItem i 还款起始的年份Combo2.Text = 2008 系统默认的还款起始年份For i = 1 To 12Combo3.AddItem I 还款的月份Combo3.Text = 1 系统默认的还款起始月Text1.Text = 0Option1(2).Value = TrueEnd Sub针对实现等额本息还款法的程序代码:Private Sub Command1_Click()Dim s As Single, z As Single, s1 As Single, z1 As SingleDim Year As I
3、nteger, i As IntegerIf Val(Text1.Text) = 0 Or Val(Combo1.Text) = 0 Then MsgBox 请输入合适的贷款额。, 48, 注意: Exit Subs = Text1.Text S为贷款的数额Year = Combo1.Text Year为还款的年数For i = 0 To 3 i为享受政策性贷款的人数If Option1(i) Then Exit Forz = i * 6If sz thens = s - zElsez = ss = 0 计算出各种情况下的政策性贷款额和商业性贷款额End Ifs = s * 10000z =
4、z * 10000s1 = (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 下载窗体 form2Form2.Text1 = Format(s1 + z1, 0.00) 用于显示每月还款额Form2.Text2 = Format(s1 + z1) * Year * 12, ) 用于显示全部本息
5、总和Form2.Text3 = (s1 + z1) * Year * 12 / (s + z) 用于显示还款与货款之比 Form2.Show 1 显示窗体form2=对于加载的窗体form2的代码编写为: Unload Me 只是退出程序而不是停止运行程序针对等额本金还款法的程序代码:Private Sub Command2_Click()Dim s As Single, z As Single, Rate As Single, s1 As Single, z1 As SingleDim Year As Integer, i As Integer, j As Integer, start_ye
6、ar As Integer, start_month As Integers = Text1.TextYear = Combo1.Textstart_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 s z Thens = 0s = s * 10000 得到商业性贷款的数额z = z * 10000 得到政策性贷款的数额Load Form3 下载
7、form3窗体For i = 1 To Year * 12b1(i) = s / (Year * 12) + (s - s / (Year * 12) * (i - 1) * (0.05 / 12)b2(i) = z / (Year * 12) + (z - z / (Year * 12) * (i - 1) * (0.04 / 12)s1 = s1 + b1(i) 用for循环求商业性还款额z1 = z1 + b2(i) 用for循环求政策性还款额Form3.List1.AddItem start_year & 年 & Format(start_month, 00) &月: Format(b
8、1(i) + b2(i), 元start_month = start_month + 1If start_month = 13 Then start_month = 1: start_year = start_year + 1Form3.Text1 = s1 + z1 计算等额本金还款的全部本息总和Form3.Text2 = (s1 + z1) / (s + z) 计算其还货比Form3.Show 1 显示form3窗体对于加载的Form3窗体编写的程序代码为:Dim s As StringDim i As Integers = InputBox(请输入文件名及路径。, 文件名) 利用Inpu
9、tBox函数来引入输入对话框If s = Then Exit Sub 如果s为空则退出不保存Open s For Output As #1 打开文件供输出For i = 0 To List1.ListCount - 1Print #1, List1.List(i) 输出i行内容Close #1 关闭文件#1 Unload Me针对退出应用程序的程序代码:Private Sub Command3_Click()End 结束运行四、设计方案的完善及目前存在的问题1设计方案要完善的地方 框中每月还款额的陈述不一定非得使用列表框,因为需要用到循环程序,所以有时候脑子转不过来,可以用文本框加上滚动条来显示更能让人理解。 政策性贷款额和商业性贷款额的计算比较繁琐。2. 目前存在的问题 当对Form3的每月还款额进行保存路径时,必须提前在计算机中建立text文档,这使得过程繁琐,希望可以找到一种方式可以让它直接存盘。五、本次设计的收获及心得体会这个程序虽然难度系数是B,但是我还是摸索一阵,它的有些程序我也找了一下,一般的用到的程序我在书上都能找到。但是由于我的计算机编程知识只是学了一点皮毛,没有达到专业的水平
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1