vb程序设计：如果我国现有人口13亿，按人口增长率0.8％计算，问多少年后，我国人口超过26亿，要

vb程序设计：如果我国现有人口13亿，按人口增长率0.8％计算，问多少年后，我国人口超过26亿，要求利用Do While.....Loop循环编程计算

推荐答案 2014-06-23

Private Sub Command1_Click()
    Dim Count As Double, r As Double, n As Integer

    Count = 13
    r = 0.008
    Do While Count < 26
        n = n + 1
        Count = Count * (1 + r)
    Loop
    MsgBox "我国现有人口 13 亿,按照每年 0.8% 的增长率," & vbCrLf & n & " 年后,我国的人数超过 26 亿!"
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://99.wendadaohang.com/zd/W7jtBXjOOW7t7B77BeO.html

其他回答

第1个回答 2014-06-24

12345678912345678945612346879

相似回答

如果我国现有人口13亿,按人口增长率0.8%计算,问多少年后,我国人口超过...答：用你的公式计算是86.99年。（注意，真正的人口推算并非这么简单）

编写程序,假设我国现有人口13亿,如果年增长率r=0.8%,求多少年后我国人口...答：public class Test { public static void main(String[] args) { float peopleNow = 13l;// 当前13亿人口 float r = (float) (0.8 / 100);// 增长率 int year = 0;// 年 while (peopleNow < 26) { peopleNow += (peopleNow * r);year++;} System.out.println(year);} } /...

...程序,假设我国现有人口13亿,如果年增长率r=0.8%,求多少年后我国人口...答：include<stdio.h>void main(){double r=0.008; //年增长率double h; //总人口数double t; //上一年人口数int i; //年份控制符h=13; //初始化人口总数13亿for(i=1;i>0;i++){t=h; //保存今年人口总数h=t*(1+r); //求一下年人口总数if(h>26) //...

一道VB编程题:我国现有人口为13亿,设年增长率为0.8%,编写程序,计算多少...答：'计算结果是87年后人口数达到26亿（2600217314）function n() as integer '返回值=人口数从13亿增加到26万需要的年数 dim dqrk as double,ns as integer dqrk=1300000000 rk dqrk,ns n=ns end function sub rk(byref dqrk as double,byref ns as integer)'dqrk 当前人口数，ns 年数 dqrk...

我国现有人口13亿,如果每年的增长率r=8%,求多少年后人口超过26亿?求vb...答：(根据公式26=13(1 r)^3推导出年数n可以用公式n=(lg2)/(lg(1 r))计算).不要下面这种：Private Sub Command1_Click()Dim k, n Do Until k >= 26 n = n 1 k = 13 * (1 0.008) ^ n Loop Print n & "年后人数为：" & k End Sub ...

vb循环结构程序设计 “我国现有人口13亿。设年增长率为1%,编写程序,计 ...答：x = 13 For n = 1 To 100 x = x + x * 0.01 If x >= 20 Then MsgBox n: Exit For Next n

中国现有人口13亿,多少年后到达26亿的VB编程答：计划生育后，不会达到那个数量了

珍惜粮食手抄报内容是什么?答：如果我们每天都能够节约一点点的话,就不会出现这些巨大的浪费了! 事实摆在眼前:我国人口己超过13亿,每年的净增长是1200万人;人均耕地面积1.2亩,是世界人均值1/4;耕地面积正以每年30多万亩的速度减少;全国40%的城市人口消耗的粮食依靠进口。在1981-1995年间,全国共减少了耕地8100万亩,因此减少粮食500亿斤。而且...

我国现有人口为12亿,设年增长率为1%,编写程序,计算多少年后增加到16...答：此题目属单变量求解变量为多少年X 如下思路可解决问题 12*(1+0.01)^x=16 让它输出X

大家正在搜

vb程序设计编写程序题 vb程序设计实例100 vb程序设计的主要特点是什么 vb程序设计教程答案国开c语言程序设计课后国开vb程序设计期末国二web程序设计国开性考VB程序设计1 简单vb程序设计