Question

：已知世界人口数量60亿元年增长率c=14% 从今年算起何时到70亿?我需要这个程序的代码!

Answer 1

Private Sub Command1_Click()

Dim a As Double, n As Integer

a = 60

Do Until a >= 70

a = 1.14 * a'你确定是百分之14吗,我觉得应该是1.4%,如果是改为1.014*a

n = n + 1

Loop

MsgBox n "年后人口达到70亿!"

End Su