Private Sub Command1_Click()
On Error GoTo haha
Dim sum As Integer, i As Integer, rsum As Integer
sum = 0
rsum = Val(Text1.Text)
i = 0
Do While sum < 10000
sum = sum + rsum
rsum = rsum + rsum * (Val(Text2.Text) / 100)
i = i + 12
Loop
Text3.Text = CStr(i / 12) & "年"
haha:
End Sub
Private Sub Form_Activate()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
