Page 80 -

第四章 程式的流程控制

單元練習 4-4

計算 n 年後儲蓄之本利和。
設 money 為每年存款本金，rate 為年利率(0~100%間以小數表示)，n 為存款年數。
第一年後之本利和為 money+money*rate=money*(1+rate)
第二年後之本利和為(第一年本利和+第二年本金)X 年利率，即：

(money+ money*(1+rate))*(1+rate)

(一)表單物件說明

物件名稱 屬性 物件樣式

Form1 Text=”計算本利和”

Label1 Text=”每年本金：”；Font=12pt

Label2 Text=”年利率：”；Font=12pt
Label3 Text=”期數(年)：”；Font=12pt

Text=””；Font=12pt,粗體
ForeColor=White；

Label4 BackColor=Blue
AutoSize=False；

TextAlign=MiddleCenter

TextBox1 Text=””；Font=12pt
TextBox2 Text=””；Font=12pt
TextBox3 Text=””；Font=12pt

Button Text=”計算本利和”；Font=12pt
(二)程式碼

Private Sub Button1_Click(sender………………Button1.Click
Dim rate, money, n, total As Single
money = TextBox1.Text
rate = TextBox2.Text
n = TextBox3.Text
For i = 1 To n
total = (total + money) * (1 + rate)
Next
Label4.Text = n & "年後本利和為" & total & "元"

End Sub
(三)執行結果

76