(9.8)--WHILE-WEND循环与循环的嵌套其他辅助控制语句.ppt

第第4 4章章 控制结构控制结构4.3 4.3 循环结构循环结构4.3.3 While4.3.3 WhileWendWend循环循环格式：格式：While 循循环体体 Wend 其中，其中，“表达式表达式”可以是关可以是关系表达式、系表达式、逻辑表达式，也可表达式，也可以是数以是数值表达式。表达式。F FT T表达式表达式表达式表达式循环体循环体循环体循环体流程图：流程图：例例4.11 4.11 计算计算n!n!的值。的值。功能：当功能：当“表达式表达式”的值为的值为TrueTrue或非或非0 0时，时，执行循环体，然后执行执行循环体，然后执行WendWend，直接返回到，直接返回到WhileWhile处，再次检查处，再次检查“表达式表达式”的值，如果的值，如果“表达式表达式”的值还为的值还为TrueTrue或非或非0 0，继续执行，继续执行循环体。如果为循环体。如果为FalseFalse或或0 0，则退出循环，执，则退出循环，执行行WendWend后面的语句。后面的语句。4.3.4 4.3.4 循环循环循环循环的嵌套的嵌套的嵌套的嵌套多重循环结构多重循环结构多重循环结构多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称如果在一个循环内完整地包含另一个循环结构，则称如果在一个循环内完整地包含另一个循环结构，则称如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环嵌套一层称为二重循环，嵌套二层称为三重循环嵌套一层称为二重循环，嵌套二层称为三重循环嵌套一层称为二重循环，嵌套二层称为三重循环。外循环变量每改变一个值，内循环完整地循环一外循环变量每改变一个值，内循环完整地循环一外循环变量每改变一个值，内循环完整地循环一外循环变量每改变一个值，内循环完整地循环一遍。遍。遍。遍。4.3 4.3 循环结构循环结构4.3 4.3 循环结构循环结构程序设计基础（1 1）For I=.For I=.For J=.For J=.Next J Next J .Next I Next I（2 2）For I=.For I=.Do While/Until.Do While/Until.Loop Loop .Next I Next I（3 3）Do While.Do While.For J=.For J=.Next J Next J .Loop Loop（4 4）Do While/Until.Do While/Until.Do While/Until.Do While/Until.Loop Loop .Loop Loop几种常见的二重嵌套形式：几种常见的二重嵌套形式：几种常见的二重嵌套形式：几种常见的二重嵌套形式：程序设计基础例例例例4.12 4.12 打印打印打印打印九九表，如图所示。九九表，如图所示。九九表，如图所示。九九表，如图所示。改为呈上三角或下三角改为呈上三角或下三角改为呈上三角或下三角改为呈上三角或下三角的九九表应如何改动？的九九表应如何改动？的九九表应如何改动？的九九表应如何改动？form1.Print Tab(j-1)*9+5);form1.Print Tab(j-1)*9+5);i&j&=&i*ji&j&=&i*j;For j=1 To 9For j=1 To 9 Next j Next jform1.Printform1.PrintFor i=1 To 9For i=1 To 9 Next i Next i4.3 4.3 循环结构循环结构4.3 4.3 循环结构循环结构（1 1 1 1）循环变量：必须为数值型，用于控制循环的次数。）循环变量：必须为数值型，用于控制循环的次数。）循环变量：必须为数值型，用于控制循环的次数。）循环变量：必须为数值型，用于控制循环的次数。（2 2 2 2）步长：是循环变量的增量，步长为正时，初值应小于或等于终值；步长）步长：是循环变量的增量，步长为正时，初值应小于或等于终值；步长）步长：是循环变量的增量，步长为正时，初值应小于或等于终值；步长）步长：是循环变量的增量，步长为正时，初值应小于或等于终值；步长为负时，初值应大于或等于终值；步长为为负时，初值应大于或等于终值；步长为为负时，初值应大于或等于终值；步长为为负时，初值应大于或等于终值；步长为0 0 0 0时，循环为死循环；若省略步长，时，循环为死循环；若省略步长，时，循环为死循环；若省略步长，时，循环为死循环；若省略步长，步长默认为步长默认为步长默认为步长默认为1 1 1 1。(3)(3)(3)(3)循环次数：当循环次数：当循环次数：当循环次数：当循环的初值、终值和步长确定时，循环次数可由下式确定：循环的初值、终值和步长确定时，循环次数可由下式确定：循环的初值、终值和步长确定时，循环次数可由下式确定：循环的初值、终值和步长确定时，循环次数可由下式确定：循环次数循环次数 小结小结（4 4 4 4）Next Next Next Next 循环变量循环变量循环变量循环变量 ：使循环变量增加一个步长，循环变量与：使循环变量增加一个步长，循环变量与：使循环变量增加一个步长，循环变量与：使循环变量增加一个步长，循环变量与ForForForFor语句中的语句中的语句中的语句中的循环变量一致，可以省略不写。循环变量一致，可以省略不写。循环变量一致，可以省略不写。循环变量一致，可以省略不写。（5 5 5 5）Exit For Exit For Exit For Exit For语句：步长为语句：步长为语句：步长为语句：步长为0 0 0 0时，必须在循环体中有正常退出循环的出口。时，必须在循环体中有正常退出循环的出口。时，必须在循环体中有正常退出循环的出口。时，必须在循环体中有正常退出循环的出口。可以使用可以使用可以使用可以使用Exit ForExit ForExit ForExit For语句，当遇到该语句时，退出循环，执行语句，当遇到该语句时，退出循环，执行语句，当遇到该语句时，退出循环，执行语句，当遇到该语句时，退出循环，执行NextNextNextNext之后的语句。之后的语句。之后的语句。之后的语句。般循环体内不会单独存在此语句，总是用一个条件进行控制，条件满足时跳般循环体内不会单独存在此语句，总是用一个条件进行控制，条件满足时跳般循环体内不会单独存在此语句，总是用一个条件进行控制，条件满足时跳般循环体内不会单独存在此语句，总是用一个条件进行控制，条件满足时跳出，条件不满足时继续执行循环体。使用出，条件不满足时继续执行循环体。使用出，条件不满足时继续执行循环体。使用出，条件不满足时继续执行循环体。使用Exit ForExit ForExit ForExit For语句只能跳出一层循环。若语句只能跳出一层循环。若语句只能跳出一层循环。若语句只能跳出一层循环。若存在两层存在两层存在两层存在两层ForForForFor循环嵌套，则只能跳出内层，继续执行外层循环。循环嵌套，则只能跳出内层，继续执行外层循环。循环嵌套，则只能跳出内层，继续执行外层循环。循环嵌套，则只能跳出内层，继续执行外层循环。（6 6 6 6）嵌套循环，即外循环必须完全包含内循环，不能交叉。）嵌套循环，即外循环必须完全包含内循环，不能交叉。）嵌套循环，即外循环必须完全包含内循环，不能交叉。）嵌套循环，即外循环必须完全包含内循环，不能交叉。（7 7 7 7）内循环控件变量与外循环控件变量不能）内循环控件变量与外循环控件变量不能）内循环控件变量与外循环控件变量不能）内循环控件变量与外循环控件变量不能同名。同名。同名。同名。小结小结4.4 4.4 其他辅助控制语句其他辅助控制语句1 1 1 1GoToGoToGoToGoTo语句语句语句语句语句格式：语句格式：语句格式：语句格式：GoTo GoTo GoTo GoTo 功能：使用功能：使用功能：使用功能：使用GoToGoToGoToGoTo语句可以无条件地转移到行号或标号指定的那语句可以无条件地转移到行号或标号指定的那语句可以无条件地转移到行号或标号指定的那语句可以无条件地转移到行号或标号指定的那行语句。行语句。行语句。行语句。说明：说明：说明：说明：（1 1 1 1）GoToGoToGoToGoTo语句只能转移到同一过程的行号或标号位置处，标号语句只能转移到同一过程的行号或标号位置处，标号语句只能转移到同一过程的行号或标号位置处，标号语句只能转移到同一过程的行号或标号位置处，标号是一个字符序列，首字符必须是字母，与大小写无关，标号后应有是一个字符序列，首字符必须是字母，与大小写无关，标号后应有是一个字符序列，首字符必须是字母，与大小写无关，标号后应有是一个字符序列，首字符必须是字母，与大小写无关，标号后应有冒号，行号是一个数字序列。冒号，行号是一个数字序列。冒号，行号是一个数字序列。冒号，行号是一个数字序列。（2 2 2 2）利用）利用）利用）利用GoToGoToGoToGoTo语句可以从循环体内转向循环体外，但不能从循语句可以从循环体内转向循环体外，但不能从循语句可以从循环体内转向循环体外，但不能从循语句可以从循环体内转向循环体外，但不能从循环体外转入循环体内。环体外转入循环体内。环体外转入循环体内。环体外转入循环体内。（3 3 3 3）使用）使用）使用）使用GoToGoToGoToGoTo语句会使程序结构不清晰，可读性差，应尽量少语句会使程序结构不清晰，可读性差，应尽量少语句会使程序结构不清晰，可读性差，应尽量少语句会使程序结构不清晰，可读性差，应尽量少用或不用用或不用用或不用用或不用GoToGoToGoToGoTo语句。语句。语句。语句。4.4 4.4 其他辅助控制语句其他辅助控制语句例例例例4.13 4.13 4.13 4.13 编写一个程序，判断输入的数是否为素数。编写一个程序，判断输入的数是否为素数。编写一个程序，判断输入的数是否为素数。编写一个程序，判断输入的数是否为素数。分析分析分析分析：素数：素数：素数：素数就是除了就是除了就是除了就是除了1 1 1 1和本身以外，不能被其他任何整和本身以外，不能被其他任何整和本身以外，不能被其他任何整和本身以外，不能被其他任何整数整除的数。那么，要判别一个数数整除的数。那么，要判别一个数数整除的数。那么，要判别一个数数整除的数。那么，要判别一个数m m m m是否为素数，可以依次是否为素数，可以依次是否为素数，可以依次是否为素数，可以依次用用用用2 2 2 2m m m m1 1 1 1去除去除去除去除m m m m，只要有一个数能整除，只要有一个数能整除，只要有一个数能整除，只要有一个数能整除m m m m，m m m m就不是素数；就不是素数；就不是素数；就不是素数；否则否则否则否则m m m m是素数。是素数。是素数。是素数。4.4 4.4 其他辅助控制语句其他辅助控制语句2.Exit 2.Exit 2.Exit 2.Exit 语句语句语句语句 Exit Exit Exit Exit 语句用于退出语句用于退出语句用于退出语句用于退出 Do.LoopDo.LoopDo.LoopDo.Loop、For.NextFor.NextFor.NextFor.Next、FunctionFunctionFunctionFunction或或或或SubSubSubSub代码块。代码块。代码块。代码块。对应的使用格式为：对应的使用格式为：对应的使用格式为：对应的使用格式为：Exit DoExit DoExit DoExit Do、Exit ForExit ForExit ForExit For、Exit FunctionExit FunctionExit FunctionExit Function、Exit SubExit SubExit SubExit Sub。分别表示退出分别表示退出分别表示退出分别表示退出DODODODO循循循循环、环、环、环、ForForForFor循环、函数过程、子过程。循环、函数过程、子过程。循环、函数过程、子过程。循环、函数过程、子过程。4.4 4.4 其他辅助控制语句其他辅助控制语句程序设计基础功能：结束一个程序的运行。在功能：结束一个程序的运行。在功能：结束一个程序的运行。在功能：结束一个程序的运行。在Visual BasicVisual BasicVisual BasicVisual Basic中还有多中还有多中还有多中还有多种形式的种形式的种形式的种形式的EndEndEndEnd语句，用于结束一个程序块或过程。语句，用于结束一个程序块或过程。语句，用于结束一个程序块或过程。语句，用于结束一个程序块或过程。其形式有：其形式有：其形式有：其形式有：End If End If End If End If、End Select End Select End Select End Select、End Type End Type End Type End Type End With End With End With End With、End Sub End Sub End Sub End Sub、End Function End Function End Function End Function等等等等它们与对应的语句配对使用。它们与对应的语句配对使用。它们与对应的语句配对使用。它们与对应的语句配对使用。3.End 3.End 3.End 3.End 语句语句语句语句4.4 4.4 其他辅助控制语句其他辅助控制语句程序设计基础格式：格式：格式：格式：With With With With 对象名对象名对象名对象名 语句块语句块语句块语句块 End WithEnd WithEnd WithEnd With说明：说明：说明：说明：With With With With 语句可以对某个对象执行一系列的语句，而不语句可以对某个对象执行一系列的语句，而不语句可以对某个对象执行一系列的语句，而不语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。用重复指出对象的名称。用重复指出对象的名称。用重复指出对象的名称。4.With4.With4.With4.With.End With.End With.End With.End With 语句语句语句语句 Label1.Height=2000Label1.Height=2000 Label1.Width=2000 Label1.Width=2000 Label1.FontSize=22 Label1.FontSize=22 Label1.Caption=This is MyLabel Label1.Caption=This is MyLabel With Label1With Label1 .Height=2000 .Height=2000 .Width=2000 .Width=2000 .FontSize=22 .FontSize=22 .Caption=This is MyLabel .Caption=This is MyLabelEnd WithEnd With例：例：例：例：4.4 4.4 其他辅助控制语句其他辅助控制语句