UC知道运行不了，帮我看一下
来源：百度知道 编辑：UC知道 时间：2024/05/30 21:26:13
题目：
我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。Private Sub Form_Load()
Dim n As Integer, x As Double
x = 1300000000
n = 0
Do While x < 2600000000#
x = x * 0.008
n = n + 1
Loop
Print "求得的年数为："; n, "人数为："; x
End Sub
我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。Private Sub Form_Load()
Dim n As Integer, x As Double
x = 1300000000
n = 0
Do While x < 2600000000#
x = x * 0.008
n = n + 1
Loop
Print "求得的年数为："; n, "人数为："; x
End Sub
不知道为什么放load里运行不出来，只好放command里
可以了，
需要87年啊，很长的时间，我们都担心会人口过多呢，
Private Sub Command1_Click()
Dim n As Integer, x As Double
x = 1300000000
n = 0
Do While x < 2600000000#
x = x * 1.008
n = n + 1
Loop
Print "求得的年数为："; n, "人数为："; x
End Sub
把X=X*0.008换成X=X*(1+0.008)