课程设计题目讲解剖析.doc

1.按揭购房还款计划 输入： 贷款总额（=商业贷款额+政策贷款额） 还款年限 享受政策贷款的人数 商业贷款年利率 政策性贷款年利率 还款起始年+月 要预计算的一些数值 1.若贷款总额小于享受政策贷款的人数*6（每人最多6万） 则 政策贷款额=贷款总额 商业贷款额=0 2.若贷款总额大于享受政策贷款的人数*6（每人最多6万） 则 政策贷款额= 享受政策贷款的人数*6 商业贷款额=贷款总额-政策贷款额 3.还款月数=还款年限/12 4.月利率=年利率/12 等额本息还款法的输出： 每月还款额=政策贷款每月还款额+商业贷款每月还款额 全部本息总和=每月还款额*还款年限*12 还款与贷款比=全部本息总和/贷款总额 等额本息还款法的计算： 政策性贷款的每月还款额= 政策贷款额*政策贷款月利率*（1+政策贷款月利率）还款月数 （1+政策贷款月利率）还款月数-1 商业贷款的每月还款额= 商业贷款额*商业贷款月利率*（1+商业贷款月利率）还款月数 （1+商业贷款月利率）还款月数-1 等额本金还款法的输出： 每月还款数额 全部本息总和=每月还款数额 累加 还款与贷款比=全部本息总和/贷款总额 等额本金还款法的计算： 每月还款数额逐月递减，第i个月的还款额为 政策贷款的每月还款额+商业贷款的每月还款额 政策贷款的每月还款额= 政策贷款额/还款月数+（政策贷款额-已还本金累计额）*政策贷款月利率 已还本金累计额=政策贷款额/还款月数*(i-1) 商业贷款的每月还款额= 商业贷款额/还款月数+（商业贷款额-已还本金累计额）*商业贷款月利率 已还本金累计额=商业贷款额/还款月数*(i-1) 几个建议： 1.由于每种还款法都涉及到两部分：政策性贷款+商业贷款 所以在计算时，编写过程，多次调用，可以是代码简洁 等额本息还款法----每月还款额一样 Function A（corpus！，rate！，year%）as single 输入参数 Corpus:某种贷款的贷款额 Rate：某种贷款的年利率 Year：贷款年限 返回的值：函数A:每月还款额 等额本金还款法----每月还款额不一样，逐月递减 Sub B（corpus！，rate！，year%， arr() As Single） 输入参数 Corpus:某种贷款的贷款额 Rate：某种贷款的年利率 Year：贷款年限 返回的值：arr():每月还款额 Sub B(corpus As Single, rate As Single, year As Integer, arr() As Single) For i = LBound(arr) To UBound(arr) x = corpus * (i - 1) / (12 * year) arr(i) = corpus / (12 * year) + (corpus - x) * (rate / 12) rate是年利率 Next i End Sub Call B(12, 0.04, 15, bb()) Call B(8, 0.05, 15, cc()) s = 0 For i = 1 To 180 mm(i) = bb(i) + cc(i) s = s + mm(i) Next i 2. 等额本金还款法中，通过两次调用过程，可以分别得到两种不同贷款的每月还款额，将两个数组中的值求和，就可以得到 每月的还款额 再通过循环，将数组中的值添加到列表框中 添加时，同时要 添加 还款对应的年月信息 year1 = 2003 month1 = 10 For i = 1 To 180 180是每月还款月数 List1.AddItem year1 - month1 : mm(i) mm()数组存放的是每月还款额 month1 = month1 + 1 If month1 Mod 13 = 0 Then year1 = year1 + 1 month1 = 1 End If Next i  2.股市计算器 输入： 印花税率 （由参数设置中获得） 佣金比率 （由参数设置中获得） 最低费用 （由参数设置中获得） 持股数量 （在投资分析中获得） 买入价位 （在投资分析中获得） 卖出价位 （在投资分析中获得） 输出 保本价位=（买入佣金+卖出佣金+买入印花税+卖出印花税+股票的投入）/持股数量 股票的投入=持股数量*买入价位