1、计算机具有速度快、精度高的特点，特别适于进行重复性的工作，重复次数越多越能显示它的威力。 循环是一组重复执行的指令，重复次数由条件决定。如果是无条件循环，循环体代码将永无休止地执行下去(即死循环)，这种情况当然应该避免。 指定循环的方法有以下两种，一是指定一个条件式，一旦表达式的值为True(或者是False)就退出循环；另一种是指定循环次数。,格式： for 循环变量=初值 to 终值 step 步长 语句块【exit for语句块】Next 循环变量 功能： 重复执行语句块，直到循环变量超出终值时结束 循环次数=,ForNext循环结构,注意： (1)循环变量应与初值、终值的数据类型一致
2、(2)步长可以是正数、也可以是负数 (3)可以是一个语句，也可以是多个语句 (4)有时在next循环变量之前会有Exit for遇到该句，退出循环 (5)若步长值为1，则Step 1可以省略,例题：比较下列两部分代码，输出结果是否相同？若不同，各是什么结果？For i = 1 To 5 For i = 1 To 5Next i Print i Print i Next i,【例1】求S = 1 + 2 + 3 + + 8 采用Print直接在窗体上输出结果，程序代码： Private Sub command1_click()s = 0 For k = 1 To 8 s = s + k Next
3、 k Print “s=“; s End Sub 程序运行结果如下： s=36,例2：编程求8！=？Private sub form_click()Dim p,i,nP=1For i= 1 to 8P=p*iNext iPrint n;”!=”;pEnd sub,重要思想： 连乘 ：t = t * c 其中t初始值一般置为1，c表示有规律的表达式 累加 ：t= t + c 其中t初始值一般为0，c表示有规律的表达式,思考： 1. 求1100的5或7的倍数的和 2.用fornext 结构来输出1100的偶数,DoLoop循环结构,若事先不知道循环次数，可以使用当型循环Do.Loop Do.Loo
4、p两种格式：前测型循环结构和后测型循环结构。两者区别在于判断条件的先后次序不同 1. 前测型Do.Loop循环 格式1： Do While 循环体 Loop Do While.Loop语句的功能： 当条件为真时，执行循环体；当条件为假时，终止循环。,格式2： Do Until 循环体 Loop Do Until.Loop(直到型循环)语句的功能： 当条件为假时，执行循环体，直到条件为真时，终止循环。,2. 后测型Do.Loop循环 语句格式如下： Do 循环体 Exit Do 在特定条件下退出循环 语句 Loop While 或者 Do 循环体 Exit Do 在特定条件下退出循环 语句 Lo
5、op Until,注意：本语句执行循环的最少次数为1，而前测型Do.Loop语句的最少次数为0(即一次都不执行循环)。举例： 用不同的循环语句编写程序求1到100的和。,方法1： 方法2： i=1 i=1 Do while i100s=s+i s=s+ii=i+1 i=i+1 Loop Loop Print s Print s,方法3： 方法4： i=1 i=1 Do Dos=s+i s=s+ii=i+1 i=i+1 Loop while i100 Print s Print s,方法5：S= 0For I = 1 TO 100S = S + INext I End Sub,例：在窗体上有两个
6、文本框和一个命令按钮，程序运行后，单击命令按钮，在两个文本框中显示的值分别为： private sub command1_click()x=0do while x50x=(x+2)*(x+3)n=n+1looptext1.text=str(n)text2.text=str(x) End sub2 72,While Wend循环：（类似于Do WhileLoop） 格式为：While Wend 执行过程：条件为True，执行循环体，遇到Wend语句后，返回到While语句并再对条件进行测试，如为True，则继续执行循环体，如为False，则退出循环体。,例1：以下程序段的输出结果是： dim y
7、 as integery=10while y0y=y-1wend print “y=“;yy=0,例2：以下程序段的输出结果是： num=0 while num=2num=num+1print num Wend123,例3：以下程序段的输出结果是： dim m as integerm=1while m=3m=m+1print m;wend234,按正序和反序输出26个大写英文字母。 提示：A的ASC码是65，数值转换为字母用chr（n）函数,上机练习,上机练习,1.s=1+22+32+42+52 2.s=1+2!+3!+4!+5!+6!+7!+8!,循环的嵌套多重循环结构如果在一个循环内完整地
8、包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。 注意： 内循环变量与外循环变量不能同名； 外循环必须完全包含内循环，不能交叉；下面是几种常见的二重嵌套形式,（1）For I=.For J=.Next JNext I,（2）For I=.Do While/Until .LoopNext I,（3）Do While.For J=.Next JLoop,（4）Do While/Until.Do While/Until .LoopLoop,正确 错误,For ii =1 To 10For jj=1 To 20 Next jjNe
9、xt ii,For ii =1 To 10Next iiFor ii =1 To 10Next ii,For ii =1 To 10For jj=1 To 20 Next ii Next jj,For ii =1 To 10For ii=1 To 20 Next ii Next ii,循环的嵌套,（例1）请看如下代码，分析结果 private sub form_click()for i=1 to 3print ”外层变量i为：” & ifor j=1 to iprint ”内层变量j为：” & jnext jnext i end sub,例2：程序运行后，单击命令按钮，在窗体上显示的内容是：p
10、rivate sub command1_click()for i=1 to 4for j=0 to iprint chr$(65+i);next jprint 提示：chr$(65)=Anext i chr$(66)=B End sub,例3.X=10:y=0For i=1 to 5 do x=x-2y=y+2loop until y5 or x-1Next I 运行此程序，do循环执行的次数是_ 答案是：3,循环结构与选择结构的嵌套,在循环结构中可以完整嵌套选择结构即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要求整个循环结构必须完整地嵌套在一个分支内，一个循环结构不允许出现在两
11、个或两个以上的分支内。,（1）For I=IF ThenEnd IFNext I,（6） IF Then For I=End IFNext I,（5）Select Case For I=Case Case Next IEnd Select,（3）For I=IF ThenNext IEnd IF,（2）IF Then For I=Next IEnd IF0,（4）For I=Select Case Case Case End SelectNext I,例：Dim b As Integer , k As Integerb = 1For k = 1 to 5b = b*kIf b = 15 Then Exit ForElseK = k + 1End ifNext kPrint k, b 运行后，结果是_ 答案是：5 15,例：将100元换成零钱（5元、10元、20元中的任意多个面值）。有多少种方法? 分析：组成100的零钱中，最多20个5元，10个10元，5个20元，判断所有组合，总共正好100元,上机练习,
