问题标题：
设计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
点击显示
其它推荐