程序的循环结构上

1、代码s = 0n = 2For i = 1 To 10 Step 1s = s + 1 / nn = n + 2Next iPrint sy = 1 / 2 + 1 / 4 + 1 / 6 + 1 / 8 + 1 / 10 + 1 / 12 + 1 / 14 + 1 / 16 + 1 / 18 + 1 / 20Print y程序的循环结构For语句Do 语句引入 怎样在屏幕上依次输出10以内的所有偶数？Print 2Print 4Print 6Print 8Print 10如果要依次输出100甚至1000以内的所有偶数，应该怎么办？Print 2循环体 Print i输出10以内的偶数i=i+

2、2Print 2Print 4Print 6Print 8Print 10For 循环语句的基本格式For 循环变量=初值 To 终值 Step 步长 语句组（循环体）Next 循环变量循环变量循环变量=初值初值循环变量超过终值循环变量超过终值执行循环体执行循环体循环变量增加一个步长值循环变量增加一个步长值否否是是 初值：i=2（循环变量用i表示） 输出数据：i 循环体： i=i+2 Print i 条件：i10i=i+2否否是是输出i开始结束程序代码 Private Sub Command1_Click() For i = 2 To 10 Step 2 Print i Next i End

3、Sub执行过程循环次数循环前i值 i=10?输出结果循环后i值12是22+2=424是44+2=636是66+2=848是88+2=10510是1010+2=12612否（退出循环） Private Sub Command1_Click() s =0 For i = 1 To 10 step 1 s = s + i Next i Print s=; s End Subs=55课堂中练： 教材p52实践题： 读程序，分析程序中的循环体分别被执行了多少次？其运行结果是什么？ 注意：循环体执行次数（终值初值）步长For a = 1 To 10a = a + 1Print aNext a246810F

4、or a = 1 To 10 Print a a = a + 1Next a13579For的嵌套 For i=1 to 5 for j=1 to 5 print i+j, next j print Next i 1、for语句与next语句必须成对出现，缺一不可。 2、for语句必须在next语句之前。 3、for语句中的“循环变量”与next语句中的“循环变量”必须一致。 4、如果步长为1，则“step 1”可省略。注意：循环体执行次数（终值初值）步长注意：循环体执行次数（终值初值）步长For 代码s = 0n = 2For i = 1 To 10 Step 1s = s + 1 / nn

5、 = n + 2Next iPrint sy = 1 / 2 + 1 / 4 + 1 / 6 + 1 / 8 + 1 / 10 + 1 / 12 + 1 / 14 + 1 / 16 + 1 / 18 + 1 / 20Print yDo 代码 s=0 n=2 i=1 do while i=10 s=s+1/n n=n+2 i=i+1 loop Print s Do 循环语句 前面我们已经学过前面我们已经学过FOR 循环语句，循环语句，它适于知道重复次数的循环。但在许它适于知道重复次数的循环。但在许多实际问题中常常难以预先确定重复多实际问题中常常难以预先确定重复的次数，这时就不能使用的次数，这时就

6、不能使用FOR 循环语循环语句。为此，句。为此，VB语言还提供了一种称为语言还提供了一种称为DO循环的语句，使得循环更加灵活方循环的语句，使得循环更加灵活方便。便。Do 循环语句的基本格式Do 循环体Loop Until 循环终止条件其中：循环体是一组VB语句；循环终止条件是一个逻辑表达式。执行循环体满足循环终止条件吗？是否实践1 已知S=1+2+3+N，找出一个最大的整数N，使得S= 30000 Print n-1 End Sub课堂实践： 利用计算机计算出手折出珠峰高度需要的次数！ 想一想，让珠峰在你手中生成！ 假设一张纸足够长，纸厚度为0.5毫米，问重叠几次后的厚度大于珠穆琅玛峰的高度（8848.13m）分析：假设折叠第n次后超过珠峰：折叠n次折叠次0.5*2折叠次(0.5*2)*2折叠次(0.5*2)2)20.5*2n判断条件：0.5*2n8848130折出珠峰程序代码实现： Private Sub Comm