设计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