Question

我国现有人口13亿,如果每年的增长率r=8%,求多少年后人口超过26亿？求vb编程，主要用插入lg函数的那种。

(根据公式26=13(1+r)^3推导出年数n可以用公式n=(lg2)/(lg(1+r))计算).
不要下面这种：
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

Answer 1

(根据公式26=13(1 r)^3推导出年数n可以用公式n=(lg2)/(lg(1 r))计算).
不要下面这种：
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