Question

vb程序编写 来大神

编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有6中存法：① 存一次5年期；②存一次3年期，一次2年期；③存一次3年期，两次1年期；④存两次2年期，一次1年期；⑤存一次2年期，三次1年期；⑥存五次1年期。分别计算各种存法5年后到期的本息合计。

Answer 1

这不是vb，这题数据化做好可以省事。
double[] 利率数组=new double[]{1.0225,1.02.43,1.027,1.0288};
不记复利——不利滚利，把利息提出？本金+利率 为 年数*利率数组
① 存一次5年期=5*利率数组[2];
②存一次3年期，一次2年期=3*利率数组[2]+2*利率数组[1];

Answer 2

'主要代码
Public Money As Double
Public Sub Calculate(X As Double, Types As Integer)
If Types = 1 Then
Money = X + X * 0.288 * 5
ElseIf Types = 2 Then
Money = X + X * 0.027 * 3 + X * 0.0243 * 2
ElseIf Types = 3 Then
Money = X + X * 0.027 * 3 + X * 0.0225 * 1 * 2
ElseIf Types = 4 Then
Money = X + X * 0.0225 * 1 + X * 0.0243 * 2 * 2
ElseIf Types = 5 Then
Money = X * 0.0225 * 1 * 3 + X * 0.0243 * 2
ElseIf Types = 6 Then
Money = X * 0.0225 * 1 * 5
End If
End Sub

'用法：
'Calculate 钱数 存款类型
'存款类型：要填1~6，分别对应的就是你要的存款类型
'示范（一次五年期存100元）：
Public Money As Double
Public Sub Calculate(X As Double, Types As Integer)
If Types = 1 Then
Money = X + X * 0.288 * 5
ElseIf Types = 2 Then
Money = X + X * 0.027 * 3 + X * 0.0243 * 2
ElseIf Types = 3 Then
Money = X + X * 0.027 * 3 + X * 0.0225 * 1 * 2
ElseIf Types = 4 Then
Money = X + X * 0.0225 * 1 + X * 0.0243 * 2 * 2
ElseIf Types = 5 Then
Money = X * 0.0225 * 1 * 3 + X * 0.0243 * 2
ElseIf Types = 6 Then
Money = X * 0.0225 * 1 * 5
End If
End Sub

Private Sub Form_Load()
Calculate 100,1
Label1.Caption = Money
End Sub

楼上有人说用FV函数，不过我不会，见谅了

Answer 3

写一个function。
一句两句写不完。

Answer 4

FV函数哦！

Answer 5

jia我 Q一九8786三三63 我发程序给你