内容发布更新时间 : 2024/5/4 3:10:01星期一 下面是文章的全部内容请认真阅读。

______________________________________________________________________________________________________________

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()

-可编辑修改-