程序的循环结构上.pptVIP

代码 s = 0 n = 2 For i = 1 To 10 Step 1 s = s + 1 / n n = n + 2 Next i Print s y = 1 / 2 + 1 / 4 + 1 / 6 + 1 / 8 + 1 / 10 + 1 / 12 + 1 / 14 + 1 / 16 + 1 / 18 + 1 / 20 Print y 程序的循环结构 For语句 引入 怎样在屏幕上依次输出10以内的所有偶数？ 循环体 Print i 初值：i=2（循环变量用i表示） 输出数据：i 循环体： i=i+2 Print i 条件：i=10 程序代码 Private Sub Command1_Click() For i = 2 To 10 Step 2 Print i Next i End Sub 执行过程 Private Sub Command1_Click() s =0 For i = 1 To 10 step 1 s = s + i Next i Print s=; s End Sub 课堂中练： 教材p52　实践题： 读程序，分析程序中的循环体分别被执行了多少次？其运行结果是什么？ 注意：循环体执行次数＝（终值－初值）／步长＋１ For a = 1 To 10 a = a + 1 Print a Next a For a = 1 To 10 Print a a = a + 1 Next a For的嵌套 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 = 0 n = 2 For i = 1 To 10 Step 1 s = s + 1 / n n = n + 2 Next i Print s y = 1 / 2 + 1 / 4 + 1 / 6 + 1 / 8 + 1 / 10 + 1 / 12 + 1 / 14 + 1 / 16 + 1 / 18 + 1 / 20 Print 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循环的语句，使得循环更加灵活方便。 实践1 已知S=1+2+3+……+N，找出一个最大的整数N，使得S30000。编写程序解决这个问题。 Private Sub Command1_Click() s = 1 n = 1 Do n = n + 1 s = s + n Loop Until s = 30000 Print n-1 End Sub 课堂实践： 利用计算机计算出手折出珠峰高度需要的次数！ 想一想， 让珠峰在你手中生成！ 假设一张纸足够长，纸厚度为0.5毫米，问重叠几次后的厚度大于珠穆琅玛峰的高度（8848.13m） 折出珠峰程序代码实现： 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 * Do 语句 Print 2 Print 4 Print 6 Print 8 Print 10 如果要依次输出100甚至1000以内的所有偶数，应该怎么办？ Print 2 输出10以内的偶数 i=i+2 Print 2 Print 4 Print 6 Print 8 Print 10 For 循环语句的基本格式 For 循环变量=初值 To 终值 Step 步长 语句组（循环体） Next 循环变量 循环变量=初值 循环变量超过终值 执行循环体 循环变量增加一个步长值 否 是 i=2 i10 i=i+2 否 是 输出i 开始 结束 （退出循环） 否 12 6 10+2=12 10 是 10 5 8+2=10 8 是 8 4 6+2=8 6 是 6 3 4+2=6 4 是 4 2 2+2=4 2 是 2