Question

vb问题以下内容！我国人口13亿，每年增加0.8%,多少年后超过26亿！怎样用vb来实现呢！

如何用编程实现？谢谢！

Answer 1

dim N as long
dim i as integer
N = 1300000000
i = 0
while N<2600000000
N = N * (1 + 0.8)
i = i + 1
Wend
MsgBox i & "年以后，中国人口将超过26亿！"

Answer 2

Option Explicit

Private Sub Form_Load()
Dim nowA As Single
Dim MaxB As Single
Dim nIna As Long
nIna = 2009
nowA = 13
Do
nIna = nIna + 1
MaxB = nowA + nowA * 0.008
If MaxB > 26 Then
Exit Do
End If
nowA = MaxB
Loop
Debug.Print nIna, MaxB
End Sub

结果
2096 年，人口将达到 26.00218 亿人