24程序的循环结构 (2)

1、2.4 程序的循环结构程序的循环结构问题1怎样在屏幕上依次输出10以内的偶数？如果依次输出100至200以内的所有偶数呢？Print 2Print 4Print 6Print 8Print 10VBVB提供多种实现循环结构的语句提供多种实现循环结构的语句1 1、 FORFOR循环结构循环结构 2 2、DODO循环结构循环结构 For循环语句循环语句依次输出100至200以内的所有偶数Private Sub Command1_Click()Dim i As IntegerFor i = 100 To 200 If i Mod 2 = 0 Then Print iNext iEnd Sub基本格式

2、： for 循环变量循环变量=初值初值 to 终值终值 step 步长步长 语句组语句组 Next 循环变量循环变量计数循环循环体循环体Private Sub Command1_Click()i = 100Do Print i i = i + 2Loop Until i 200End SubFor循环语句循环语句循环变量循环变量=初值初值循环变量超过终值循环变量超过终值执行循环体执行循环体循环变量循环变量=循环变量循环变量+步长步长FTFor循环语句循环语句（1）修改“输出100至200以内的偶数”For i = 100 To 200 Step 2 Next is = 0For i = To

3、s = Next iPrint s（2）输出s=1+2+3+100的值练习：输入正整数n,求s=n!的值(n!=1*2*3*n) 求s=2+4+6+100的值For循环语句循环语句2.4 程序的循环结构程序的循环结构Do循环语句格式格式1：Do while 循环条件循环条件 循环体循环体 Loop格式格式2：Do 循环体循环体 Loop until 终止条件终止条件条件条件循环体循环体TFFor循环语句循环语句陈婷今年17岁了，今年植树节老师带同学们到公园里植树。陈婷很高兴，一个人栽了3棵树。陈婷决定从明年开始植树节都去植树，并且每一年都要比前一年多栽一棵，这样下去，到多少岁时才能累计种到或超

4、过100棵树呢？分析问题：设年龄为age，种树总数为s，则： s=3+4+5+（其中age=17，18，19）设计算法：令s=3, age=17 age=age+1 s=s+age-14 (s100)2.4 程序的循环结构程序的循环结构练习假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为止（珠穆朗玛峰的高度为8848.13米），求对折纸张的次数。编写程序解决这个问题。循环的嵌套2.4 程序的循环结构程序的循环结构在一个循环语句中含有另一个循环语句在一个循环语句中含有另一个循环语句,这就形成了这就形成了嵌套循环嵌套循环,又叫做多重循环又叫

5、做多重循环. 注意：多重循环的原则是注意：多重循环的原则是:外层循环与内层循环必外层循环与内层循环必须层层相套须层层相套,循环体之间不能交叉循环体之间不能交叉.For i = 1 To 5 For j = 1 To 10 Print i + j Next jNext iFor i = 1 To 5 For j = 1 To 10 Print i + j Next iNext j循环的嵌套2.4 程序的循环结构程序的循环结构例：学校对例：学校对10位同学进行了一次测验位同学进行了一次测验,测验的科目分测验的科目分别为：语文、数学、英语和综合，现要求出这别为：语文、数学、英语和综合，现要求出这10

6、位同学的总分，请编写一程序解决。位同学的总分，请编写一程序解决。分析：连续输入10位同学的4科成绩，一个循环控制学生的个数（10位），一个循环控制输入4个科目成绩，在输入成绩时求和。2.4 程序的循环结构程序的循环结构二、循环的嵌套For i=1 to 10 s=0 for j=1 to 4 f=inputbox(“f”) s=s+f next j print s Next i依次输入4科成绩，并求和控制学生个数。输出总成绩后，下一位同学思考：思考：如果是要输出每位同学各自的平均分，程序又应该如何修改？Ave=s/42.4 程序的循环结构程序的循环结构练习应用（穷举法），水仙花数：当一个三位数其各位数字的立方和刚好等于它本身，如： ，153就是水仙花数。编写一程序求出所有的水仙花数。分析：用穷举法解决。用a,b,c分别表示三位数的百、十、个位，这样a:19,b:09,c:09，步长都是1，对a,b,c逐个取值，用X表示各位数字的立方和，Y表示数本身，然后判断是否满足条件X=Y，如果满足，则Y就是水仙花数。2.4 程序的循环结构程序的循环结构Private Sub Command1_Click()For a = To