24程序的循环结构（二）

1For For = = To To Step Step Next Next 循环变量循环变量= =初值初值执行循环体（语句组）执行循环体（语句组）循环变量增加一个步长循环变量增加一个步长是是否否循环变量超过终值 Dim i As Integer Dim s As Integer s=0 For i=1 To 5 Step 1 s=s+i Next i Print s=;s i s Next i 1 1（0+1） 2 2 3 （1+2） 3 3 6 （3+3） 4 4 10 （6+4） 5 5 15 （10+5） 6累加器：s=s+i(一般s的初值为0)例1 阅读程序，分析结果 Dim i As Integer Dim t As Integer t=1 For i=1 To 5 Step 1 t=t*i Next i Print t=;t i t Next i 1 1（1*1） 2 2 2 （1*2） 3 3 6 （2*3） 4 4 24 （6*4） 5 5 120 （24*5） 6累乘器：t=t*i(一般t的初值为1)例2 阅读程序，分析结果例3 编程计算s=1+3+5+99（计算1100之间的 奇数和）一、分析问题：一、分析问题： 设循环变量为设循环变量为i,i, s s计算累加和。计算累加和。二、设计算法：二、设计算法：三、编写程序：三、编写程序：ClsDim i As Integer, s As Integers=0For i=1 To 100 Step 2 s=s+iNext IPrint s=;s四、调试程序四、调试程序1.1.循环变量循环变量“超过超过”终值的含义：终值的含义：2.For2.For循环的循环体执行次数：循环的循环体执行次数：3.3.累加器：累加器：s=s=s+is+i( (一般一般s s的初值为的初值为0)0)4.4.累乘器：累乘器：t=tt=t* *i i( (一般一般t t的初值为的初值为1)1)1.编程计算1100之间的偶数和。 （参考答案：2550）2.编程计算s=100+90+80+10。 (参考答案：550）1 1、编程打印出所有的、编程打印出所有的“水仙花数水仙花数”。一、分析问题：一、分析问题： “水仙花水仙花”数是一个三位整数，它的数是一个三位整数，它的百位百位a a，十位，十位b b，个位，个位c c，s s= =a3 a3 + + b3 b3 + + c3c3，若，若s=s=i i，则是水仙花数，否则不是水仙花数。，则是水仙花数，否则不是水仙花数。二二、设计算法：、设计算法：三、编写程序：三、编写程序：Dim i As Integer, s As IntegerDim a As Integer, b As Integer, c As IntegerFor i=100 To 999 a=i100 b=i10 Mod 10 c=i Mod 10 s=a3+b3+c3 If s=i Then Print I End IfNext i四、调试程序四、调试程序如：如：153= 13 + 53 + 33153= 13 + 53 + 33