内容发布更新时间 : 2024/11/1 7:40:39星期一 下面是文章的全部内容请认真阅读。
______________________________________________________________________________________________________________
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 \①存一次5年期,5年后到期的本息合计\
Print \②存一次3年期,一次2年期,5年后到期的本息合计\Print \③存一次3年期,两次1年期,5年后到期的本息合计\1, x1)
Print \④存两次2年期,一次1年期,5年后到期的本息合计\1, x1)
Print \⑤存一次2年期,三次1年期,5年后到期的本息合计\x1), 1, x1), 1, x1)
Print \⑥存五次1年期,5年后到期的本息合计\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
-可编辑修改-
______________________________________________________________________________________________________________
如下
Dim str As String
Private Sub Command1_Click() str = Text1.SelText Text1.SelText = \Command3.Enabled = True End Sub
Private Sub Command2_Click() str = Text1.SelText Command3.Enabled = True End Sub
Private Sub Command3_Click() Text1.SelText = str End Sub
Private Sub Command4_Click() End End Sub
Private Sub Command5_Click() Form2.Show Form1.Hide End Sub
Private Sub Form_Load()
-可编辑修改-