Private Sub Command1_Click()
Dim k,n
Do Until k >= 26
n = n + 1
k = 13 * (1 + 0.008) ^ n
Loop
Print n & "年后人數(shù)為：" & k
End Sub
一道VB編程題：我國現(xiàn)有人口為13億,設(shè)年增長率為0.8%,編寫程序,計算多少年后人口增加到26億
一道VB編程題：我國現(xiàn)有人口為13億,設(shè)年增長率為0.8%,編寫程序,計算多少年后人口增加到26億
其他人氣：405 ℃時間：2020-05-08 07:16:39
優(yōu)質(zhì)解答
我來回答
類似推薦
- 我國現(xiàn)有人口約為13億,設(shè)年增長率為1%,編寫程序,計算多少年后增加到20億；
- 設(shè)計VB程序：我國有13億人口,假定人口增長率為0.8％,多少年后我過人口超過26億.求此段程
- 根據(jù)2000年第五次人口普查結(jié)果,中國總?cè)丝谶_(dá)到12.9533億,試編寫程序,以人口增長率為1%計算,
- vb編程,我國有十三一人口,按人口年增長率0·8%計算,多少年后,我國人口超過26億
- 某地區(qū)目前人口增長率為每年1%按這種增長率大約經(jīng)過多少年人口數(shù)量增加到原來的2倍
- 若f(sinx)=cos2x,那么f(cos x)=?
- 將拋物線y=x2+bx+c先向右平移2個單位,再向上平移3個單位得到的拋物線是y=x2+4x+5 求b,c的值分別是多少?
- 用反證法證明命題“若a、b∈N,ab能被5整除,則a,b中至少有一個能被5整除.
- 用對牛彈琴造句.
- 鐵塊是銀白色的,鐵粉是黑色的；銀片是銀白色的,銀粉是黑色的.所有金屬粉末都是黑色的嗎?
- 如圖（1）,點M、N分別是正方形ABCD的邊AB、AD的中點,連接CN、DM． （1）判斷CN、DM的關(guān)系
- 給鐵器表面噴漆膜,可以防止鐵器表面銹蝕,現(xiàn)有150立方厘米的漆涂了5平方米的表面,則漆膜的厚度約是多少?)
猜你喜歡
- 1銳角三角形怎么畫
- 2把You should not watch too much TV .改成祈使句
- 3書是燈,讀書照亮了前面的路；書是橋,讀書接通了彼此的岸；書是帆,讀書推動了人生的船.仿寫,
- 4今天就要的!
- 5地球儀有什么好處和用處
- 61,2,4,8,16,32,64,128,256,512,1024 ,2048.4056.8112.16224.32448.之間有什么規(guī)律 第2010個是多少?
- 7世界上第四長的河流
- 8數(shù)軸上表示相反數(shù)的兩個和原點有什么關(guān)系?
- 9【F(X)=a的X次方-X*Lna】的導(dǎo)數(shù)怎么求
- 10人教版高一化學(xué)必修一哪幾課最重要,要具體章節(jié)名
- 11If you have some thing,say!If nothing,go home!
- 12在天正建筑里怎樣生成立面圖 剖面圖