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 年后到期的本息合计，如图所示
最佳答案
Private Sub Form_Activate()
'1 年期 2.25%，2 年期 2.43%，3 年期为 2.70%，5 年期为 2.88%（不记复利）。
今有 X 元，5 年以后使用，共有如下 6 中存法：
Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027,
x5 As Double = 0.0288
Dim x As Double
x = Val(InputBox(""))
Print " 存一次 5 年期,5 年后到期的本息合计"; ss(x, 5, x5)
Print " 存一次 3 年期，一次 2 年期,5 年后到期的本息合计"; ss(ss(x, 3, x3), 2,
x2)
Print " 存一次 3 年期，两次 1 年期,5 年后到期的本息合计"; ss(ss(ss(x, 3, x3),
1, x1), 1, x1)
Print " 存两次 2 年期，一次 1 年期,5 年后到期的本息合计"; ss(ss(ss(x, 2, x2),
2, x2), 1, x1)
Print " 存一次 2 年期，三次 1 年期,5 年后到期的本息合计"; ss(ss(ss(ss(x, 2,
x2), 1, x1), 1, x1), 1, x1)
Print " 存五次 1 年期,5 年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1),
1, x1), 1, x1), 1, x1)
End Sub
Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double
ss = a + a * c * b
End Function
Private Sub Form_Load()
AutoRedraw = True
End Sub
剩余21页未读，继续阅读
评论0
最新资源