第9周课件 循环语句.ppt

格式： for 循环变量=初值 to 终值 [ step 步长 ] 语句块 【exit for 语句块】 Next 循环变量 功能： 重复执行语句块，直到循环变量超出终值时结束 循环次数= 注意： (1)循环变量应与初值、终值的数据类型一致 (2)步长可以是正数、也可以是负数 (3)可以是一个语句，也可以是多个语句 (4)有时在next循环变量之前会有Exit for… 遇到该句，退出循环 (5)若步长值为1，则Step 1可以省略 例题：比较下列两部分代码，输出结果是否相同？若不同，各是什么结果？ For i = 1 To 5 For i = 1 To 5 Next i Print i Print i Next i 例2：编程求8！=？ Private sub form_click() Dim p,i,n P=1 For i= 1 to 8 P=p*i Next i Print n;”!=”;p End sub 重要思想： 连乘 ：t = t * c 其中t初始值一般置为1，c表示有规律的表达式 累加 ：t= t + c 其中t初始值一般为0，c表示有规律的表达式 思考： 1. 求1～100的5或7的倍数的和 2.用for…next 结构来输出1~100的偶数 格式2： Do Until 条件 循环体 Loop Do Until...Loop(直到型循环)语句的功能： 当条件为假时，执行循环体，直到条件为真时，终止循环。 2. 后测型Do...Loop循环 语句格式如下： Do 循环体 [Exit Do] 在特定条件下退出循环 [语句] Loop While条件 或者 Do 循环体 [Exit Do] 在特定条件下退出循环 [语句] Loop Until条件 注意：本语句执行循环的最少次数为1，而前测型Do...Loop语句的最少次数为0(即一次都不执行循环)。 举例： 用不同的循环语句编写程序求1到100的和。 方法1： 方法2： i=1 i=1 Do while i=100 Do until i100 s=s+i s=s+i i=i+1 i=i+1 Loop Loop Print s Print s 方法3： 方法4： i=1 i=1 Do Do s=s+i s=s+i i=i+1 i=i+1 Loop while i=100 Loop until i100 Print s Print s 方法5： S= 0 For I = 1 TO 100 S = S + I Next I End Sub 例：在窗体上有两个文本框和一个命令按钮，程序运行后，单击命令按钮，在两个文本框中显示的值分别为： private sub command1_click() x=0 do while x50 x=(x+2)*(x+3) n=n+1 loop text1.text=str(n) text2.text=str(x) End sub 2 72 While …Wend循环：（类似于Do While…Loop） 格式为：While 条件 循环体 Wend 执行过程：条件为True，执行循环体，遇到Wend语句后，返回到While语句并再对条件进