字典翻译 问答 其它 设计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
点击显示
其它推荐
热门其它推荐
  • 其它