VB程序第7章.ppt

* 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 = 6000000000# r = 0.014 n = 0 Do p = p * (1 + r) n = n + 1 Loop Until p = 7000000000# Print n; “年后”; “世界人口达; p End Sub * 7.6　多重循环 循环体内不含有循环语句的循环叫做单层循环，而把循环体内含有循环语句的循环称为多重循环。多重循环又称多层循环或嵌套循环。 【例7.9】打印“九九表”，输出结果如图所示。 * 7.6　多重循环 【例7.9】打印“九九表”，输出结果如图所示。 Private Sub Form_Click() Print Tab(30); 9 * 9 Table Print: Print Print * ; For i = 1 To 9 Print Tab(i * 6); i; Next i Print For j = 1 To 9 Print j; ; For k = 1 To j temp = j * k Print Tab(k * 6); temp; ; Next k Print Next j End Sub * 【例7.10】编写程序，输出100到300间的所有素数。 Private Sub Form_Click() For n = 100 To 300 s = 0 For m = 2 To n / 2 If n Mod m = 0 Then s = 1 Exit For End If Next m If s = 0 Then d = d + 1 If d Mod 5 = 0 Then Print n; ; Print Else Print n; ; End If End If Next n End Sub * 7.6　多重循环 以出口语句退出循环。 无条件形式 条件形式 Exit For If 条件 Then Exit For Exit Do If 条件 Then Exit Do Exit Sub If 条件 Then Exit Sub Exit Function If 条件 Then Exit Function 出口语句的两种形式 * 【例7.11】编写程序，试验出口语句。 Sub Form_Click() Dim I, Num