1996年人口12.4亿，每年增长0.3%，哪年增长到16亿？

Question

zyl910(910：分儿，我来了！) ：  我不会BASIC语法啊，我也不想学，那头课堂需要这个答案

Answer 1

Dim TempSng as SingleTempSng=log(16/12.4)/log(1.003) '因为16=12.4*1.003^TempSng -> 1.003^TempSng=16/12.4，再用换底公式求对数
if TempSng<>int(TempSng) Then '进一法
    Print 1996+int(TempSng)+1
Else
    Print 1996+int(TempSng)
End if

Answer 2

j=12.4
i=0
do until j>=13
   i=i+1
   j=j*1.003
loop
print i+1996

Answer 3

循环效率太低建议楼上的那位去看http://expert.csdn.net/Expert/topic/1209/1209630.xml?temp=.5092432