编写计算

来源：百度知道 编辑：UC知道 时间：2024/09/23 19:26:07
1996年我国人口为12.3亿人，问当人口增长率分别为2%，1.5%，1%，0.5%
时， 到那一年我国人口超过13亿

Private Sub Form_Click()
Dim n As Integer, m As Single, sum As Double
m = 0.02 '这里你可以写 0.015 0.01 0.005
sum = 12.3
Do While sum < 13
sum = sum * (1 + m)
n = n + 1
Loop
Print "需要" & n & "年，达到13亿人口"
End Sub