计算机基础与Visual-Basic程序设计(第三版)第七章-VisualBasic控制结构-循环结构课件

第七章VisualBasic控制结构-循环结结构在VisualBasic程序的三种结构中,循环结构是一种重要结构。循环的本质：不断地重复某种动作。对计算机程序而言，循环必须具备两个重要因素：1.在一定的条件下，重复执行一组语句2.必然出现不满足条件的情况，使循环终止第七章VisualBasic控制结构-循环结结构在Vi一、循环程序设计结构

VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。VisualBasic支持的循环结构有：☆Do…Loop☆For...Next☆While…Wend☆GoTo语句重点掌握：Do…Loop、For.Next、While…Wend等前三种循环一、循环程序设计结构VB中提供了两种类型的循环语1、Do…Loop循环结构

Do…Loop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式：

⑴.DoWhile…Loop语句⑵.Do…LoopWhile语句⑶.DoUntil…Loop语句⑷.Do…LoopUntil语句1、Do…Loop循环结构Do…Loop循环用于事先⑴.DoWhile…Loop语句语法格式：DoWhile〈条件表达式〉〈循环体〉[ExitDo]〈循环体〉LoopTF条件循环体流程图⑴.DoWhile…Loop语句TF条件循说明：①条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。②DoWhile和Loop应成对出现。③循环体中要有改变循环控制变量值的语句，以避免出现死循环。④由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环可以一次也不执行循环体。⑤ExitDo表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句，一般与If语句联用说明：（2）.Do…LoopWhile语句语法格式：

Do〈循环体〉[ExitDo]〈循环体〉LoopWhile〈条件表达式〉流程图TF条件循环体注意：①至少要执行循环体一次。②与DoWhile循环的区别：

DoWhile循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。（2）.Do…LoopWhile语句语法格式：流程图语法格式：

DoUntil〈条件表达式〉〈循环体〉[ExitDo]〈循环体〉Loop

⑶.DoUntil…Loop语句DoUntil…Loop语句流程图⑷.Do…LoopUntil语句格式：Do〈循环体〉[ExitDo]〈循环体〉

LoopUntil〈条件表达式〉TF条件循环体Do…LoopUntil语句流程图FT条件循环体语法格式：⑶.DoUntil…Loop语句DoA=val(InputBox(“请输入第1个学生成绩”)B=val(InputBox(“请输入第2个学生成绩”)C=val(InputBox(“请输入第3个学生成绩”)Avg=(A+B+C)/3PrintAvg编程：通过输入对话框输入三个学生成绩，计算成绩平均分。此程序存在问题：如果需要输入20个成绩或更多或成绩个数根本不确定，则几乎让人无法忍受A=val(InputBox(“请输入第1个学生成绩”)编程编程：通过输入对话框输入10个学生成绩，计算成绩平均分。i=1DoWhilei<=10A=val(InputBox(“请输入第1个学生成绩”)i=i+1LoopAvg=(A+B+C)/10PrintAvg思路：在前一程序的基础上作些改动，10个数据的输入过程用循环实现：让第一个输入语句循环10次思考：此程序存在哪些问题？1、输入的前面9个成绩丢失,B和C中无值2、输入对话框中的提示总是显示“第1个”编程：通过输入对话框输入10个学生成绩，计算成绩平均分。i=解决办法：1、每个输入的成绩即时累加；2、提示信息分解成三部分：“请输入第”、变量i、“个学生成绩”i=1：s=0DoWhilei<=10A=val(InputBox(“请输入第”&i&“个学生成绩”)s=s+Val(A):i=i+1LoopAvg=s/10PrintAvg解决办法：1、每个输入的成绩即时累加；2、提示信息分解成三部编程：通过输入对话框输入若干成绩，如果输入的成绩为-1，表示输入数据完毕，计算成绩平均分。s=0:n=1cj=Val(InputBox("请输入第"&n&"个成绩"))DoWhilecj<>-1s=s+cjn=n+1cj=Val(InputBox("请输入第"&n&"个成绩"))Loopavg=s/(n-1)Print"平均成绩为：";avg编程：通过输入对话框输入若干成绩，如果输入的成绩为-1，表示2、For…Next循环结构循环体ExitFor循环体循环变量增加步长循环变量获得初值FT变量在终值内?For循环的执行过程语法格式：For循环变量=初值To终值[Step步长]<循环体>[ExitFor]<循环体>Next[循环变量]2、For…Next循环结构循环体ExitFor循环体循环例题：

编程计算：S=1+2+3+…+100DimS%,i%S=0'累加前变量S为0Fori=1to100S=S+iNextiPrint"S=",SDimS%,i%说明①格式中的参数说明：☆循环变量必须为数值型。☆循环的初值、终值和步长都是数值表达式，其值不一定是整数，可以是实数，VB自动取整。其中，增量参数可正可负。如果增量为正，则初值必须小于等于终值，否则不能执行循环体内的语句；如果增量为负，则初值必须大于等于终值。如果没有设置step，则增量默认为1。

☆在For语句和Next语句之间的语句序列称为循环体，可以是一个或多个语句。☆ExitFor为强行退出循环语句。当遇到该语句时，退出循环，执行Next的下一个语句。☆Next是循环终端语句，在Next后面的循环变量与For中的循环变量必须相同。当循环是单层循环时，Next后面的循环变量可以不写。说明①格式中的参数说明：②For循环语句的执行过程是：首先把初值赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就不执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把循环变量增加步长，再赋给循环变量，重复上述过程。③当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。④循环次数由初值、终值和步长决定，计算公式为：

循环次数=INT（（终值–初值）/步长+1）⑤For语句和Next语句必须成对出现，不能单独使用。⑥如果要在循环变量到达终值前退出循环，可用ExitFor语句来实现。该语句可以在For循环中出现多次，且位置不限。⑦在循环体中可以使用循环变量，但一般不再对循环变量赋值。②For循环语句的执行过程是：首先把初值赋给循环变量，接着功能：当While的条件表达式的值是True时执行循环体内的代码，直到While后的条件表达式的值为False。说明：它与Do…Loop语句的差别是：While…Wend语句中不能使用Exit语句跳出循环。语法格式：While(条件表达式）等价于doWhile（条件表达式）循环体循环体WendLOOP3、While…Wend循环结构功能：当While的条件表达式的值是True时执行循环体内的二、循环的嵌套——多重循环结构1、如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，2、嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：二、循环的嵌套——多重循环结构1、如果在一个循环内完整地包含（1）ForI=….…..ForJ=….….NextJ…..NextI（2）ForI=….…..DoWhile/Until….….Loop…..NextI（3）DoWhile….…..ForJ=….….NextJ…..Loop（4）DoWhile/Until….…..DoWhile/Until….….Loop…..Loop（1）ForI=….（2）ForI=….（3）Do例题：打印九九乘法表.

Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNexti例题：打印九九乘法表.对于循环的嵌套，要注意以下事项：(1)内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；(3)不能从循环体外转向循环体内，也不能从外循环转向内循环.

正确 错误

Fori=1To10Forj=1To20… Nexti NextjFori=1To10Forj=1To20… NextjNextiFori=1To10…NextiFori=1To10…NextiFori=1To10Fori=1To20… Nexti Nexti对于循环的嵌套，要注意以下事项：For三、几种循环语句比较三、几种循环语句比较第七章VisualBasic控制结构-循环结结构在VisualBasic程序的三种结构中,循环结构是一种重要结构。循环的本质：不断地重复某种动作。对计算机程序而言，循环必须具备两个重要因素：1.在一定的条件下，重复执行一组语句2.必然出现不满足条件的情况，使循环终止第七章VisualBasic控制结构-循环结结构在Vi一、循环程序设计结构

VB中提供了两种类型的循环语句：一种是计数循环语句；另一种是条件循环语句。VisualBasic支持的循环结构有：☆Do…Loop☆For...Next☆While…Wend☆GoTo语句重点掌握：Do…Loop、For.Next、While…Wend等前三种循环一、循环程序设计结构VB中提供了两种类型的循环语1、Do…Loop循环结构

Do…Loop循环用于事先不知道循环次数的循环结构。此种语句四种语法格式：

⑴.DoWhile…Loop语句⑵.Do…LoopWhile语句⑶.DoUntil…Loop语句⑷.Do…LoopUntil语句1、Do…Loop循环结构Do…Loop循环用于事先⑴.DoWhile…Loop语句语法格式：DoWhile〈条件表达式〉〈循环体〉[ExitDo]〈循环体〉LoopTF条件循环体流程图⑴.DoWhile…Loop语句TF条件循说明：①条件表达式可以是一个逻辑表达式，也可以是一个关系表达式，其值应是逻辑型。②DoWhile和Loop应成对出现。③循环体中要有改变循环控制变量值的语句，以避免出现死循环。④由于该循环的特点是先判断条件，然后再决定是否要执行循环体里的语句。所以，这种循环可以一次也不执行循环体。⑤ExitDo表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句，一般与If语句联用说明：（2）.Do…LoopWhile语句语法格式：

Do〈循环体〉[ExitDo]〈循环体〉LoopWhile〈条件表达式〉流程图TF条件循环体注意：①至少要执行循环体一次。②与DoWhile循环的区别：

DoWhile循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。（2）.Do…LoopWhile语句语法格式：流程图语法格式：

DoUntil〈条件表达式〉〈循环体〉[ExitDo]〈循环体〉Loop

⑶.DoUntil…Loop语句DoUntil…Loop语句流程图⑷.Do…LoopUntil语句格式：Do〈循环体〉[ExitDo]〈循环体〉

LoopUntil〈条件表达式〉TF条件循环体Do…LoopUntil语句流程图FT条件循环体语法格式：⑶.DoUntil…Loop语句DoA=val(InputBox(“请输入第1个学生成绩”)B=val(InputBox(“请输入第2个学生成绩”)C=val(InputBox(“请输入第3个学生成绩”)Avg=(A+B+C)/3PrintAvg编程：通过输入对话框输入三个学生成绩，计算成绩平均分。此程序存在问题：如果需要输入20个成绩或更多或成绩个数根本不确定，则几乎让人无法忍受A=val(InputBox(“请输入第1个学生成绩”)编程编程：通过输入对话框输入10个学生成绩，计算成绩平均分。i=1DoWhilei<=10A=val(InputBox(“请输入第1个学生成绩”)i=i+1LoopAvg=(A+B+C)/10PrintAvg思路：在前一程序的基础上作些改动，10个数据的输入过程用循环实现：让第一个输入语句循环10次思考：此程序存在哪些问题？1、输入的前面9个成绩丢失,B和C中无值2、输入对话框中的提示总是显示“第1个”编程：通过输入对话框输入10个学生成绩，计算成绩平均分。i=解决办法：1、每个输入的成绩即时累加；2、提示信息分解成三部分：“请输入第”、变量i、“个学生成绩”i=1：s=0DoWhilei<=10A=val(InputBox(“请输入第”&i&“个学生成绩”)s=s+Val(A):i=i+1LoopAvg=s/10PrintAvg解决办法：1、每个输入的成绩即时累加；2、提示信息分解成三部编程：通过输入对话框输入若干成绩，如果输入的成绩为-1，表示输入数据完毕，计算成绩平均分。s=0:n=1cj=Val(InputBox("请输入第"&n&"个成绩"))DoWhilecj<>-1s=s+cjn=n+1cj=Val(InputBox("请输入第"&n&"个成绩"))Loopavg=s/(n-1)Print"平均成绩为：";avg编程：通过输入对话框输入若干成绩，如果输入的成绩为-1，表示2、For…Next循环结构循环体ExitFor循环体循环变量增加步长循环变量获得初值FT变量在终值内?For循环的执行过程语法格式：For循环变量=初值To终值[Step步长]<循环体>[ExitFor]<循环体>Next[循环变量]2、For…Next循环结构循环体ExitFor循环体循环例题：

编程计算：S=1+2+3+…+100DimS%,i%S=0'累加前变量S为0Fori=1to100S=S+iNextiPrint"S=",SDimS%,i%说明①格式中的参数说明：☆循环变量必须为数值型。☆循环的初值、终值和步长都是数值表达式，其值不一定是整数，可以是实数，VB自动取整。其中，增量参数可正可负。如果增量为正，则初值必须小于等于终值，否则不能执行循环体内的语句；如果增量为负，则初值必须大于等于终值。如果没有设置step，则增量默认为1。

☆在For语句和Next语句之间的语句序列称为循环体，可以是一个或多个语句。☆ExitFor为强行退出循环语句。当遇到该语句时，退出循环，执行Next的下一个语句。☆Next是循环终端语句，在Next后面的循环变量与For中的循环变量必须相同。当循环是单层循环时，Next后面的循环变量可以不写。说明①格式中的参数说明：②For循环语句的执行过程是：首先把初值赋给循环变量，接着检查循环变量的值是否超过终值，如果超过就不执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把循环变量增加步长，再赋给循环变量，重复上述过程。③当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。④循环次数由初值、终值和步长决定，计算公式为：

循环次数=INT（（终值–初值）/步长+1）⑤For语句和Next语句必须成对出现，不能单独使用。⑥如果要在循环变量到达终值前退出循环，可用ExitFor语句来实现。该语句可以在For循环中出现多次，且位置不限。⑦在循环体中可以使用循环变量，但一般不再对循环变量赋值。②For循环语句的执行过程是：首先把初值赋给循环变量，接着功能：当While的条件表达式的值是True时执行循环体内的代码，直到While后的条件表达式的值为False。说明：它与Do…Loop语句的差别是：While…Wend语句中不能使用Exit语句跳出循环。语法格式：While(条件表达式）等价于doWhile（条件表达式）循环体循环体WendLOOP3、While…Wend循环结构功能：当While的条件表达式的值是True时执行循环体内的二、循环的嵌套——多重循环结构1、如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，2、嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：二、循环的嵌套——多重循环结构1、如果在一个循环内完整地包含（1）ForI=….…..ForJ=….….NextJ…..NextI（2）ForI=….…..DoWhile/Until….….Loop…..NextI（3）DoWhile….…..ForJ=….….NextJ…..Loop（4）DoWhile/Until….