最大利息的计算（枚举法）

来源：百度知道 编辑：UC知道 时间：2024/07/04 10:53:55
假设银行整存整取存款时，不同存款期限的月利率为：
0.19% 一年； 0.23% 二年； 0.27% 三年； 0.32% 五年； 0.38% 八年
利息=本金*月利率*12*存款年数
现有2000元，存20年，设计一程序，使其利息最多。（VB！）

我觉得应该计算复利。

如果不计复利，则最大利息： 1699.2 。存期为：一年期：1 ，三年期：1，八年期：2。程序如下：
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, s As Single, max As Single
Dim N(1 To 5) As Integer
max = 0
For a = 0 To 20
For b = 0 To 10
For c = 0 To 6
For d = 0 To 4
For e = 0 To 2
If a + 2 * b + 3 * c + 5 * d + 8 * e <> 20 Then GoTo 100
s = 20 * 12 * (a * 0.19 + b * 0.23 * 2 + c * 0.27 * 3 + d * 0.32 * 5 + e * 0.38 * 8)
If max < s Then
max = s
N(1) = a
N(2) = b
N(3) = c
N(4) = d
N(5) = e
End If
100
Next e
Next d
Next c
Next b
Next a
Debug.Print "最大利息："; max
Debug.Print "一年期："; N(1); "二年期："; N(2); "三年期："; N(3); "五年期："; N(4); "八年期："; N(5)