第8讲 循环(while).pptVIP

主要内容 1、Do While|until…Loop 2、Do …Loop While|until 3、循环的嵌套 4、程序举例 循环分为计数型循环和条件型循环两种。 VB提供For…Next循环和Do…Loop循环 分别用来处理这两种类型的循环。 前测型循环 Do { while|until } 条件 循环体（Exit Do） Loop 说明： 1、Do while 条件循环：当条件为真执行循环体，为假则退出。 2、Do until 条件循环：当条件为假执行循环体，为真则退出。 前测型循环 Do while 条件 循环体（Exit Do） Loop 。 前测型循环 Do { while|until } 条件 循环体（Exit Do） Loop 说明： 3、循环体中应有语句使循环逐渐接近结束。 i = 1 Do While i = 20 Print i i = i + 1 Loop Dim i%, sum% sum = 0 i = 1 Do While i = 100 sum = sum + i i = i + 1 Loop Print i, sum Dim i%, sum% sum = 0 i = 1 Do Until i 100 sum = sum + i i = i + 1 Loop Print i, sum Dim i%, sum% sum = 0 i = 1 Do sum = sum + i i = i + 1 Loop While i = 100 Print i, sum Dim i%, sum% sum = 0 i = 1 Do sum = sum + i i = i + 1 Loop Until i 100 Print i, sum 前测与后测的比较 循环的嵌套 在一个循环结构的循环体内含有另一个循环结构，就构成了循环嵌套，又叫多重循环。 循环嵌套对For循环和While循环均适用，这两种循环还可以相互嵌套，即在For循环的循环体中可以使用While循环，在While循环的循环体中也可以出现For循环。 【例】看程序写结果及循环总次数 外循环执行一次，内循环执行一周 Dim i% , j% For i=1 to 3 For j=5 to 6 Print i, j Next j Next i 【例】看程序写结果 【例】编程实现圆周率求取 Dim pi!, f!, t!, sign% t = 1 通项 f = 1 分母 sign = 1 符号 Do While Abs(t) = 0.00001 pi = pi + t f = f + 2 sign = -sign t = sign / f Loop Print 4 * pi 循 环 结 构 综 合 举 例 1 解法 1 解法 2 循 环 结 构 综 合 举 例 2 Dim x%, y%, z% Print 公鸡, 母鸡, 小鸡 For x = 0 To 20 For y = 0 To 50 For z = 0 To 100 If 5 * x + 3 * y + z \ 3 = 100 And x + y + z = 100 Then Print x, y, z End If Next z Next y Next x Dim x%, y%, z% Print 公鸡, 母鸡, 小鸡 For x = 0 To 20 For y = 0 To 50 For z = 0 To 100 If 5 * x + 3 * y + z /3 = 100 And x + y + z = 100 Then Print x, y, z End If Next z Next y Next x Dim x%, y%, z% Print 公鸡, 母鸡, 小鸡 For x = 0