2、我国现有人口为14亿。设年增长率为1％，编写程序，计算多少年后增加到20亿

[qlj841125896]

求高手写出源代码，急急急急急急！！！！！！！！！！！！

[lxq19851204]

统计局:中国人口达13.4亿 10年增7390万

[现在还是人类]

我上面的错了，好像不能通过公式算，只能用程序写，郁闷

[lxq19851204]

Private Sub Form_Load()
Dim i As Integer
    a = 14: b = 40
    Do While Not a > b
        a = a * (1 + 0.1)
        i = i + 1
    Loop
    Debug.Print i
    Debug.Print a
End Sub

[lxq19851204]

Private Sub Form_Load()
Dim i As Integer
    a = 14: b = 20
    Do While Not a > b
        a = a * (1 + 0.01)
        i = i + 1
    Loop
    Debug.Print i
    Debug.Print a
End Sub

[simon__sun]

多少年后 都不会到20亿 呵呵

[神马都能聊]

明年是2012年，程序会抛出异常的。

[jxjdzwang5555]

vfp9.0:

lnend=14
lni=1
do while lnend <= 20
lnend=lnend+14*(1+0.01)*lni
lni=lni+1
enddo

?lni

[laviewpbt]

一帮宝，这样的帖子也帮写代码。

[jxjdzwang5555]

vfp9.0:

lni=1
do while lnend <= 20
lnend=14*(1+0.01)*lni
lni=lni+1
enddo

?lni

[yachong]

Private Sub Form_Load()
    Debug.Print "年数="; Log(20# / 14#) / Log(1.01)
End Sub

年数= 35.8455361135223

[yachong]

小小地鄙视一下楼上用循环的好大一群人

[神马都能聊]

[Quote=引用 14 楼 yachong 的回复:]
VB code
Private Sub Form_Load()
Debug.Print "年数="; Log(20# / 14#) / Log(1.01)
End Sub


年数= 35.8455361135223
[/Quote]
标记一哈。

[无·法]

[Quote=引用 14 楼 yachong 的回复:]

VB code
Private Sub Form_Load()
Debug.Print "年数="; Log(20# / 14#) / Log(1.01)
End Sub


年数= 35.8455361135223
[/Quote]厉害，不过这道作业题是编程题不是数学题啊

[不用]

数学问题吧，用计算器算

[Saingel]

log(20/14)/log1.1

[jieweibin]

哈，楼主是国家计生委的？

[现在还是人类]

[Quote=引用 14 楼 yachong 的回复:]
VB code
Private Sub Form_Load()
Debug.Print "年数="; Log(20# / 14#) / Log(1.01)
End Sub


年数= 35.8455361135223
[/Quote]
公式，强

[wo22ni]

14 0.01 0.14
14.14 0.01 0.1414
14.2814 0.01 0.142814
14.424214 0.01 0.14424214
14.56845614 0.01 0.145684561
14.7141407 0.01 0.147141407
14.86128211 0.01 0.148612821
15.00989493 0.01 0.150098949
15.15999388 0.01 0.151599939
15.31159382 0.01 0.153115938
15.46470976 0.01 0.154647098
15.61935685 0.01 0.156193569
15.77555042 0.01 0.157755504
15.93330593 0.01 0.159333059
16.09263899 0.01 0.16092639
16.25356538 0.01 0.162535654
16.41610103 0.01 0.16416101
16.58026204 0.01 0.16580262
16.74606466 0.01 0.167460647
16.91352531 0.01 0.169135253
17.08266056 0.01 0.170826606
17.25348716 0.01 0.172534872
17.42602204 0.01 0.17426022
17.60028226 0.01 0.176002823
17.77628508 0.01 0.177762851
17.95404793 0.01 0.179540479
18.13358841 0.01 0.181335884
18.31492429 0.01 0.183149243
18.49807354 0.01 0.184980735
18.68305427 0.01 0.186830543
18.86988481 0.01 0.188698848
19.05858366 0.01 0.190585837
19.2491695 0.01 0.192491695
19.44166119 0.01 0.194416612
19.63607781 0.01 0.196360778
19.83243858 0.01 0.198324386
20.03076297 0.01 0.20030763
20.2310706 0.01 0.202310706
20.43338131 0.01 0.204333813

[神马被哪个妞占用了呢]

......哥只看看

[weizisheng131083]

n = 14
for i = 2011 to 10000
  n = n * 1.01
  if (n >= 20) then
     msgbox i
     exit for
  end
next