一道VB编程题：我国现有人口为13亿，设年增长率为0.8%，编写程序，计算多少年后人口增加到26亿

一道VB编程题：我国现有人口为13亿，设年增长率为0.8%，编写程序，计算多少年后人口增加到26亿

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

以LAMP兄弟连的课程安排来说主要学习一下内容：
1.SpringSecurity：目前最主流的JavaEE安全解决方案，基于Spring。为基于JavaEE企业开发提供全面安全服务。
2.WebSphere：企业级应用服务器。包含了编写、运行和监视全天候的工业强度的随需应变 Web应用程序和跨平台、跨产品解决方案所需要的整个中间件基础设施。
3.负载均衡：高并发解决方案。能利用一个集群中的多台单机，响应更多的并发请求。
4.分布式系统：由网络互联的多处理机体系结构上执行任务的系统。可有效提高系统的可扩展性、稳定性和执行效率

'计算结果是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=dqrk*1.008
ns=ns+1
if dqrk < 2600000000 then rk dqrk,ns '人口数低于26亿时递归调用
end sub