作业帮 > 综合 > 作业

:已知世界人口数量60亿元年增长率c=14% 从今年算起何时到70亿?我需要这个程序的代码!

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/19 02:58:52
:已知世界人口数量60亿元年增长率c=14% 从今年算起何时到70亿?我需要这个程序的代码!
Private Sub Command1_Click()
   Dim a As Double, n As Integer
   a = 60
   Do Until a >= 70
      a = 1.14 * a   '你确定是百分之14吗,我觉得应该是1.4%,如果是改为1.014*a
      n = n + 1
   Loop
   MsgBox n & "年后人口达到70亿!"
End Su