Private Sub Command1_Click()
Dim k,n
Do Until k >= 26
n = n + 1
k = 13 * (1 + 0.008) ^ n
Loop
Print n & "年后人数为：" & k
End Sub