1、10:386.2 循环结构程序设计10:38Print “你好你好“Print 你好你好“Print 你好你好“Print 你好你好“Print 你好你好“Print 你好你好“Print 你好你好“Print 你好你好“100次10:38，Print 你好你好“10:3810:3810:386.2.1 用ForNext语句实现循环nFor 循环变量循环变量=初始值初始值 To 终止值终止值 Step 步长步长循环体循环体Exit For Next 循环变量循环变量n说明说明n循环变量：亦称为循环控制变量，必须为数值型。循环变量：亦称为循环控制变量，必须为数值型。n初值、终值：都是数值型，可以
2、是数值表达式。初值、终值：都是数值型，可以是数值表达式。n 步长：循环变量的增量，是一个数值表达式。一般来说，步长：循环变量的增量，是一个数值表达式。一般来说，步长为步长为正，初始值应小于终止值；若为负，初始值应大于终止值。步长不正，初始值应小于终止值；若为负，初始值应大于终止值。步长不能是能是0。如果步长是。如果步长是1，Step 1可略去不写。可略去不写。n 循环变量的值是自动改变的，不要人为改变，否则会出错。循环变量的值是自动改变的，不要人为改变，否则会出错。n For跟跟Next必须成对出现。必须成对出现。Next后面的循环变量与后面的循环变量与For语句中的循语句中的循环变量必须相同
3、。环变量必须相同。nExit For用于：当需要无条件跳出循环时用于：当需要无条件跳出循环时n循环次数：循环次数：Int(（终值（终值-初值）初值）/步长步长+1)例子说明10:3810:38nFor循环结构执行过程循环结构执行过程10:3810:38返回10:3810:38题题2:a=0For i=1 to 10 step 1 a=a+1 print aNext i以上循环体执行次数为以上循环体执行次数为?13打开程序打开程序10:38Private Sub Command1_Click()Dim N,i As Integer i为循环变量 Dim sum As Long N=Text1.T
4、ext sum=0 For i=1 To N sum=sum+i Next i Text2.Text=sumEnd SubPrivate Sub Command2_Click()Text1.Text=Text2.Text=Text1.SetFocusEnd Sub例例6-6：求：求1+2+3+n的值，的值，n从键盘输入。从键盘输入。思考：若改为思考：若改为1*2*N，如何实现？，如何实现？例例6-6程序程序10:386.2.2 While Wend 循环结构n循环语句必须包含的三部分内容循环语句必须包含的三部分内容n循环初始条件循环初始条件n终止条件终止条件n循环体循环体nWhileWend实
5、现循环实现循环n语法：语法：While 条件条件语句块（循环体）语句块（循环体）Wend10:38循环的初始条件循环的终止条件循环体10:3810:38求求20002000年我国有人口年我国有人口1313亿亿,按人口年按人口年增长率增长率0.8%0.8%计算计算,多少年后我国人口超过多少年后我国人口超过2626亿亿?10:38例例6-9程序程序10:386.2.3 DoLoop语句实现循环Do循环语句的格式循环语句的格式:Do 循环体循环体 LoopDo Loop通常会与通常会与While或或Until语句合用，组成当循环或直语句合用，组成当循环或直到型循环到型循环n当型循环当型循环n当条件表
6、达式为当条件表达式为True时执行时执行循环，为循环，为False时退出循环时退出循环n关键字为关键字为while条件循环体FalseTrue这是最简单的这是最简单的Do循环格式循环格式,这种结构没有任这种结构没有任何条件何条件,循环将无休止地进行下去循环将无休止地进行下去,除非循环除非循环体内包含有控制语句体内包含有控制语句(如如Exit do等等)n直到型循环直到型循环n执行循环，直到条件表达式执行循环，直到条件表达式的值为的值为True时才结束循环时才结束循环n关键字为关键字为until条件循环体FalseTrue10:3810:38n当型循环当型循环Do While 条件条件循环体循环
7、体 LoopDo 循环体循环体 Loop while 条件条件n直到型循环直到型循环Do Until 条件条件循环体循环体 Loop Do 循环体循环体 Loop Until 条件条件注意：使用注意：使用For实现的循环，循环的次数事先已知，而实现的循环，循环的次数事先已知，而do loop(while或或until)实现的循环次数事先未知实现的循环次数事先未知条件循环体FalseTrue条件循环体TrueFalse条件循环体FalseTrue条件循环体TrueFalse10:38例例6-10：改用：改用Do语句实现例语句实现例6-9Private Sub Form_Click()Dim x
8、As Double,N As Integer x=13 N=0 Do While x=26 N=N+1 x=x*1.008 Loop Print N;xEnd Sub课外作业：请大家用上页的其他三种类型改写该程序10:38例例 27 36 M N r 36 27 9 27 9 0 10:3810:38M=val(text1.text)N=val(text2.text)If mn then temp=m m=n n=tempEnd if10:3810:3810:386.2.4循环的嵌套n循环循环的嵌套是指一个的嵌套是指一个循环体内完整地包括了另循环体内完整地包括了另一个循环。一重循环套一重为二重
9、循环，如果一个循环。一重循环套一重为二重循环，如果二重循环的内循环中又包含一个循环，则称为二重循环的内循环中又包含一个循环，则称为三重循环，依此类推。三重以上的可称为多重三重循环，依此类推。三重以上的可称为多重循环。（循环语句还可以与条件语句的嵌套）循环。（循环语句还可以与条件语句的嵌套）n注意：注意：n使用几个使用几个For循环嵌套时要注意使用不同的变量名循环嵌套时要注意使用不同的变量名nFor循环和循环和Do可以混合嵌套，但是各循环间不得交叉。可以混合嵌套，但是各循环间不得交叉。下例是下例是非法非法的循环嵌套。的循环嵌套。For IFor JNext INext J就和我们一层层就和我们一
10、层层的包裹东西是一的包裹东西是一样的！样的！10:38Do ForDo Loop NextLoop二重循环二重循环三重循环三重循环n正确的循环为：正确的循环为：10:38nDoFor I=1 to 10 for I=1 to 10 Do Exit Do Exit for next I Loop LoopNext In例例2.25打印九九乘法表打印九九乘法表10:38n循环结构程序思考题1.1.找出所有小于找出所有小于5050的正整数中等于的正整数中等于7 7的倍数的数的倍数的数2.2.用用“*”输出一个倒三角形输出一个倒三角形3.3.在窗体上打印如下图形在窗体上打印如下图形4.4.今有物不知其数：三三数之余二，五五数之余三，今有物不知其数：三三数之余二，五五数之余三，七七数之余二，问物几何七七数之余二，问物几何?(?(假设在假设在100100以内以内)
