VB求教學關於計算年利率

2012-03-02 7:42 am

圖片參考:http://imgcld.yimg.com/8/n/HA06253421/o/701203010079213873443990.jpg

上圖中 輸入
Amount 顯示在textbox1.text
interest rate顯示在textbox2.text
years to reach 1000000 顯示在label6 這裡的code 應該怎麼打?

回答 (1)

2012-03-03 12:11 pm
✔ 最佳答案
Dim P As Double
Dim r As Double
Dim Total As Double

P = textbox1.Text
r = textbox2.Text
Total = P * (1 + r) ^ 10

ValueAfter10Years.Text = Total

Dim n As Long = 0
Total = P
Do Until Total >= 1000000
Total = Total * (1 + r)
n = n + 1
Loop

YearsToReach1M.Text = n


收錄日期: 2021-04-23 21:31:21
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20120301000051KK00792

檢視 Wayback Machine 備份