全国计算机等级考试二级VB程序设计模拟试题七【程序设计题】

程序设计（10分）

我国现有人口约13亿，设年增长率为0.8%，编写程序，计算多少年后增加到20亿。

Private Sub Form_click()

 Dim p As Single, r As Single, n As Integer

 n = 0: p = 13: r = 0.008

 Do While p <= 20

  p = p * 1.01

  n = n + 1

 Loop

  Print n; "年后增加至"; p; "亿"

End Sub