设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程
问题描述:
设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程
设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程序代码,
答
Option Explicit
Private Const START_NUMBER = 13
Private Const END_NUMBER = 26
Private Const RATE = 1.008
Private Sub Form_Load()
Dim number As Double
Dim years As Long
number = START_NUMBER
Do Until number >= END_NUMBER
number = number * RATE
years = years + 1
Loop
MsgBox years
End Sub