程序的循环结构上

代码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 i输出10以内的偶数i=i+2Print 2Print 4Print 6Print 8Print 10 For 循环语句的基本格式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 Sub 执行过程循环次数循环前i值 i=10?输出结果循环后i值1 2是2 2+2=42 4是4 4+2=63 6是6 6+2=84 8是8 8+2=105 10是10 10+2=126 12否（退出循环） Private Sub Command1_Click() s =0 For i = 1 To 10 step 1 s = s + i Next i Print s=; s End Sub s=55 课堂中练：教材p52实践题：读程序，分析程序中的循环体分别被执行了多少次？其运行结果是什么？注意：循环体执行次数（终值初值）步长 For a = 1 To 10a = a + 1Print aNext a 246810 For a = 1 To 10 Print a a = a + 1Next a 13579 For的嵌套For i=1 to 5 for j=1 to 5 print i+j, next j printNext 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 = 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 Do 代码 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 循环语句，它适于知道重复次数的循环。但在许多实际问题中常常难以预先确定重复的次数，这时就不能使用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)2 0.5*2n判断条件：0.5*2n8848130 折出珠峰程序代码实现： Private Sub Command1_Click() n = 1 h=0.5 Do h = (0.5 * 2 n)或h=h*2 n = n + 1 Loop Until h 8848130 Print n - 1 End Sub