vb程序设计实例.pdfVIP

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 年后到期的本息合计 ; 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 如下 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() Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = True End Sub 如何让 Command1~4功能键的目标转向 text1 内的内容 我点的时候必须 把 text1 里面的内容去选定后才能