English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

輸入存款本金p及年利率r,分別按每月單利及複利計算,並輸出存款1年,2年,3年.....10年的本利和(均取至兩位小數)

會的麻煩給我程式碼謝謝

2006-03-02 10:03:29 · 4 個解答 · 發問者 泰迪熊 3 in 電腦與網際網路 程式設計

4 個解答

Private Sub Command1_Click()Dim P As Double '本金Dim R As Single '年利率Dim A As Double '複利本利和Dim B As Double '單利本利和Dim I As IntegerP = 12345: R = 0.02Print "本金 : "; P, "年利率 : "; R; Tab(1)A = P: B = PFor I = 1 To 10    A = A * (1 + R)    B = B + P * R    Print "第 "; I; " 年本利和"    Print "複利 : "; Format(A, "0.00"); " , 單利 : "; Format(B, "0.00"); Tab(1)NextEnd Sub

2006-03-06 17:20:33 · answer #1 · answered by W.J.S. 7 · 0 0

有公式,只是要查書!

2006-03-02 11:25:17 · answer #2 · answered by Anonymous · 0 0

有公式嗎?

2006-03-02 10:54:52 · answer #3 · answered by ? 5 · 0 0

作業自己寫

2006-03-02 10:08:49 · answer #4 · answered by 勘手耶敵的威 5 · 0 0

fedest.com, questions and answers