1、2.4 程序的循环结构 掌握For循环语句的基本格式 理解For循环语句的执行过程 掌握循环变量在执行过程中的变化情况 能用For循环结构编写简单的程序 实例1、编程求1+2+3+10的和 按照顺序结构编写程序如下：Private Sub Command1_Click()dim s as integers=0 s=s+1 s=s+2 s=s+10print send sub用这种方法能不能编程求出1+2+3+100的和，1+2+3+1000的和？实际这10条赋值语句在重复着同一个操作，都是将将s加一个数加一个数和赋给和赋给s,如果用变量x表示每一个加数，那么这10条语句就可以用一条表示：s=s
2、+x，然后让x的取值分别为1到10这10个自然数，重复执行这条语句，就可以实现该程序的编写。这就要用到循环结构。2.4.1 用用ForNext语句建立循环结构语句建立循环结构 用循环语句编写：Private Sub Command1_Click()Dim s as integer,x as integerS=0 For X=1 to 10 step 1 S=S+X next Xprint SEnd sub循环变量循环变量初值初值 终值终值步长步长循环体循环体1、For next循环语句的格式：用于建立已知循环次数的循环结构For 循环变量=初值 To 终值 Step 步长 循环体Next 循环
3、变量2、For循环语句的功能：执行For语句：先将初值赋给循环变量，并记住终值和步长（两数间隔）。然后进行判断，是否超出终值？如“超出”终值时，执行 Next 下一语句，否则执行循环体。执行循环体 执行Next语句：循环变量加步长，返回重新判断 2.4.2 For循环语句的执行过程 开 始 0S 1X X=10 S+XS X+1X 输出 S 结 束 Y N 练一练练一练针对for循环语句的语句格式，设置如下练习，指出下面程序中的错误:1、求1+2+3+4+5的和 s=0for i=1 to 5 step 1s=s+inext jprint s 2、在VB窗体界面上输出110这10个自然数for
4、 I=1 to 10print i j-i循环变量的名称要相同。For语句与Next语句必须成对出现，而且仅只步长为1时，才可以省略 step 1 3、求5+4+3+2+1的和s=0for I=5 to 1s=s+Inext Iprint s4、求7+5+3+1的和：S=0For I=7 to 1 Step 2S=S+INext IPrint S 当初值小于终值时，步长为正数；当初值大于终值时，步长为负数；补充：1、循环变量必须为数值型，初值、终值：都是数值型，可以是数值表达式。2、循环体：在For语句和Next语句之间的语句序列。可以是一条语句，也可以是多条语句。Step 12问题2 求 S
5、=1+2+100和值 分析 a、用循环产生 1100 的自然数 b、每产生一个自然数将其累加到求和变量中 即：S=S+N c、重复执行 S=S+N 即：循环体 d、打印和的值的语句应在程序的末尾 即：Print S=1+2+1000=;S程序：Private Sub Command1_Click()Dim N as integer,S as integer S=0 For N=1 To 100 S=S+N Next N Print S=1+2+100=;S End Sub 问题3：一小球从 200 米高度自由下落，每次落地后反弹为原来高度的一半，然后再落下，求该小球第十次落地时共经过了多少米的
6、路程？分析：分析：设设 S 表示小球经过的路程变量表示小球经过的路程变量 S=S+2H H 表示小球反跳的高度变量表示小球反跳的高度变量 H=H/2 I 表示小球落地的次数变量表示小球落地的次数变量 I=2 To 10Private Sub Command1_Click()Dim H as integer,S as integer,I as integer S=200 H=S/2 For I=2 To 10 S=S+2*H H=H/2 Next I Print 到第十次落地共经过的路程是：;S;米 end sub问题3：一小球从 200 米高度自由下落，每次落地后反弹为原来高度的一半，然后再落
7、下，求该小球第十次落地时共经过了多少米的路程？分析：分析：设设 S 表示小球经过的路程变量表示小球经过的路程变量 S=S+H H 表示小球反跳的高度变量表示小球反跳的高度变量 H=H/2 I 表示小球落地的次数变量表示小球落地的次数变量 I=2 To 10Private Sub Command1_Click()Dim H as integer,S as integer,I as integer S=200 H=S/2 For I=2 To 10 S=S+2*H H=H/2 Next I Print 到第十次落地共经过的路程是：;S;米 end subPrivate Sub Command1_C
8、lick()Dim S as integer,I as integerS=200For I=2 To 10S=S+200*2*(0.5(I-1)Next I Print 到第十次落地共经过的路程是：;S;米end sub问题4：一小球从 200 米高度自由下落，每次落地后反弹为原来高度的一半，然后再落下，求该小球多少次落地时经过的路程大于600米呢？Private Sub Command1_Click()Dim S as integer,I as integer S=200 I=2 do while S600 Print “到“;I;”次时落地经过的路程是超过600米 end sub2.4.4
9、 用用 Do 语句建立循环结构语句建立循环结构 1、Do 语句的功能：用于建立循环语句的功能：用于建立循环次数未知次数未知的循环结构的循环结构2、Do 语句的格式：语句的格式：格式一（当循环）格式一（当循环）Do While 循环体循环体 Loop功能：执行功能：执行 Do 语句先判断条件，当条件满足，则执行循环体，然后执行语句先判断条件，当条件满足，则执行循环体，然后执行 Loop 语句就回到语句就回到 Do While 再判断，直到条件不满足，再判断，直到条件不满足，跳出循环，执行跳出循环，执行 Loop 下一语句。下一语句。S0N0Do While N=10 S=S+1 N=N+1 Lo
10、opDo 语句的第二种格式（直到循环）语句的第二种格式（直到循环）1、直到形循环格式直到形循环格式 Do 循环体循环体 Loop while 2、格式二功能：执行格式二功能：执行 Do 语句，就进入循环，直接执行循环体，在判断条件，当条件满足，回到上面执行循环体，直到条件不语句，就进入循环，直接执行循环体，在判断条件，当条件满足，回到上面执行循环体，直到条件不满足，跳出循环，执行满足，跳出循环，执行 Loop 下一语句。下一语句。S=0 N=0 Do N=N+1 S=S+N Loop while N 100三种循环求解 S=1+2+100和值 Private Sub Command1_Clic
11、k()Dim N As integer,S As integer S=0 For N=1 To 100 S=S+N Next N Print“S;S End SubPrivate Sub Command1_Click()Dim s As Integer,n As Integers=0n=0Do While n 100)print SEnd subP12 实践（1）“猴子摘桃”Private Sub Command1_Click()Dim day As Integer,S As Integer S=1For day=9 To 1 Step-1S=(S+1)*2Next dayPrint s=;S
12、End Sub猴子吃桃：每次吃掉一半多一个，直到第10天只剩一个，第一天共摘了多少个桃子？问题8 要将100元的钞票换成等值的10元、5元、2元、1元的小钞票。要求每次换成40张小钞票，每种至少一张，有多少种换法？分析：10元一张最多能换9张，5元一张最多能换17张，2元一张最多能换37张，一元只要用40减去10、5、2元的数目就可以了！Dim i As Integer,j As Integer,k As Integer,m As Integer,sum As Integer sum=0For i=1 To 9 For j=1 To 17 For k=1 To 37 m=40-i-j-k If
13、(m=1)And(i*10+j*5+k*2+m=100)Then sum=sum+1 Print i=;i,j=;j,k=;k,m=;m End IfNext kNext jNext iPrint sum=;sumEnd Sub 2.4.5 循环语句嵌套的定义循环语句嵌套的定义双重循环语句：在循环体内含有另一个循环语句的结构双重循环语句：在循环体内含有另一个循环语句的结构如如:For 循环变量循环变量1=初值初值 To 终值终值 Step 步长步长 For 循环变量循环变量2=初值初值 To 终值终值 Step 步长步长 循环体循环体 Next 循环变量循环变量2 Next 循环变量循环变量1
14、多重循环：如循环体内再包含循环结构，我们将这种循环结构称作多重循环。多重循环：如循环体内再包含循环结构，我们将这种循环结构称作多重循环。多重循环的原则是多重循环的原则是:外层循环与内层循环必须层层相套，循环体之间不能交叉。每个循环必须有一个唯一的循环控制变量。外层循环与内层循环必须层层相套，循环体之间不能交叉。每个循环必须有一个唯一的循环控制变量。问题5 求解 1 2+3 4+99100 Private Sub Command1_Click()Dim i As integer,S As integer S=0 For i=1 To 100 s=s+(-1)(i+1)*i Next iPrint
15、“S;S End SubPrivate Sub Command1_Click()Dim i As integer,S As integer S=0For i=1 To 100 If i Mod 2=0 Then s=s i Else s=s+i End IfNext i Print“S;S End Sub问题6 1-1/2+1/3 1/4+1/99 1/100Private Sub Command1_Click()Dim i As integer,S As integer S=0 For i=1 To 100 s=s+(-1)(i+1)*(1/i)Next iPrint“S;S End Sub问题7 求 11000之间的素数 素数是指只能被1和他本身整除的数要判断一个数i是否为素数，只要看i是否能被2到i1范围内的数整除，若能被整除，则不是素数。Private Sub Command1_Click()Dim i As Integer,j As Integer Dim prime As Boolean For i=2 To 1000 prime=True j=2 Do While(j i)And prime If(i Mod j=0)Then prime=False j=j+1 Loop If prime Then Print i;i Next i End Sub
