Private Sub Com_Click()
Dim pv As Single, fv As Single, rate As Single, n As Integer
pv = Val(Te1.Text)
fv = Val(Te2.Text)
rate = Val(Te3.Text) / 100
n = 1
Do While
pv = pv * (1 + rate)
List1.AddItem "第" + Str(n) + "年" + " " + Str(pv) + "元"
n = n + 1
Loop
Te4.Text =
End Sub