课程设计题目讲解分析

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.股市计算器

输入：

印花税率（由参数设置中获得）

佣金比率（由参数设置中获得）

最低费用（由参数设置中获得）

持股数量（在投资分析中获得）

买入价位（在投资分析中获得）

卖出价位（在投资分析中获得）

输出

保本价位=（买入佣金+卖出佣金+买入印花税+卖出印花税+股票的投入）/持股数量股票的投入=持股数量*买入价位

股票所得=持股数量*卖出价位

买入佣金=股票的投入*佣金比率（若计算结果<10,则按10算）

买出佣金=股票所得*佣金比率（若计算结果<10,则按10算）

买入印花税=股票的投入*印花税率

买出印花税=股票所得*印花税率

手续费用=买入佣金+买出佣金+买入印花税+买出印花税

买入资金=股票的投入+买入佣金+买入印花税

回收资金=股票所得-买出佣金-买出印花税

盈亏金额=回收资金-买入资金