壹道VB編程題：我國現有人口為13億，設年增長率為0.8%，編寫程序，計算多少年後人口增加到26億

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=dqrk*1.008

ns=ns+1

if dqrk < 2600000000 then rk dqrk,ns '人口數低於26億時遞歸調用

end sub