vb程序设计实例 下载本文

内容发布更新时间 : 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()

-可编辑修改-