设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程序代码,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/21 10:38:31

设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程序代码,
设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程
设计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