一道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