vb程序设计实例.doc

vb程序设计实例 2009-5-22 15:37 提问者：淘淘的某在 " 悬赏分：20 " 浏览次数：1688次 编写程序，设银行定期存款的年利率为：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年后到期的本息合计，如图所示 2009-5-22 17:06 最佳答案 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 " 存一次