程序设计的3种基本结构.ppt

第第3章章 程序设计的程序设计的3种基本结构种基本结构 本章内容及要求：本章内容及要求：（1）了解算法概念及表示，掌握用）了解算法概念及表示，掌握用NS流程图表示算法；流程图表示算法；（2）熟练掌握赋值语句、输入）熟练掌握赋值语句、输入/输出消息框函数的使用；输出消息框函数的使用；（3）熟练掌握行）熟练掌握行ifif语句、块语句、块ifif结构、结构、Select CaseSelect Case情况选情况选择结构有使用，掌握选择的嵌套结构；择结构有使用，掌握选择的嵌套结构；（4）熟练掌握实现循环结构的）熟练掌握实现循环结构的For/NextFor/Next循环结构及循环结构及Exit Exit ForFor语句、语句、Do/LoopDo/Loop循环结构的使用，掌握多重循环；循环结构的使用，掌握多重循环；（5 5）能够运用）能够运用3 3种结构进行综合程序设计。种结构进行综合程序设计。重点：重点：选择结构及循环结构的实现及其应用选择结构及循环结构的实现及其应用难点：难点：算法设计、选择的嵌套及多重循环结构算法设计、选择的嵌套及多重循环结构3.1 算法及算法的表示算法及算法的表示 3.1.1 算法概述算法概述 什么是算法：什么是算法：广义地讲：广义地讲：算法是为完成一项任务所应当遵循的算法是为完成一项任务所应当遵循的一步一一步一步的规则的、精确的、无歧义的描述，步的规则的、精确的、无歧义的描述，它的总步数是有限的。它的总步数是有限的。狭义地讲：狭义地讲：算法是解决一个问题采取的方法和步骤的描述。算法是解决一个问题采取的方法和步骤的描述。下面通过两个简单的例子加以说明：下面通过两个简单的例子加以说明：1)输入输入A、B、C。2)A与与B中大的一个放入中大的一个放入MAX中。中。3)把把C与与MAX中大的一个放入中大的一个放入MAX中。中。4)输出输出MAX，MAX即为最大数。即为最大数。例例3.1 输入三个数，然后输出其中最大的数。输入三个数，然后输出其中最大的数。将三个数依次输入到变量、将三个数依次输入到变量、B、C中，设变量中，设变量MAX存放存放最大数。其算法如下：最大数。其算法如下：3.1 算法及算法的表示算法及算法的表示 例例3.2 输入输入10个数，打印输出其中最大的数。个数，打印输出其中最大的数。算法设计如下：算法设计如下：（1）输输入入1个个数数,存存入入变变量量A中中,将将记记录录数数据据个个数数的的变变量量N赋赋值为值为1，即，即N=1 （2）将）将A存入表示最大值的变量存入表示最大值的变量Max中，即中，即Max=A （3）再再输输入入一一个个值值给给A，如如果果AMax 则则 Max=A,否否则则Max不变不变 （4）让记录数据个数的变量增加）让记录数据个数的变量增加1，即，即N=N+1 （5）判判断断N是是否否小小于于10，若若成成立立则则转转到到第第（3）步步执执行行，否否则转到第（则转到第（6）步）步 （6）打印输出）打印输出max3.1 算法及算法的表示算法及算法的表示 3.1.2 算法的特性算法的特性 1有穷性有穷性2确定性确定性3有有0个或多个输入个或多个输入4有一个或多个输出有一个或多个输出5有效性有效性3.1 算法及算法的表示算法及算法的表示 3.1.3 算法的表示算法的表示 一、自然语言与伪代码表示算法一、自然语言与伪代码表示算法自然语言：自然语言：就是指人们日常使用的语言，可以是汉语、英就是指人们日常使用的语言，可以是汉语、英语或其它语言。语或其它语言。伪代码：伪代码：是用介于自然语言和计算机语言之间的文字和符是用介于自然语言和计算机语言之间的文字和符号（包括数学符号）来描述算法。号（包括数学符号）来描述算法。3.1 算法及算法的表示算法及算法的表示 例如：例例如：例3.1可用如下的伪代码表示可用如下的伪代码表示Begin（算法开始）（算法开始）输入输入 A，B，C IF AB 则则 AMax 否则否则 BMax IF CMax 则则 CMaxPrint MaxEnd(算法结束算法结束)3.1 算法及算法的表示算法及算法的表示 二二 用用传统传统流程图表示算法流程图表示算法处理框起止框I/O框判断框流程线1、传统流程图中的基本符号、传统流程图中的基本符号3.1 算法及算法的表示算法及算法的表示 2、三种基本结构的表示、三种基本结构的表示（1）顺序结构）顺序结构条件语句1语句2YN语句1语句2（2）选择结构）选择结构3.1 算法及算法的表示算法及算法的表示（3）循环结构）循环结构a)当型循环当型循环b)直到循环直到循环条件语句组YN(b)条件(a)YN语句组3.1 算法及算法的表示算法及算法的表示 三种基本结构的特点：三种基本结构的特点：（1）只有一个入口）只有一个入口（2）只有一个出口）只有一个出口（3）不存在死语句）不存在死语句（4）不存在死循环）不存在死循环例：例：例例3.2输入输入10个数，打印输出其中的最大的数的流程图个数，打印输出其中的最大的数的流程图3.1 算法及算法的表示算法及算法的表示 从从10个数中选出最大的数个数中选出最大的数的算法流程图的算法流程图NMaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY3.1 算法及算法的表示算法及算法的表示 3.1.4 用用NS流程图表示算法流程图表示算法 将全部算法写在一个矩形框内，在矩形内还可包含其将全部算法写在一个矩形框内，在矩形内还可包含其它从属于它的框它从属于它的框三种基本结构的三种基本结构的NS图表示：图表示：语句A语句B语句A语句B条件YN1、顺序结构、顺序结构2、选择结构、选择结构3.1 算法及算法的表示算法及算法的表示（3）循环结构）循环结构a)当型循环当型循环b)直到循环直到循环例：例：画出从画出从10个数中选出最大的数的个数中选出最大的数的NS 流程图流程图语句组当条件成立(a)语句组直到当条件成立(b)3.1 算法及算法的表示算法及算法的表示 传统流程图NMaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY输入A当NMaxYN输入A3.1 算法及算法的表示算法及算法的表示 Private Sub Form_Click()Dim a%,max%,i%a=Val(InputBox(A=?)max=a For i=2 To 10 a=Val(InputBox(A=?)If a max Then max=a Next i Print Max=;maxEnd Sub下面是例下面是例3.2的计算机的计算机 程序，即为用计算机语言表示算法：程序，即为用计算机语言表示算法：3.1 算法及算法的表示算法及算法的表示 3.1.6 结构化程序设计方法（补充）结构化程序设计方法（补充）（一）、用计算机解决问题的过程（一）、用计算机解决问题的过程提出、分提出、分析问题析问题确定算确定算法模型法模型设计设计算法算法编写编写程序程序调试调试程序程序分析输分析输出结果出结果正确正确合理合理结束结束不正确不正确3.1 算法及算法的表示算法及算法的表示（二）、结构化程序设计思想（二）、结构化程序设计思想自顶向下、逐步细化、模块化自顶向下、逐步细化、模块化自顶向下：自顶向下：先从全局、整体设计先从全局、整体设计逐步细化：逐步细化：将一个问题分解成几个较小的问题解决将一个问题分解成几个较小的问题解决模块化：模块化：将一个大任务分解成若干个较小的部分，将一个大任务分解成若干个较小的部分，每每 个部分承担一定功能，称为个部分承担一定功能，称为“功能模功能模块块”例：给例：给100个整数，打印输出其中的素数个整数，打印输出其中的素数3.1 算法及算法的表示算法及算法的表示 S1NS流程图流程图输入输入100个数存入个数存入X1，x2,x100打印打印x1.x100中中不等于不等于0的数的数让让x1，x2,x100中的中的非素变为非素变为0S3S2输入输入xi当当i=100i=i+1i=1S1细化细化xi0当当i=100i=i+1i=1YN打印打印xiS3细化细化3.1 算法及算法的表示算法及算法的表示 S1NS流程图流程图输入输入100个数存入个数存入X1，x2,x100打印打印x1.x100中中不等于不等于0的数的数让让x1，x100中的中的非素变为非素变为0S3S2S2细化细化判断判断xi是否是素数，是否是素数，若不是则将若不是则将xi=0当当i=100i=i+1i=1S21r=0rxi/2S21细化细化3.1 算法及算法的表示算法及算法的表示 输入输入100个数存入个数存入X1，x2,x100打印打印x1.x100中中不等于不等于0的数的数让让x1，x100中中的非素变为的非素变为0细化后的流程图细化后的流程图输入输入xi当当i=100i=i+1i=1当当ixi/2i=i+1xi0当当i=100i=1YN打印打印xii=i+13.2 顺序结构顺序结构3.2.1 3.2.1 赋值语句赋值语句 形式形式:变量名表达式变量名表达式 对象对象.属性表达式属性表达式 功能：功能：将表达式的值赋值给变量名或指定对象的属性。将表达式的值赋值给变量名或指定对象的属性。一般用于给变量赋值或对控件设定属性值一般用于给变量赋值或对控件设定属性值.例：例：sRate!=0.1 Text1.Text 欢迎使用欢迎使用Visual Basic 6.0”说明：说明：1 执行过程：先求表达式的值，然后将值赋值给左边的变量。执行过程：先求表达式的值，然后将值赋值给左边的变量。2 右边的表达式可以是变量、常量、函数调用等特殊的表达式。右边的表达式可以是变量、常量、函数调用等特殊的表达式。3 不要将不要将“”理解为数学上的等号：理解为数学上的等号：A=A+1 是表示将是表示将A单元的值加后以放回到单元的值加后以放回到A单元。单元。执行过程如右图执行过程如右图3.赋值符号赋值符号“=”左边一定只能是变量名或对象的属性引左边一定只能是变量名或对象的属性引用，不能是常量、符号常量、表达式。用，不能是常量、符号常量、表达式。下面的赋值语句都是错的：下面的赋值语句都是错的：5=X 左边是常量。左边是常量。Abs(X)=20 左边是函数调用，即是表达式。左边是函数调用，即是表达式。5.赋值符号赋值符号“=”两边的数据类型一般要求应一致。两边的数据类型一般要求应一致。3.2 顺序结构顺序结构3.2.2 数据的输出数据的输出Print方法方法 Print方法的一般格式：方法的一般格式：对象名对象名.Print，|；说明：说明：对象名对象名.可以是窗体名、图片框名，也可是立即窗口可以是窗体名、图片框名，也可是立即窗口“Debug”。若省略对象，则表示在当前窗体上输出。若省略对象，则表示在当前窗体上输出。用用Print方法在图片框和立即窗口对象中输出与在窗体方法在图片框和立即窗口对象中输出与在窗体对象中输出完全相同。对象中输出完全相同。3.2 顺序结构顺序结构3.2.3 用户交互函数和过程用户交互函数和过程 1.InputBox函数函数变量名变量名=InputBox$(，)其中其中:提示提示 提示信息提示信息,标题标题 标题区显示标题区显示,缺省缺省输入区缺省值。输入区缺省值。例如，要在屏幕上显示如下的对话框例如，要在屏幕上显示如下的对话框:3.2 顺序结构顺序结构 例如：有下列语句如下例如：有下列语句如下:Dim x%x=Val(InputBox(“请输入一个数请输入一个数”,“输入框输入框”,100)语句执行后打开如下对话框。语句执行后打开如下对话框。缺省值标题提示3.2 顺序结构顺序结构2.MsgBox函数和函数和MsgBox过程过程 函数形式函数形式:变量变量%=MsgBox(提示提示,按钮按钮图标图标+缺省按钮缺省按钮+模式模式，标题，标题)过程形式过程形式:MsgBox 提示提示,按钮按钮图标图标+缺省按钮缺省按钮+模式模式,标题标题图标标题提示信息命令按钮3.2 顺序结构顺序结构说明：说明：“标题标题”和和“提示提示”与与InputBox函数中对应的参数相函数中对应的参数相同；同；“按钮图标按钮图标+缺省按钮缺省按钮+模式模式”是整型表达式，决是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式定信息框按钮数目、出现在信息框上的图标类型及操作模式(见表见表3.1)若程序中需要返回值，则使用函数，否则可调用过程。若程序中需要返回值，则使用函数，否则可调用过程。3.2 顺序结构顺序结构按钮及图标值如下按钮及图标值如下:根据用户所选按钮，函数返根据用户所选按钮，函数返回回1717的整数值，其含义的整数值，其含义如下表如下表:（表（表3-2)3-2)3.2 顺序结构顺序结构3.2.4 注释语句注释语句 其语法格式为：其语法格式为：Rem 或或 说明：说明：1.指指要要包包括括的的任任何何注注释释文文本本。在在Rem关关键键字字和和注注释释内内容容之之间间要要加加一一个个空空格格。可可以以用用一一个个英英文文单单引引号号“”来代替来代替Rem关键字。关键字。2.如如果果在在其其他他语语句句行行后后面面使使用用Rem关关键键字字，必必需需用用冒冒号号(：)与与语语句句隔隔开开。若若用用英英文文单单引引号号“”，则则在在其其他他语语句句行行后后面不必加冒号面不必加冒号(：)。例如：例如：Const PI=3.1415925 符号常量符号常量PIS=PI*r*r :Rem计算圆的面积计算圆的面积3.2 顺序结构顺序结构3.2.5 应用举例应用举例 例例3.3 输输入入时时间间（小小时时，分分和和秒秒），然然后后使使用用输输出出消消息息框输出总计多少秒。框输出总计多少秒。使使用用文文本本框框输输入入数数据据，使使用用消消息息框框输输出出计计算算结结果果，程程序序运运行界面如图行界面如图3-14所示。所示。3.2 顺序结构顺序结构图图3-14 程序运行界面程序运行界面3.2.5 应用举例应用举例例例3.4 编编一一程程序序，求求一一内内半半径径R1=10cm，外外半半径径R2=20cm的球环的体积。要求按四舍五入保留到小数点后的球环的体积。要求按四舍五入保留到小数点后4位。位。解：球的体积公式解：球的体积公式 :本题所求的球环面的体积公式本题所求的球环面的体积公式:3.2 顺序结构顺序结构 选择结构是根据条件选择执行不同的分支语句，以完成选择结构是根据条件选择执行不同的分支语句，以完成问题的要求。在问题的要求。在Visual Basic程序设计中，使用程序设计中，使用IF语句和语句和Select Case语句来处理选择结构。其特点是：根据所给定的语句来处理选择结构。其特点是：根据所给定的条件成立（条件成立（True）或不成立（）或不成立（False），从各实际可能的不同），从各实际可能的不同分支中执行某一分支的相应操作（程序块），并且任何情况分支中执行某一分支的相应操作（程序块），并且任何情况下总有下总有“无论条件多寡，必择其一；虽然条件众多，仅选其无论条件多寡，必择其一；虽然条件众多，仅选其一一”的特性。的特性。3.3 选择结构选择结构3.3.1 If条件语句条件语句 1.IfThen语句语句(单分支结构单分支结构)If Then 语句块语句块 End If 或或 If Then 例例:已知两个数已知两个数x和和y，比较它们的大小，比较它们的大小，使得使得x大于大于y.If xy Then t=x:x=y:y=t End If 或或 If xy Then t=x:x=y:y=t 3.3.1 If条件语句条件语句2.IfThenElse语句语句(双分支结构双分支结构)If Then Else End If If Then Else 双分支选择结构执行过程双分支选择结构执行过程 3.3.1 If条件语句条件语句例如：输出例如：输出x,y两个中值较大的一个值。两个中值较大的一个值。IF XY Then Print XElse Print YEnd If也可以写成如下的单行形式：也可以写成如下的单行形式：IF XY Then Print X Else Print Y 3.3.1 If条件语句条件语句 例例3.5 设设计计一一个个求求解解一一元元二二次次方方程程的的程程序序，要要求求考考虑虑实实根、虚根等情况。根、虚根等情况。算法分析：算法分析：（1）一元二次方程根的计算公式：）一元二次方程根的计算公式：（2）求求解解首首先先要要输输入入方方程程的的系系数数a,b,c，计计算算的的值值，由由其其值值是是否大于等于零来决定是实根还是虚根。否大于等于零来决定是实根还是虚根。3.3.1 If条件语句条件语句3.条件函数条件函数Iif()IIf函函数数可可用用来来执执行行简简单单的的条条件件判判断断操操作作，它它相相当当于于IFThen.Else结构。结构。IIF函数的使用格式：函数的使用格式：IIF（，）说明：说明：（1）与与IF语语句句中中的的表表达达式式相相同同，通通常常是是关关系系表表达达式式、逻逻辑辑表表达达式式，也也可可为为算算术术表表达达式式。如如果果是是算算术术表表达达式式，其值按非其值按非0为为True，0为为False进行判断。进行判断。（2）当当为为真真时时，函函数数返返回回的的值值，当当为假时，函数返回为假时，函数返回的值。的值。（3）、可以是任何表达式。可以是任何表达式。例如：例如：Max=IIF（XY,X,Y）它与下面语句等价：）它与下面语句等价：IF XY Then Max=x Else Max=Y 3.3.1 If条件语句条件语句4.IfThenElseIf语句语句(多分支结构多分支结构)形式形式:If Then ElseIf Then Else 语句块语句块 n+1 End If执行过程 3.3.1 If条件语句条件语句使用使用IF语句实现的程序段如下：语句实现的程序段如下：If x=90 then Print 优秀优秀ElseIf x=80 Then Print 良好良好 ElseIf x=70 Then Print 中等中等 ElseIf x=60 Then Print 及格及格 Else Print 不及格不及格End If 例例3.6 输入一学生成绩，评定其等级。方法是：输入一学生成绩，评定其等级。方法是：90100分分为为“优秀优秀”，8089分为分为“良好良好”，7079分为分为“中等中等”，6069分为分为“及格及格”，60分以为分以为“不合格不合格”3.3.1 If条件语句条件语句3.3.2 Select Case语句（情况语句）语句（情况语句）形式：形式：Select Case 变量或表达式变量或表达式Case 表达式列表表达式列表1语句块语句块1Case 表达式列表表达式列表2语句块语句块2Case Else语句块语句块n+1End Select数值型或字符串表达式3.3 选择结构选择结构 说明：说明：与：与同类型的同类型的下面四种形式之一：下面四种形式之一：表达式表达式 A+5 一组枚举表达式一组枚举表达式(用逗号分隔用逗号分隔)2,4,6,8 表达式表达式1 To 表达式表达式2 60 to 100 Is 关系运算符表达式关系运算符表达式 Is 603.3 选择结构选择结构例如：将例例如：将例3.3 使用使用select case.语句来实现的程序段如下：语句来实现的程序段如下：Select Case x Case 90 to 100 Print 优秀优秀 Case 80 to 89 Print 良好良好 Case 70 to 79 Print 中等中等 Case 60 to 69 Print 及格及格 Case Else Print 不及格不及格End Select3.3 选择结构选择结构2.Choose函数函数Choose函数使用格式：函数使用格式：Choose（，.）说明：说明：Choose函函数数根根据据的的值值来来决决定定返返回回其其后后中中的的那那个个表表达达式式的的值值。如如果果的的值值为为1，则则返返回回的的值值，如如果果的的值值为为2，则则返返回回的的值值，以以此此类类推推。若若的的值值小小于于1或或大大于于n，则函数返回，则函数返回Null。例例如如：根根据据Nop的的值值，得得到到+、-、*，/的的运运算算符符，可可由由理理面面语语句来实现。句来实现。Nop=Int（Rnd*4）+1OP=Choose（Nop,+,-,*,/）3.3 选择结构选择结构3.3.3 选择结构的嵌套选择结构的嵌套下面是两种正确的嵌套形式：（1）IF Then .IF Then Else .End If .Else .IF Then .Else .End If .End IF（2）IF Then .Select Case Case IF Then Else .End If Case.End Select .End IF3.3 选择结构选择结构 注注意意：只只要要在在一一个个分分支支内内嵌嵌套套，不不出出现现交交叉叉，满满足足结结构构规规则则，其其嵌嵌套套的的形形式式将将有有很很多多种种，嵌嵌套套层层次次也也可可以以任任意意多多。对对于于多多层层IF嵌嵌套套结结构构中中，要要特特别别注注意意IF与与Else的的配配对对关关系系，一一个个Else必必须须与与IF配配结结，配配对对的的原原则则是是：在在写写含含有有多多层层嵌嵌套套的的程程序序时，建议使用缩进对齐方式，这样容易阅读和维护。时，建议使用缩进对齐方式，这样容易阅读和维护。例例3.7 设计一个用户身份验证程序，运行界面如下图所示。3.3 选择结构选择结构 循循环环结结构构是是一一种种重重复复执执行行的的程程序序结结构构。它它判判断断给给定定的的条条件件，如如果果条条件件成成立立，即即为为“真真”（True），则则重重复复执执行行某某一一些些语语句句（称称为为循循环环体体）；否否则则，即即为为“假假”（False），则则结结束束循循环环。通通常常循循环环结结构构有有“当当型型循循环环”（先先判判断断条条件件，后后执执行行循循环环）和和“直直到到型型循循环环”（先先执执行行循循环环，再再判判断断条条件件）两两种种。在在Visual Basic中，实现循环结构的语句主要有中，实现循环结构的语句主要有4种：种：ForNext语句语句 Do While/UntilLoop DoLoop While/Until语句语句 WhileWend语句语句3.4 循环结构循环结构3.4.1 ForNext3.4.1 ForNext循环语句循环语句 For循环语句循环语句(一般用于循环次数已知一般用于循环次数已知)形式：形式：For 循环变量初值循环变量初值 to 终值终值 Step 步长步长 语句块语句块Exit For 语句块语句块 Next 循环变量循环变量循环体 0 初值初值终值终值 =1 时时,可省可省略略终值终值=0 死循环死循环 步长步长3.4 循环结构循环结构循环次数循环次数例例:For I=2 To 13 Step 3 Print I,Next I Print“I=“,I 循环执行次数循环执行次数 输出输出I的值分别为的值分别为:2 5 8 11 出了循环输出为出了循环输出为:I=143.4 循环结构循环结构例例3.8 编程计算：编程计算：S=1+2+3+100Dim S%,I%S=0 累加前变量累加前变量S为为0For I=1 to 100 S=S+INext IPrint S=,S 当N=100N=N+1打印SS=0,N=1S=S+N例例3-8 算法流程图算法流程图3.4 循环结构循环结构形式形式1：（当型循环）：（当型循环）Do While|Until 语句块语句块 Exit Do 语句块语句块 Loop3.4.2 DoLoop循环语句循环语句 3.4 循环结构循环结构形式形式2：(直到循环）直到循环）Do 语句块语句块 Exit Do 语句块语句块Loop While|Until 3.4 循环结构循环结构条 件语句块语句块TFExit Do条 件语句块语句块TFExit Do Do UntilLoop执行过程执行过程 DoLoop Until执行过程执行过程 3.4 循环结构循环结构说明：说明：（1 1）当当使使用用WhileWhile 构构成成循循环环时时，当当条条件件为为“真真”，则反复执行循环体，当条件为则反复执行循环体，当条件为“假假”，则退出循环。，则退出循环。（2）当当使使用用Until 构构成成循循环环时时，当当条条件件为为“假假”，则则反复执行循环体，直到条件成立，即为反复执行循环体，直到条件成立，即为“真真”时，则退出循环。时，则退出循环。（3 3）在在循循环环体体内内一一般般应应有有一一个个专专门门用用来来改改变变条条件件表表达达式式中中变变量量的的语语句句，以以使使随随着着循循环环的的执执行行，条条件件趋趋于于不不成成立立（或或成成立立），最后达到退出循环。，最后达到退出循环。（4）语句）语句Exit Do的作用是退出它所在的循环结构，它只能的作用是退出它所在的循环结构，它只能用在用在DO/Loop结构中，并且常常是同选择结构一起出现在循环结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。结构中，用来实现当满足某一条件时提前退出循环。3.4 循环结构循环结构3.4.3 WhileWend语句语句使用格式如下：使用格式如下：While Wend 说说明明：该该语语句句的的功功能能与与Do While.Loop实实现现的的循环完全相同。循环完全相同。例例3.9：用：用doLoop语句改写前面的例题语句改写前面的例题3.83.4 循环结构循环结构例例3.10 求两个整数的最大公约数、最小公倍数求两个整数的最大公约数、最小公倍数Dim n%,m%,nm%,r%m=Val(InputBox(m=)n=Val(InputBox(n=)nm=n*mIf mn Then t=m:m=n:n=t r=m mod n Do While(r 0)m=n n=r r=m mod n LoopPrint 最大公约数最大公约数=,n Print 最小公倍数最小公倍数=,nm/n 算法流程图算法流程图3.4 循环结构循环结构 3.4.4 循环的嵌套循环的嵌套多重循环结构多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。嵌套一层称为二重循环，嵌套二层称为三重循环。上上面面介介绍绍的的几几种种循循环环控控制制结结构构可可以以相相互互嵌嵌套套，下下面面是是几种常见的二重嵌套形式：几种常见的二重嵌套形式：3.4 循环结构循环结构（1）For I=.For J=.Next J .Next I（2）For I=.Do While/Until.Loop .Next I（3）Do While.For J=.Next J .Loop（4）Do While/Until.Do While/Until.Loop .Loop3.4 循环结构循环结构例如例如：打印九九乘法表打印九九乘法表.For i=1 To 9 For j=1 To 9 se=i&j&=&i*j Picture1.Print Tab(j-1)*9+1);se;Next j Picture1.Print Next i3.4 循环结构循环结构 例例3.11 将将一一张张面面值值为为100元元的的人人民民币币等等值值换换成成100张张5元元、1元元和和0.5元元的的零零钞钞，要要求求每每种种零零钞钞不不少少于于1张张，问问有有哪哪几几种种组组合？合？编编程程分分析析：如如果果用用X，Y，Z来来分分别别代代表表5元元、1元元和和0.5元元的的零钞的张数，根据题意只能得到下面两个方程。零钞的张数，根据题意只能得到下面两个方程。X+Y+Z=100 5X+Y+0.5Z=100 3.4 循环结构循环结构 For i=1 To 10 For j=1 To 20 Next j Next i For i=1 To 10 Next i For i=1 To 10 Next i 对于循环的嵌套，要注意以下事项：对于循环的嵌套，要注意以下事项：(1)内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；外循环必须完全包含内循环，不能交叉；(3)不能从循环体外转向循环体内，也不能从外循环转向内不能从循环体外转向循环体内，也不能从外循环转向内循环循环.下面是正确的嵌套下面是正确的嵌套3.4 循环结构循环结构 For i=1 To 10 For j=1 To 20 Next i Next j For i=1 To 10 For i=1 To 20 Next i Next i下面是不正确的嵌套下面是不正确的嵌套3.4 循环结构循环结构对于循环的嵌套，要注意以下事项：对于循环的嵌套，要注意以下事项：(1)内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；外循环必须完全包含内循环，不能交叉；(3)不能从循环体外转向循环体内，也不能从外不能从循环体外转向循环体内，也不能从外循环转向内循环循环转向内循环.3.4 循环结构循环结构3.4.5 几种循环语句比较几种循环语句比较 3.4 循环结构循环结构3.4.6 循环结构与选择结构的嵌套循环结构与选择结构的嵌套 在循环结构中可以完整嵌套选择结构即整个选择结构在循环结构中可以完整嵌套选择结构即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要求整都属于循环体。在选择结构中嵌套循环结构时，则要求整个循环结构必须完整地嵌套在一个分支内，一个循环结构个循环结构必须完整地嵌套在一个分支内，一个循环结构不允许出现在两个或两个以上的分支内。不允许出现在两个或两个以上的分支内。3.4 循环结构循环结构（1）For I=IF Then End IF Next I（6）IF Then For I=End IF Next I（5）Select Case For I=Case Case Next I End Select（3）For I=IF Then Next I End IF（2）IF Then For I=Next I End IF（4）For I=Select Case Case Case End Select Next I3.4 循环结构循环结构3.5.1 Goto 语句语句 形式形式:Go To 标号标号|行号行号 作用是无条件地转移到标号或行号指定的那行语句作用是无条件地转移到标号或行号指定的那行语句.标号是一个字符序列标号是一个字符序列,行号是一个数字序列。行号是一个数字序列。例如：例如：Lp:goto lp 3.5 3.5 其它控制语句其它控制语句 3.5.2 Exit 语句语句 Exit 语句用于退出语句用于退出 Do.Loop、For.Next、Function或或Sub代码块。代码块。对应的使用格式为：对应的使用格式为：Exit Do、Exit For、Exit Function、Exit Sub。分别表示退出。分别表示退出DO循环、循环、For循环、函循环、函数过程、子过程。数过程、子过程。例如：例如：下面的例子是使用下面的例子是使用 Exit 语句退出语句退出 For.Next 循环、循环、Do.Loop 循环及子过程。循环及子过程。3.5 3.5 其它控制语句其它控制语句 Private Sub Form_Click()Dim I%,Num%Do While True 建立无穷循环。建立无穷循环。For I=1 To 100 循环循环 100 次。次。Num=Int(Rnd*100)生成一个生成一个099的随机数。的随机数。Select Case Num Case 10:Exit For 退出退出 For.Next 循环。循环。Case 50:Exit Do 退出退出 Do.Loop 循环。循环。Case 64:Exit Sub 退出子过程。退出子过程。End Select Next I LoopEnd Sub3.5 3.5 其它控制语句其它控制语句 3.5.3 End 语句语句 形式：形式：End 功能：结束一个程序的运行。功能：结束一个程序的运行。在在Visual Basic中中还还有有多多种种形形式式的的End语语句句，用用于于结结束束一个程序块或过程。一个程序块或过程。其形式有：其形式有：End If End Select End Type End With End Sub End Function等，它们与对应的语句配对使用。等，它们与对应的语句配对使用。3.5 3.5 其它控制语句其它控制语句 3.5.4 暂停语句暂停语句 Stop语句用来暂停程序的执行，相当于在事件代码中设置语句用来暂停程序的执行，相当于在事件代码中设置断点。断点。语法格式为：语法格式为：Stop说明：说明：1.Stop语语句句的的主主要要作作用用是是把把解解释释程程序序置置为为中中断断(Break)模模式式，以以便便对对程程序序进进行行检检查查和和调调试试。可可以以在在程程序序的的任任何何地地方方放放置置Stop语句，当执行语句，当执行Stop语句时，系统将自动打开立即窗口。语句时，系统将自动打开立即窗口。2.与与End语句不同。语句不同。3.5 3.5 其它控制语句其它控制语句 3.5.5 With.End With 语句语句 形式：形式：With 对象名对象名 语句块语句块 End With 说明：说明：With 语句可以对某个对象执行一系列的语句，而语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。不用重复指出对象的名称。例如，要改变一个对象的多个例如，要改变一个对象的多个属性属性，可以在可以在 With 控制控制结构中加上属性的赋值语句，这时候只是引用对象一次而不结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。下面的例子显示了如何使是在每个属性赋值时都要引用它。下面的例子显示了如何使用用 With 语句来给同一个对象的几个属性赋值。语句来给同一个对象的几个属性赋值。3.5 3.5 其它控制语句其它控制语句 例例如如，需需要要对对同同一一对对象象设设置置几几个个属属性性。途途径径之之一一是是使使用用多条语句。多条语句。Private Sub Form_Load()Command1.Caption=退出退出(E&xit)Command1.Top=500 Command1.Left=4500 Command1.Enabled=TrueEnd Sub3.5 3.5 其它控制语句其它控制语句 使用使用With.End With 语句，上面程序的代码如下。语句，上面程序的代码如下。Private Sub Form_Load()With Command1 .Caption=退出退出(E&xit).Top=500 .Left=4500 .Enabled=True End WithEnd Sub 3.5 3.5 其它控制语句其它控制语句 3.5.6 On Error语句与语句与Resume 语句语句 3.5 3.5 其它控制语句其它控制语句 1设置错误陷阱设置错误陷阱用用On Error语句设置错误陷阱，捕捉错误，形式如下：语句设置错误陷阱，捕捉错误，形式如下：（1）On Error GoTo语语句句标标号号 发发生生错错误误时时，转转到到语语句句标标号号所指示的程序块所指示的程序块（2）On Error Resume Next 发发生生错错误误时时，忽忽略略错错误误行行，继继续执行下一语句续执行下一语句（3）On Error GoTo 0 禁禁止止当当前前过过程程中中任任何何已已启启动动的的错错误误3.5.6 On Error语句与语句与Resume