急急急,求VB程序题解法答案

来源:百度知道 编辑:UC知道 时间:2024/05/22 17:24:29
目前世界人口为60亿,如果每年增长1.4%,N年后世界人口将达到80亿,求N是多少
只要答案啊,不要过程!!!谢谢~~~

20.69
整数21

Private Sub Command1_Click()
Dim P As Double, N As Integer
P = 60
N = 0
Do While P < 80
N = N + 1
P = P * (1 + 0.014)
' Print N & "年后有人口:" & P & "亿"
Loop
Print N
End Sub