輸入存款本金p及年利率r,分別按每月單利及複利計算,並輸出存款1年,2年,3年.....10年的本利和(均取至兩位小數)
會的麻煩給我程式碼謝謝
2006-03-02 10:03:29 · 4 個解答 · 發問者 泰迪熊 3 in 電腦與網際網路 ➔ 程式設計
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⤋