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

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/17 11:51:41
设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程设计VB程序:我国有13亿人口,假定人口增长率为0.8%,多少年后我过人口超过26亿.求此段程序代码,
x){nߋu Ü~Y:&>ٜNC'?ٵibO͂p.r}Ov2гxUYO7L|s }@/C d {%m4 mz{:6IEv6#8 J2 ]+ r23K vEe%)381($/5"b kts WT{ , z .M0r}S44! ˜Kf.WZa;C%KrR425UO~^:~edCJ2s0SK/&Ld!-DTg>RbhC~} ( t $!]R F 1TCb

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