VB程序第7章.pptVIP

* Do Until…Loop循环 （2） Do While|Until… Loop循环 ② Do Until… Loop循环 Do Until 循环条件 [语句块] [Exit Do]Loop 先判断条件，然后在条件满足 时才执行循环体。 * Do Until…Loop循环 【例7.7】目前世界人口为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿。 Sub Form_Click() Dim p As Double Dim r As Single Dim n As Integer p = 6000000000# r = 0.014 n = 0 Do Until p = 7000000000# p = p * (1 + r) n = n + 1 Loop Print n; “年后”; “世界人口达; p End Sub Sub Form_Click() Dim p As Double Dim r As Single Dim n As Integer p = 60000000