早教吧作业答案频道 -->其他-->
vb程序设计实例编写程序,设银行定期存款的年利率为:1年期2.25%,2年期2.43%,3年期为2.70%,5年期为2.88%(不记复利)。今有X元,5年以后使用,共有如下6中存法:①存一次5年期;②存一
题目详情
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年后到期的本息合计,如图所示
编写程序,设银行定期存款的年利率为: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
'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
看了 vb程序设计实例编写程序,设...的网友还看了以下:
李某将5000元人民币以定期存款的形式存入银行,存期为一年.该时期银行一年期定期存款月利率为5%, 2020-05-13 …
王叔叔在银行存款1000元,存期为一年,年利率是4.14%.到期后,他将从银行取出的钱全部又按定期 2020-05-16 …
某人以一年期的定期储蓄把一万元存入银行,当年的年利率为x,第2年他把第1年的存款的本利和继续存入银 2020-06-07 …
财务管理计算题计算以下两大题,过程麻烦详写,1、若银行存款利率为5%,每年复利一次,现在需一次存入 2020-07-22 …
王叔叔到银行存了20000元存期为3年,年利率为5%,则3年后本息和为元王叔叔在银行的两年存款到期 2020-07-23 …
1.小花按1年期把3000元存入银行,年利率为百分之2.25,到期得本息和为?2.小红把1000元 2020-07-23 …
居民李某将5000元人民币以定期存款的形式存入银行,存期为一年,该时期银行一年期定期存款月利率为5‰ 2020-11-06 …
2008年1月,小明家有一笔12万元的现金,他把其中的30%存入银行,存期为三年.缴纳利息税后,可得 2020-11-14 …
小明每年年末都收到一笔压岁钱,他打算把其中一部分存入银行,假设每年12月31日存入银行800元,银行 2020-11-28 …
某人从现在开始每年年末存入50000元,连续存7年,银行存款年复利率为10%,计算7年后共取出多少( 2021-01-14 …