已知现在我国人口年平均增长率为1.5%,设现有人口总数为13亿,设计算法求多少年后人口数将达到或超过15亿
问题描述:
已知现在我国人口年平均增长率为1.5%,设现有人口总数为13亿,设计算法求多少年后人口数将达到或超过15亿
用Do Loop 语句写算法
答
Dim n As Double
Dim y As Integer
y = 0
n = 13
Do While n <= 15
'0.195= 13*1.5%
n = n + 0.195
y = y + 1
Loop
MsgBox y