✔ 最佳答案
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