VB的小问题 急急！~~

来源：百度知道 编辑：UC知道 时间：2024/05/29 02:51:19
2003年人口数13亿
年增长率0.8%
问哪一年突破16亿 这个小程序

Private Sub Command2_Click()
Dim i!, j%
i = 13
j = 2003

Do
j = j + 1
i = i * 1.008
Loop Until i >= 16
Print j
End Sub

Private Sub Form_Load()
Dim a As Double
Dim b As Double
Dim i As Long

a = 13
b = 0.008

Do Until a > 16
a = a + a * b
i = i + 1
Loop

MsgBox i
End Sub

i就是多少年以后