程序设计的种基本结构.pptx

《程序设计的种基本结构.pptx》由会员分享，可在线阅读，更多相关《程序设计的种基本结构.pptx（88页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、本章主要内容本章主要内容4.1算法及算法的表示算法及算法的表示4.2顺序结构顺序结构4.3选择结构选择结构4.4循环结构循环结构4.5其他控制语句其他控制语句4.6应用程序举例应用程序举例第1页/共88页4.1算法及算法的表示算法及算法的表示4.1.1算法概述算法概述什么是算法：什么是算法：广义地讲：广义地讲：算法是为完成一项任务所应当算法是为完成一项任务所应当遵循的遵循的一步一步的规则的、精确的、无歧义的一步一步的规则的、精确的、无歧义的描述，描述，它的总步数是有限的。它的总步数是有限的。狭狭义义地地讲讲：算算法法是是解解决决一一个个问问题题采采取取的的方方法和步骤的描述。法和步骤的描述。第

2、2页/共88页1)输入输入A、B、C。2)A与与B中大的一个放入中大的一个放入MAX中。中。3)把把C与与MAX中大的一个放入中大的一个放入MAX中。中。4)输出输出MAX，MAX即为最大数。即为最大数。例4.1 输入三个数，然后输出其中最大的数。将三个数依次输入到变量、B、C中，设变量MAX存放最大数。其算法如下：4.1算法及算法的表示算法及算法的表示第3页/共88页例例4.2输入输入10个数，打印输出其中最大的数。个数，打印输出其中最大的数。算法如下：算法如下：（1）输输入入1个个数数,存存入入变变量量A中中,将将记记录录数数据据个个数数的的变变量量N赋值为赋值为1，即，即N=1（2）将）

3、将A存入表示最大值的变量存入表示最大值的变量Max中，即中，即Max=A（3）再再输输入入一一个个值值给给A，如如果果AMax则则Max=A,否则否则Max不变不变（4）让记录数据个数的变量增加）让记录数据个数的变量增加1，即，即N=N+1（5）判判断断N是是否否小小于于10，若若成成立立则则转转到到第第（3）步步执执行，否则转到第（行，否则转到第（6）步）步（6）打印输出）打印输出max4.1算法及算法的表示算法及算法的表示第4页/共88页4.1.2算法的特性算法的特性1有穷性有穷性2确定性确定性3有有0个或多个输入个或多个输入4有一个或多个输出有一个或多个输出5有效性有效性4.1算法及算法

4、的表示算法及算法的表示第5页/共88页4.1.3算法的表示算法的表示一、自然语言与伪代码表示算法一、自然语言与伪代码表示算法自然语言：自然语言：就是指人们日常使用的语言，可以是就是指人们日常使用的语言，可以是汉语、英语或其它语言。汉语、英语或其它语言。伪代码：伪代码：是用介于自然语言和计算机语言之间的是用介于自然语言和计算机语言之间的文字和符号（包括数学符号）来描述算法。文字和符号（包括数学符号）来描述算法。4.1算法及算法的表示算法及算法的表示第6页/共88页例如：例例如：例4.1可用如下的伪代码表示可用如下的伪代码表示Begin（算法开始）（算法开始）输入输入 A，B，C IF AB 则则

5、 AMax 否则否则 BMax IF CMax 则则 CMaxPrint MaxEnd(算法结束算法结束)4.1算法及算法的表示算法及算法的表示第7页/共88页二二、用、用传统传统流程图表示算法流程图表示算法处理框起止框I/O框判断框流程线连接点1、传统流程图中的基本符号、传统流程图中的基本符号4.1算法及算法的表示算法及算法的表示第8页/共88页2、三种基本结构的表示、三种基本结构的表示（1）顺序结构）顺序结构条件语句1语句2YN语句1语句2（2）选择结构）选择结构4.1算法及算法的表示算法及算法的表示第9页/共88页（3）循环结构）循环结构a)当型循环当型循环b)直到循环直到循环条件语句组

6、YN(b)条件(a)YN语句组4.1算法及算法的表示算法及算法的表示第10页/共88页三种基本结构的特点：三种基本结构的特点：（1）只有一个入口）只有一个入口（2）只有一个出口）只有一个出口（3）不存在死语句）不存在死语句（4）不存在死循环）不存在死循环4.1算法及算法的表示算法及算法的表示第11页/共88页从从10个数中选出最个数中选出最大的数的算法流程图大的数的算法流程图NMaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY4.1算法及算法的表示算法及算法的表示第12页/共88页4.1.4用用NS流程图表示算法流程图表示算法将全部算法写在一个矩形框内，在矩形内还可将全部算法

7、写在一个矩形框内，在矩形内还可包含其它从属于它的框。包含其它从属于它的框。三种基本结构的三种基本结构的NS图表示：图表示：语句A语句B语句A语句B条件YN1、顺序结构、顺序结构2、选择结构、选择结构4.1算法及算法的表示算法及算法的表示第13页/共88页3、循环结构、循环结构a)当型循环当型循环b)直到循环直到循环例：例：画出从画出从10个数中选出最大的数的个数中选出最大的数的NS流程图。流程图。语句组当条件成立(a)语句组直到当条件成立(b)4.1算法及算法的表示算法及算法的表示第14页/共88页传统流程图NMaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY输入A当NMax

8、YN输入A4.1算法及算法的表示算法及算法的表示第15页/共88页A=Val(InputBox(A=?)B=Val(InputBox(B=?)C=Val(InputBox(C=?)IfABthenMax=AElseMax=BEndIfIfCMaxthenMax=CPrintMax=;Max下面是例下面是例4.1的计算机的计算机程序，即为用计算机语言表示算法：程序，即为用计算机语言表示算法：4.1算法及算法的表示算法及算法的表示第16页/共88页4.1.5结构化程序设计方法（补充）结构化程序设计方法（补充）（一）用计算机解决问题的过程（一）用计算机解决问题的过程提出、分提出、分析问题析问题确定算

9、确定算法模型法模型设计设计算法算法编写编写程序程序调试调试程序程序分析输分析输出结果出结果正确正确合理合理结束结束不正确不正确4.1算法及算法的表示算法及算法的表示第17页/共88页（二）结构化程序设计思想（二）结构化程序设计思想自顶向下、逐步细化、模块化自顶向下、逐步细化、模块化自顶向下：自顶向下：先从全局、整体设计先从全局、整体设计逐步细化：逐步细化：将一个问题分解成几个较小的问题解决将一个问题分解成几个较小的问题解决模块化：模块化：将一个大任务分解成若干个较小的部分，将一个大任务分解成若干个较小的部分，每每个部分承担一定功能，称为个部分承担一定功能，称为“功能模块功能模块”例：给例：给1

10、00个整数，打印输出其中的素数。个整数，打印输出其中的素数。4.1算法及算法的表示算法及算法的表示第18页/共88页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细化细化4.1算法及算法的表示算法及算法的表示第19页/共88页S1NS流程图流程图输入输入100个数存入个数存入X1，x2,x100打印打印x1.x100中中不等于不等于0的数的数让让x1，x10

11、0中的中的非素变为非素变为0S3S2S2细化细化判断判断xi是否是素数，是否是素数，若不是则将若不是则将xi=0当当i=100i=i+1i=1S21r=0rxi/2S21细化细化4.1算法及算法的表示算法及算法的表示第20页/共88页输入输入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+1第21页/共88页4.2 顺序结构4.2.1 赋值语句 形式:变量名表达式 对

12、象.属性表达式 功能：将表达式的值赋值给变量名或指定对象的属性。一般用于给变量赋值或对控件设定属性值。例：sRate=0.1 Text1.Text 欢迎使用Visual Basic 6.0”说明：1、执行过程：先求表达式的值，然后将值赋值给左边的变量。2、右边的表达式可以是变量、常量、函数调用等特殊的表达式。3、不要将“”理解为数学上的等号：A=A+1 是表示将A单元的值加后以放回到A单元。第22页/共88页执行过程如右图执行过程如右图4、赋值符号、赋值符号“=”左边一定只能是变量名或对象的属性左边一定只能是变量名或对象的属性引用，不能是常量、符号常量、表达式。引用，不能是常量、符号常量、表达

13、式。下面的赋值语句都是错的：下面的赋值语句都是错的：5=X左边是常量。左边是常量。Abs(X)=20左边是函数调用，即是表达式。左边是函数调用，即是表达式。5、赋值符号、赋值符号“=”两边的数据类型一般要求应一致。两边的数据类型一般要求应一致。4.2 顺序结构第23页/共88页4.2.2数据的输出数据的输出Print方法方法Print方法的一般格式：方法的一般格式：对象名对象名.Print，|；说明：说明：对象名对象名.可以是窗体名、图片框名，也可是可以是窗体名、图片框名，也可是立即窗口立即窗口“Debug”。若省略对象，则表示在。若省略对象，则表示在当前窗当前窗体体上输出。上输出。用用Pri

14、nt方法在图片框和立即窗口对象中输出与方法在图片框和立即窗口对象中输出与在窗体对象中输出完全相同。在窗体对象中输出完全相同。4.2 顺序结构第24页/共88页4.2.3 用户交互函数和过程 1.InputBox函数变量名=InputBox$(，)其中:提示 提示信息,标题 标题区显示,缺省输入区缺省值。例如，要在屏幕上显示如下的对话框:4.2 顺序结构第25页/共88页例如：有下列语句如下例如：有下列语句如下:Dimx%x=Val(InputBox(“请输入一个数请输入一个数”,“输入框输入框”,100)语句执行后打开如下对话框。语句执行后打开如下对话框。缺省值标题提示4.2 顺序结构第26页

15、/共88页2.MsgBox函数和MsgBox过程 函数形式:变量%=MsgBox(提示,按钮图标+缺省按钮+模式，标题)过程形式:MsgBox 提示,按钮图标+缺省按钮+模式,标题图标标题提示信息命令按钮4.2 顺序结构第27页/共88页说明：说明：、“标题标题”和和“提示提示”与与InputBox函数函数中对应的参数相同；中对应的参数相同；、“按钮图标按钮图标+缺省按钮缺省按钮+模式模式”是是整型表达式，决定信息框按钮数目、出现在整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式信息框上的图标类型及操作模式(见表见表4.1)4.2 顺序结构第28页/共88页按钮及图标值如下按

16、钮及图标值如下:4.2 顺序结构第29页/共88页 根据用户所选按钮，函数返回17的整数值，其含义表4.24.2 顺序结构 3、若程序中需要返回值，则使用函数，否则可调用过程。第30页/共88页4.2 顺序结构用户可根据用户可根据MsgBox函数的不同返回值，实现程序函数的不同返回值，实现程序的控制流程，就必需通过编写程序代码才能实现。例的控制流程，就必需通过编写程序代码才能实现。例如：如：i=MsgBox(发生错误，是否继续？发生错误，是否继续？,vbYesNo+vbQuestion,提示信息提示信息)Ifi=7ThenEnd或写成或写成Ifi=vbNoThenEnd当用户单击当用户单击“否

17、否”，程序就结束，单击，程序就结束，单击“是是”或或直接按回车键，程序则继续向下执行。直接按回车键，程序则继续向下执行。第31页/共88页4.2.4 注释语句 其语法格式为：其语法格式为：Rem或或说明：说明：1.指指要要包包括括的的任任何何注注释释文文本本。在在Rem关关键键字字和和注注释释内内容容之之间间要要加加一一个个空空格格。可可以以用用一一个个英英文文单单引引号号“”来代替来代替Rem关键字。关键字。2.如如果果在在其其他他语语句句行行后后面面使使用用Rem关关键键字字，必必需需用用冒冒号号(：)与与语语句句隔隔开开。若若用用英英文文单单引引号号“”，则则在在其其他他语语句句行行后后

18、面不必加冒号面不必加冒号(：)。例如：例如：Const PI=3.1415925 符号常量符号常量PIS=PI*r*r :Rem计算圆的面积计算圆的面积4.2 顺序结构第32页/共88页4.2.5 应用举例例例4.3输输入入时时间间（小小时时，分分和和秒秒），然然后后使使用用输输出消息框输出总计多少秒。出消息框输出总计多少秒。使使用用文文本本框框输输入入数数据据，使使用用消消息息框框输输出出计计算算结结果果，程序运行界面如图所示。程序运行界面如图所示。4.2 顺序结构第33页/共88页4.2.5 应用举例例例4.4编编一一程程序序，求求一一内内半半径径R1=10cm，外外半半径径R2=20cm

19、的的球球环环的的体体积积。要要求求按按四四舍舍五五入入保保留留到到小小数数点后点后4位。位。解：球的体积公式解：球的体积公式:4.2 顺序结构本题所求的球环面的体积公式:第34页/共88页选择结构是根据条件选择执行不同的分支语句，以完成问题的要求。在Visual Basic程序设计中，使用IF语句和Select Case语句来处理选择结构。其特点是：根据所给定的条件成立（True）或不成立（False），从各实际可能的不同分支中执行某一分支的相应操作（程序块），并且任何情况下总有“无论条件多寡，必择其一；虽然条件众多，仅选其一”的特性。4.3 选择结构第35页/共88页1.IfThen语句(单

20、分支结构)If Then 语句块 End If 或 If Then 例例:已知两个数已知两个数x和和y，比较它们的大小，比较它们的大小，使得使得x大于大于y.IfxyThent=x:x=y:y=tEndIf或或IfxyThent=x:x=y:y=t4.3.1 If条件语句 第36页/共88页2.IfThenElse语句(双分支结构)If Then Else End If If Then Else 双分支选择结构执行过程双分支选择结构执行过程4.3 选择结构第37页/共88页例如：输出例如：输出x,y两个中值较大的一个值。两个中值较大的一个值。IF XY Then Print X Else Pr

21、int Y End If也可以写成如下的单行形式：也可以写成如下的单行形式：IF XY Then Print X Else Print Y4.3 选择结构第38页/共88页3.条件函数条件函数Iif()IIf函函数数可可用用来来执执行行简简单单的的条条件件判判断断操操作作，它它相相当当于于IFThen.Else结构。结构。IIF函数的使用格式：函数的使用格式：IIF（，）说明：说明：（1）与与IF语语句句中中的的表表达达式式相相同同，通通常常是是关关系系表表达达式式、逻逻辑辑表表达达式式，也也可可为为算算术术表表达达式式。如如果果是是算算术术表表达达式式，其值按非其值按非0为为True，0为为

22、False进行判断。进行判断。（2）当当为为真真时时，函函数数返返回回的的值值，当当为假时，函数返回为假时，函数返回的值。的值。（3）、可以是任何表达式。可以是任何表达式。例如：例如：Max=IIF（XY,X,Y）它与下面语句等价：）它与下面语句等价：IFXYThenMax=xElseMax=Y4.3 选择结构第39页/共88页4.IfThenElseIf语句(多分支结构)形式:If Then ElseIf Then Else 语句块 n+1 End If执行过程4.3 选择结构第40页/共88页例例4.6：输入一学生成绩，评定其等级。方法是：输入一学生成绩，评定其等级。方法是：90100分为

23、分为“优秀优秀”，8089分为分为“良好良好”，7079分为分为“中等中等”，6069分为分为“及格及格”，60分以为分以为“不合格不合格”4.3 选择结构使用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思考与讨论思考与讨论第41页/共88页4.3.2 Select Case语句（情况语句）形式：Select Case 变量或表达式Case 表达式列表1语句块1Case 表达式

24、列表2语句块2Case Else语句块n+1End Select数值型或字符串表达式4.3 选择结构第42页/共88页说明：与同类型的下面四种形式之一：表达式 A+5 一组枚举表达式(用逗号分隔)2,4,6,8 表达式1 To 表达式2 60 to 100 Is关系运算符表达式 Is604.3 选择结构第43页/共88页例如：将例例如：将例4.6使用使用selectcase.语句来实现的程序段如下：语句来实现的程序段如下：Select Case x Case 90 to 100 Print 优秀优秀 Case 80 to 89 Print 良好良好 Case 70 to 79 Print 中等

25、中等 Case 60 to 69 Print 及格及格 Case Else Print 不及格不及格End Select4.3 选择结构第44页/共88页2.Choose函数函数Choose函数使用格式：函数使用格式：Choose（，.）说说明明：Choose函函数数根根据据的的值值来来决决定定返返回回其其后后中中的的那那个个表表达达式式的的值值。如如果果的的值值为为1，则则返返回回的的值值，如如果果的的值值为为2，则则返返回回的的值值，以以此此类类推推。若若的值小于的值小于1或大于或大于n，则函数返回，则函数返回Null(空空)。例例如如：根根据据Nop的的值值，得得到到+、-、*，/的的运

26、运算算符符，可可由由理面语句来实现。理面语句来实现。Nop=Int（Rnd*4）+1OP=Choose（Nop,+,-,*,/）4.3 选择结构第45页/共88页4.3.3选择结构的嵌套选择结构的嵌套下面是两种正确的嵌套形式：（1）IFThen.IFThenElse.EndIf.Else.IFThen.Else.EndIf.EndIF（2）IFThen.SelectCaseCaseIFThenElse.EndIfCase.EndSelect.EndIF4.3 选择结构第46页/共88页注注意意：只只能能在在一一个个分分支支内内嵌嵌套套，不不出出现现交交叉叉。满满足足结结构构规规则则，其其嵌嵌套

27、套的的形形式式将将有有很很多多种种，嵌嵌套套层次也可以任意多。层次也可以任意多。对对于于多多层层IF嵌嵌套套结结构构中中，要要特特别别注注意意IF与与Else的的配配对对关关系系，一一个个Else必必须须与与IF配配结结，配配对对的的原原则则是是：else总总是是与与离离它它最最近近、且且尚尚未未配配对对的的if配对。配对。在在写写含含有有多多层层嵌嵌套套的的程程序序时时，建建议议使使用用缩缩进进对齐对齐方式，这样容易阅读和维护。方式，这样容易阅读和维护。4.3 选择结构第47页/共88页例例4.7设计一个用户身份验证程序，运行界面如下图所示。设计一个用户身份验证程序，运行界面如下图所示。4.

28、3 选择结构设密码分别为设密码分别为1234567（普通用户）、（普通用户）、1989643（授权用户）和（授权用户）和1687799（特许用户），按回车键表（特许用户），按回车键表示密码输入结束。如果输入密码正确，则用示密码输入结束。如果输入密码正确，则用MsgBox对话框显示对话框显示“你的口令正确你的口令正确,已通过身份验证已通过身份验证”并显示并显示用户类型；否则显示用户类型；否则显示“密码不符，要重试一遍吗！密码不符，要重试一遍吗！”（有（有“是是”和和“否否”两个按钮），当用户单击两个按钮），当用户单击“是是”则将焦点定位到文本框中、清除文本框中的内容并则将焦点定位到文本框中、清除

29、文本框中的内容并允许再输入一遍，如果单击允许再输入一遍，如果单击“否否”则退出程序。则退出程序。第48页/共88页4.4 4.4 循环结构循环结构1.For循环语句循环语句(一般用于循环次数已知一般用于循环次数已知)形式：形式：For循环变量初值循环变量初值to终值终值Step步长步长语句块语句块ExitFor语句块语句块Next循环变量循环变量循环体0初值初值终值终值当当=1时时,可省可省终值终值=0死循环死循环步长步长4.4 循环结构第49页/共88页循环次数循环次数例例:ForI=2To13Step3PrintI,NextIPrint“I=“,I循环执行次数循环执行次数:输出输出I的值分

30、别为的值分别为:25811出了循环输出为出了循环输出为:I=144.4 循环结构Int(13-2)/3+1)=4第50页/共88页例例4.8编程计算：编程计算：S=1+2+3+100Dim S%,I%Dim S%,I%S=0 S=0 累加前变量累加前变量S S为为0 0For I=1 to 100 For I=1 to 100 S=S+I S=S+INext INext IPrint S=,S Print S=,S 当当N=100N=N+1打印打印SS=0,N=1S=S+N4.4 循环结构第51页/共88页形式形式1：（当型循环）：（当型循环）DoWhile|Until语句块语句块ExitDo

31、语句块语句块Loop4.4.2DoLoop循环语句循环语句4.4 循环结构第52页/共88页形式形式2：(直到循环）直到循环）Do语句块语句块ExitDo语句块语句块LoopWhile|Until4.4 循环结构第53页/共88页条 件语句块语句块TFExit Do条 件语句块语句块TFExit DoDoUntilLoop执行过程执行过程DoLoopUntil执行过程执行过程4.4 循环结构第54页/共88页说明：说明：（1 1）当当使使用用WhileWhile 构构成成循循环环时时，当当条条件件为为“真真”，则则反反复复执执行行循循环环体体，当当条条件件为为“假假”，则退出循环。，则退出循环

32、。（2）当当使使用用Until构构成成循循环环时时，当当条条件件为为“假假”，则则反反复复执执行行循循环环体体，直直到到条条件件成成立，即为立，即为“真真”时，则退出循环。时，则退出循环。4.4 循环结构第55页/共88页（3 3）在在循循环环体体内内一一般般应应有有一一个个专专门门用用来来改改变变条条件件表表达达式式中中变变量量的的语语句句，以以使使随随着着循循环环的的执执行行，条条件件趋趋于于不不成成立立（或或成成立立），最最后后达达到到退出循环。退出循环。（4）语句）语句ExitDo的作用是的作用是退出它所在的循退出它所在的循环结构环结构，它只能用在，它只能用在DO/Loop结构中，并且

33、常结构中，并且常常是同选择结构一起出现在循环结构中，用来常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。实现当满足某一条件时提前退出循环。4.4 循环结构第56页/共88页DimSAsInteger,IAsIntegerS=0累加前变量累加前变量S为为0I=1给控制循环的变量赋初值给控制循环的变量赋初值DoWhileI100S=S+II=I+1LoopPrintS=;S例例4.9改写程序计算：改写程序计算：S=1+2+3+100第57页/共88页4.4.3WhileWend语句语句使用格式如下：使用格式如下：WhileWend说说明明：该该语语句句的的功功能能与与Do

34、 While.Loop实现的循环完全相同。实现的循环完全相同。4.4 循环结构第58页/共88页例例4.10 求两个整数的最大公约数、最小公倍数求两个整数的最大公约数、最小公倍数Dim n%,m%,nm%,r%m=Val(InputBox(m=)n=Val(InputBox(n=)nm=n*mIf mn Then t=m:m=n:n=tr=m mod nDo While(r 0)m=n n=r r=m mod nLoopPrint 最大公约数最大公约数=,n Print 最小公倍数最小公倍数=,nm/n 4.4 循环结构第59页/共88页4.4.4循环的嵌套循环的嵌套多重循环结构多重循环结构如

35、果在如果在一个循环内一个循环内完整完整地包含地包含另一个循另一个循环结构环结构，则称为多重循环，或循环嵌套。，则称为多重循环，或循环嵌套。嵌套的层数可根据需要而定，嵌套一嵌套的层数可根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。层称为二重循环，嵌套二层称为三重循环。前前面面介介绍绍的的几几种种循循环环控控制制结结构构可可以以相相互互嵌套。嵌套。4.4 循环结构第60页/共88页（1）ForI=.ForJ=.NextJ.NextI（2）ForI=.DoWhile/Until.Loop.NextI（3）DoWhile.ForJ=.NextJ.Loop（4）DoWhile/Until.D

36、oWhile/Until.Loop.Loop4.4 循环结构第61页/共88页例如例如：打印九九乘法表打印九九乘法表.Fori=1To9Forj=1To9se=i&j&=&i*jPicture1.PrintTab(j-1)*9+1);se;NextjPicture1.PrintNexti4.4 循环结构第62页/共88页对于循环的嵌套，要对于循环的嵌套，要注意注意以下事项：以下事项：(1)内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能外循环必须完全包含内循环，不能交叉；交叉；(3)不能从循环体外转向循环体内，也不能从循环体外转向循环体内，也

37、不能从外循环转向内循环。不能从外循环转向内循环。4.4 循环结构第63页/共88页Fori=1To10Forj=1To20NextiNextjFori=1To10Fori=1To20NextiNexti下面是下面是不正确不正确的嵌套的嵌套4.4 循环结构Fori=1To10Forj=1To20NextjNextiFori=1To10NextiFori=1To10Nexti下面是下面是正确正确的嵌套的嵌套第64页/共88页4.4 循环结构例例4.11：将一张面值为将一张面值为100元的人民币等值元的人民币等值换成换成100张张5元、元、1元和元和0.5元的零钞，要求每种零元的零钞，要求每种零钞不

38、少于钞不少于1张，问有哪几种组合？张，问有哪几种组合？思考与讨论思考与讨论第65页/共88页4.4.5几种循环语句比较几种循环语句比较4.4 循环结构第66页/共88页4.4.6循环结构与选择结构的嵌套循环结构与选择结构的嵌套在循环结构中可以在循环结构中可以完整嵌套完整嵌套选择结构即选择结构即整个选择结构都属于循环体。整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要在选择结构中嵌套循环结构时，则要求整个循环结构必须求整个循环结构必须完整嵌套完整嵌套在一个分支内，在一个分支内，一个循环结构不允许出现在两个或两个以上一个循环结构不允许出现在两个或两个以上的分支内。的分支内。4.4 循环结

39、构第67页/共88页（1）For I=IF Then End IF Next I（2）IF Then For I=Next I End IF4.4 循环结构（3）For I=IF Then Next I End IF第68页/共88页（4）For I=Select Case Case Case End Select Next I（5）Select Case For I=Case Case Next I End Select（6）IF Then For I=End IF Next I第69页/共88页4.5.1Goto语句语句形式形式:GoTo标号标号|行号行号作用是作用是无条件地转移无条件地转

40、移到标号或行号指定的那到标号或行号指定的那行语句。行语句。标号是一个字符序列标号是一个字符序列,行号是一个数字序列。行号是一个数字序列。例如：例如：Lp:gotoLp4.5 其它控制语句 第70页/共88页4.5.2Exit语句语句 Exit语句用于语句用于退出退出Do.Loop、For.Next、Function或或Sub代码块。代码块。对应的使用格式为：对应的使用格式为：ExitDo、ExitFor、ExitFunction、ExitSub。分别表示退出分别表示退出DO循环、循环、For循环、函数过程、循环、函数过程、子过程。子过程。4.5 其它控制语句 第71页/共88页Private

41、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 Sub4.5 其它控制语句 第72页/共88页4.5.3End语句语句形式：

42、形式：End功能：功能：结束结束一个程序的运行。一个程序的运行。在在VisualBasic中中还还有有多多种种形形式式的的End语语句句，用用于于结束一个程序块或过程。结束一个程序块或过程。其形式有：其形式有：EndIfEndSelectEndTypeEndWithEndSubEndFunction等等，它们与对应的语句配对使用。它们与对应的语句配对使用。4.5 其它控制语句 第73页/共88页4.5.4暂停语句暂停语句Stop语句用来语句用来暂停程序的执行暂停程序的执行，相当于在事件代，相当于在事件代码中设置断点。语法格式为：码中设置断点。语法格式为：Stop说明：说明：1.Stop语语句句

43、的的主主要要作作用用是是把把解解释释程程序序置置为为中中断断(Break)模模式式，以以便便对对程程序序进进行行检检查查和和调调试试。可可以以在在程程序序的的任任何何地地方方放放置置Stop语语句句，当当执执行行Stop语语句句时时，系系统将自动打开立即窗口。统将自动打开立即窗口。2.与与End语句不同。语句不同。4.5 其它控制语句 第74页/共88页4.5.5With.EndWith语句语句形式：形式：With对象名对象名语句块语句块EndWith说明：说明：With语句可以对某个对象执行语句可以对某个对象执行一系列的语句，而不用重复指出对象的名一系列的语句，而不用重复指出对象的名称。称。

44、4.5 其它控制语句 第75页/共88页例例如如，需需要要对对同同一一对对象象设设置置几几个个属属性性。途途径之一是使用多条语句。径之一是使用多条语句。Private Sub Form_Load()Command1.Caption=退出退出(E&xit)Command1.Top=500 Command1.Left=4500 Command1.Enabled=TrueEnd Sub4.5 其它控制语句 使用With.End With 语句，程序的代码如下。Private Sub Form_Load()With Command1 .Caption=退出(E&xit).Top=500 .Left=4

45、500 .Enabled=True End WithEnd Sub 第76页/共88页4.6应用程序举例应用程序举例4.6.1累计求和、求乘积、计数等问题累计求和、求乘积、计数等问题 此类问题都要使用循环，根据问题的要求，确定循环变此类问题都要使用循环，根据问题的要求，确定循环变量的初值、终值或结束条件及用来表示计数、和、阶乘的变量的初值、终值或结束条件及用来表示计数、和、阶乘的变量的初值。量的初值。例例4.12编程序计算：编程序计算：当当最最后后一一项项的的绝绝对对值值小小于于0.000001时时停停止止计计算算，输输出出其其计计算算的结果及其计算了多少项。的结果及其计算了多少项。编编程程分

46、分析析：这这是是用用来来求求级级数数和和的的一一类类题题目目，这这类类题题目目一一般般要要写写成成s=s+t（t为为通通项项）这这种种形形式式。本本题题中中相相加加的的各各项项正正负负交交替，第替，第i+1项是第项是第i项乘以项乘以1/(2*i)*(2*i+1)。程序编写如下：。程序编写如下：第77页/共88页4.6应用程序举例应用程序举例4.6.2素数与哥德巴赫猜想素数与哥德巴赫猜想例例4.14判断一个给定的整数是否为素数。判断一个给定的整数是否为素数。算算法法思思路路：素素数数指指除除了了能能被被1和和自自身身外外，不不能能被被其其他他整整数数整整除除的的自自然然数数。判判断断整整数数N是

47、是不不是是素素数数的的基基本本方方法法是是：将将N分分别别除除以以2，3，N-1，若若都都不不能能整整除除，则则N为为素素数数。因因为为N=Sqr(N)*Sqr(N)，所所以以，当当N能能被被大大于于等等于于Sqr(N)的的整整数数整整除除时时，一一定定存存在在一一个个小小于于等等于于Sqr(N)的的整整数数，使使N能能被被它它整整除除，因此只要判断因此只要判断N能否被能否被2，3，Sqr(N)整除即可。整除即可。算法流程图如下：算法流程图如下：第78页/共88页DimN%,I%,K%N=Val(InputBox(N=？)K=Int(Sqr(N)ForI=2ToKIfNModI=0ThenEx

48、itForNextIIfIKThenPrintN;是素数是素数ElsePrintN;不是素数不是素数EndIf4.6应用程序举例应用程序举例算法流程图程序代码：程序代码：第79页/共88页例例4.15编一程序验证哥德巴赫猜想：一个大于等于编一程序验证哥德巴赫猜想：一个大于等于6的偶数的偶数可以表示为两个素数之和。例如：可以表示为两个素数之和。例如：6=3+38=3+510=3+7算算法法设设计计：设设N为为大大于于等等于于6的的任任一一偶偶数数，将将其其分分解解为为N1和和N2两两个个数数，使使用用N1+N2=N，分分别别判判断断N1和和N2是是否否为为素素数数，若若都都是是，则则为为一一组组

49、解解。若若N1不不是是素素数数，就就不不必必再再检检查查N2是是否否素素数数。先先从从N1=3开开始始，直直到到N1=N/2为为止止。算算法法流流程程图图如如图图4-29所所示示。将将程程序序代代码码写写到到窗窗体的单击事件中。体的单击事件中。实现上面算法的程序代码如下：实现上面算法的程序代码如下：4.6应用程序举例应用程序举例第80页/共88页Private Sub Form_Click()Dim N%,N1%,N2%,I%,K1%,K2%N=Val(InputBox(输入大于输入大于6的偶数的偶数)For N1=3 To N 2 Step 2 K1=Int(Sqr(N1)For I=2 T

50、o K1 判断判断N1是否是素数是否是素数 If N1 Mod I=0 Then Exit For Next I If I K1 Then 如果如果N1为素数，将为素数，将N分解为分解为N1+N2 N2=N-N1 K2=Int(Sqr(N2)For I=2 To K2 判断判断N2是否是素数是否是素数 If N2 Mod I=0 Then Exit For Next I If I K2 Then 如果如果N2也为素数，则打印输出也为素数，则打印输出 Print N&=&N1&+&N2 End If End If Next N1End Sub4.6应用程序举例应用程序举例第81页/共88页4.6