VB60教程电子课件-第4章程序设计的3种基本结构

第四章程序设计的3种根本结构本章内容及要求：

1.了解算法概念及表示，掌握用N—S流程图表示算法；2.熟练掌握赋值语句、输入/输出消息框函数的使用；3.熟练掌握行if语句、块if结构、SelectCase情况选择结构有使用，掌握选择的嵌套结构；4.熟练掌握实现循环结构的For/Next循环结构及ExitFor语句、Do/Loop循环结构的使用，掌握多重循环。重点：选择结构及循环结构的实现及其应用难点：选择的嵌套及多重循环结构4.1算法及算法的表示4.1.1算法概述什么是算法：广义地讲：算法是为完成一项任务所应当遵循的一步一步的规那么的、精确的、无歧义的描述，它的总步数是有限的。狭义地讲：算法是解决一个问题采取的方法和步骤的描述。下面通过两个简单的例子加以说明：1)输入A、B、C。2)A与B中大的一个放入MAX中。3)把C与MAX中大的一个放入MAX中。4)输出MAX，MAX即为最大数。例4.1输入三个数，然后输出其中最大的数。

将三个数依次输入到变量Ａ、B、C中，设变量MAX存放最大数。其算法如下：

4.1算法及算法的表示例4.2输入10个数，打印输出其中最大的数。算法设计如下：〔1〕输入1个数,存入变量A中,将记录数据个数的变量N赋值为1，即N=1〔2〕将A存入表示最大值的变量Max中，即Max=A〔3〕再输入一个值给A，如果A>Max那么Max=A,否那么Max不变〔4〕让记录数据个数的变量增加1，即N=N+1〔5〕判断N是否小于10，假设成立那么转到第〔3〕步执行，否那么转到第〔6〕步〔6〕打印输出max4.1算法及算法的表示4.1.2算法的特性有穷性确定性有0个或多个输入有一个或多个输出有效性4.1算法及算法的表示4.1.3算法的表示一、自然语言与伪代码表示算法自然语言：就是指人们日常使用的语言，可以是汉语、英语或其它语言。伪代码：是用介于自然语言和计算机语言之间的文字和符号〔包括数学符号〕来描述算法。4.1算法及算法的表示例如：例4.1可用如下的伪代码表示Begin〔算法开始〕输入A，B，CIFA>B那么A→Max否那么B→MaxIFC>Max那么C→MaxPrintMaxEnd(算法结束)4.1算法及算法的表示二用传统流程图表示算法处理框起止框I/O框判断框流程线连接点1、传统流程图中的根本符号4.1算法及算法的表示2、三种根本结构的表示〔1〕顺序结构条件语句1语句2YN语句1语句2〔2〕选择结构4.1算法及算法的表示〔3〕循环结构a)当型循环b)直到循环条件语句组YN(b)条件(a)YN语句组4.1算法及算法的表示三种根本结构的特点：〔1〕只有一个入口〔2〕只有一个出口〔3〕不存在死语句〔4〕不存在死循环例：例4.2输入10个数，打印输出其中的最大的数的流程图4.1算法及算法的表示从10个数中选出最大的数的算法流程图N<10Max=AN=1A>MaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY4.1算法及算法的表示4.1.4用N—S流程图表示算法将全部算法写在一个矩形框内，在矩形内还可包含其它附属于它的框三种根本结构的N—S图表示：语句A语句B语句A语句B条件YN1、顺序结构2、选择结构4.1算法及算法的表示〔3〕循环结构a)当型循环b)直到循环例：画出从10个数中选出最大的数的N—S流程图语句组当条件成立(a)语句组直到当条件成立(b)4.1算法及算法的表示传统流程图N<10Max=AN=1A>MaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY输入A当N<10Max=AN=N+1打印MaxMax=A,N=1N—S流程图A>MaxYN输入A4.1算法及算法的表示PrivateSubForm_Click()Dima%,max%,i%a=Val(InputBox("A=?"))max=aFori=1To10a=Val(InputBox("A=?"))Ifa>maxThenmax=aNextiPrint"Max=";maxEndSub下面是例4.2的计算机程序，即为用计算机语言表示算法：4.1算法及算法的表示4.1.6结构化程序设计方法〔补充〕〔一〕、用计算机解决问题的过程提出、分析问题确定算法模型设计算法编写程序调试程序分析输出结果正确合理结束不正确4.1算法及算法的表示〔二〕、结构化程序设计思想自顶向下、逐步细化、模块化自顶向下：先从全局、整体设计逐步细化：将一个问题分解成几个较小的问题解决模块化：将一个大任务分解成假设干个较小的局部，每个局部承担一定功能，称为“功能模块〞例：给100个整数，打印输出其中的素数4.1算法及算法的表示S1N—S流程图输入100个数存入X1，x2,……x100打印x1…..x100中不等于0的数让x1，x2,……x100中的非素变为0S3S2输入xi当i<=100i=i+1i=1S1细化xi≠0当i<=100i=i+1i=1YN打印xiS3细化4.1算法及算法的表示S1N—S流程图输入100个数存入X1，x2,……x100打印x1…..x100中不等于0的数让x1，……x100中的非素变为0S3S2S2细化判断xi是否是素数，若不是则将xi=0当i<=100i=i+1i=1S21r=0r<=将x1除j的余j=j+1j=2YNxi=0直到j>xi/2S21细化4.1算法及算法的表示输入100个数存入X1，x2,……x100打印x1…..x100中不等于0的数让x1，……x100中的非素变为0细化后的流程图输入xi当i<=100i=i+1i=1当i<=100i=1r=0r=xi%jj=j+1j=2YNxi=0直到j>xi/2i=i+1xi≠0当i<=100i=1YN打印xii=i+14.2顺序结构4.2.1赋值语句形式:变量名＝表达式对象.属性＝表达式功能：将表达式的值赋值给变量名或指定对象的属性。一般用于给变量赋值或对控件设定属性值.例：sRate!=0.1Text1.Text＝"欢送使用VisualBasic6.0〞说明：1执行过程：先求表达式的值，然后将值赋值给左边的变量。2右边的表达式可以是变量、常量、函数调用等特殊的表达式。3不要将“＝〞理解为数学上的等号：A=A+1是表示将A单元的值加１后以放回到A单元。执行过程如右图4．赋值符号“=〞左边一定只能是变量名或对象的属性引用，不能是常量、符号常量、表达式。下面的赋值语句都是错的：5=X'左边是常量。Abs(X)=20'左边是函数调用，即是表达式。5.赋值符号“=〞两边的数据类型一般要求应一致。4.2顺序结构4.2.2数据的输出——Print方法Print方法的一般格式：[对象名.]Print［<表达式表>］[{，|；}]说明：[对象名.]可以是窗体名、图片框名，也可是立即窗口“Debug〞。假设省略对象，那么表示在当前窗体上输出。用Print方法在图片框和立即窗口对象中输出与在窗体对象中输出完全相同。4.2顺序结构4.2.3用户交互函数和过程

1.InputBox函数变量名=InputBox[$](<提示信息>[，<标题>][，<缺省>][，<x坐标>][，<y坐标>])

其中:提示提示信息,标题标题区显示,缺省输入区缺省值。例如，要在屏幕上显示如下的对话框:4.2顺序结构例如：有以下语句如下:Dimx%x=Val(InputBox(“请输入一个数〞,“输入框〞,100))语句执行后翻开如下对话框。缺省值标题提示4.2顺序结构2.MsgBox函数和MsgBox过程函数形式:变量[%]=MsgBox(提示[,按钮[＋图标]+[缺省按钮]+[模式]][，标题])过程形式:MsgBox提示[,按钮[＋图标]+[缺省按钮]+[模式]][,标题]图标标题提示信息命令按钮4.2顺序结构说明：１“标题〞和“提示〞与InputBox函数中对应的参数相同；２“按钮＋图标+缺省按钮+模式〞是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式(见表4.1)３假设程序中需要返回值，那么使用函数，否那么可调用过程。4.2顺序结构按钮及图标值如下:根据用户所选按钮，函数返回1—7的整数值，其含义如下表:〔表4.2)4.2顺序结构4.2.4注释语句其语法格式为：Rem<注释内容>或'<注释内容>说明：1.<注释内容>指要包括的任何注释文本。在Rem关键字和注释内容之间要加一个空格。可以用一个英文单引号“'〞来代替Rem关键字。2.如果在其他语句行后面使用Rem关键字，必需用冒号(：)与语句隔开。假设用英文单引号“'〞，那么在其他语句行后面不必加冒号(：)。例如：ConstPI=3.1415925'符号常量PIS=PI*r*r :Rem计算圆的面积4.2顺序结构4.2.5应用举例例4.3输入时间〔小时，分和秒〕，然后使用输出消息框输出总计多少秒。使用文本框输入数据，使用消息框输出计算结果，程序运行界面如图3-14所示。4.2顺序结构图4-14程序运行界面4.2.5应用举例例4.4编一程序，求一内半径R1=10cm，外半径R2=20cm的球环的体积。要求按四舍五入保存到小数点后4位。解：球的体积公式:此题所求的球环面的体积公式:4.2顺序结构选择结构是根据条件选择执行不同的分支语句，以完成问题的要求。在VisualBasic程序设计中，使用IF语句和SelectCase语句来处理选择结构。其特点是：根据所给定的条件成立〔True〕或不成立〔False〕，从各实际可能的不同分支中执行某一分支的相应操作〔程序块〕，并且任何情况下总有“无论条件多寡，必择其一；虽然条件众多，仅选其一〞的特性。4.3选择结构4.3.1If条件语句

1.If…Then语句(单分支结构)

If<表达式>Then语句块EndIf

或

If<表达式>Then<语句>

例:两个数x和y，比较它们的大小，使得x大于y.Ifx<yThent=x:x=y:y=tEndIf或Ifx<yThent=x:x=y:y=t4.3选择结构2.If…Then…Else语句(双分支结构)

If<表达式>Then<语句块1>Else<语句块2>EndIf

If<表达式>Then<语句1>Else<语句2>

双分支选择结构执行过程4.3选择结构例如：输出x,y两个中值较大的一个值。IFX>YThenPrintX

ElsePrintYEndIf也可以写成如下的单行形式：IFX>YThenPrintXElsePrintY4.3选择结构3.条件函数Iif()IIf函数可用来执行简单的条件判断操作，它相当于IF…Then….Else结构。IIF函数的使用格式：IIF〔<表达式>，<表达式1>，<表达式2>〕说明：〔1〕<表达式>与IF语句中的表达式相同，通常是关系表达式、逻辑表达式，也可为算术表达式。如果是算术表达式，其值按非0为True，0为False进行判断。〔2〕当<表达式>为真时，函数返回<表达式1>的值，当<表达式>为假时，函数返回<表达式2>的值。〔3〕<表达式1>、<表达式2>可以是任何表达式。例如：Max=IIF〔X>Y,X,Y〕它与下面语句等价：IFX>YThenMax=xElseMax=Y4.3选择结构4.If…Then…ElseIf语句(多分支结构)

形式:

If<表达式1>Then <语句块1> ElseIf<表达式2>Then <语句块2> … [Else 语句块n+1] EndIf执行过程4.3选择结构使用IF语句实现的程序段如下：Ifx>=90thenPrint"优秀"ElseIfx>=80ThenPrint"良好"ElseIfx>=70ThenPrint"中等"ElseIfx>=60ThenPrint"及格"ElsePrint"不及格"EndIf例4.4：输入一学生成绩，评定其等级。方法是：90~100分为“优秀〞，80~89分为“良好〞，70~79分为“中等〞，60~69分为“及格〞，60分以为“不合格〞4.3选择结构4.3.2SelectCase语句〔情况语句〕形式： SelectCase变量或表达式 Case表达式列表1 语句块1 Case表达式列表2 语句块2 … [CaseElse 语句块n+1] EndSelect数值型或字符串表达式4.3选择结构说明：<表达式列表>：与<变量或表达式>同类型的下面四种形式之一：表达式A+5

一组枚举表达式(用逗号分隔)

2,4,6,8

表达式1To表达式2

60to100 Is关系运算符表达式

Is<604.3选择结构例如：将例4.3使用selectcase…..语句来实现的程序段如下：SelectCasexCase90to100Print"优秀"Case80to89Print"良好"Case70to79Print"中等"Case60to69Print"及格"CaseElsePrint"不及格"EndSelect4.3选择结构2.Choose函数Choose函数使用格式：Choose〔<数值表达式>，<表达式1>，<表达式2>，….<表达式n>〕说明：Choose函数根据<数值表达式>的值来决定返回其后<表达式列表>中的那个表达式的值。如果<数值表达式>的值为1，那么返回<表达式1>的值，如果<数值表达式>的值为2，那么返回<表达式2>的值，以此类推。假设<数值表达式>的值小于1或大于n，那么函数返回Null。例如：根据Nop的值，得到+、-、*，/的运算符，可由理面语句来实现。Nop=Int〔Rnd*4〕+1OP=Choose〔Nop,"+","-","*","/"〕4.3选择结构4.3.3选择结构的嵌套下面是两种正确的嵌套形式：〔1〕IF<条件1>Then…..IF<条件2>Then……Else…..EndIf….Else….IF<条件3>Then…..Else…..EndIf…..EndIF〔2〕IF<条件1>Then…..SelectCase…Case……IF<条件2>Then……Else…..EndIf……Case….…..EndSelect….EndIF4.3选择结构注意：只要在一个分支内嵌套，不出现交叉，满足结构规那么，其嵌套的形式将有很多种，嵌套层次也可以任意多。对于多层IF嵌套结构中，要特别注意IF与Else的配对关系，一个Else必须与IF配结，配对的原那么是：在写含有多层嵌套的程序时，建议使用缩进对齐方式，这样容易阅读和维护。例4.5设计一个用户身份验证程序，运行界面如以下图所示。4.3选择结构4.4循环结构1.For循环语句(一般用于循环次数)形式：For循环变量＝初值to终值[Step步长] 语句块 [ExitFor] 语句块Next循环变量循环体>0初值<终值=1时,可省略<0初值>终值=0死循环步长4.4循环结构循环次数例:ForI=2To13Step3PrintI,NextIPrint“I=“,I循环执行次数输出I的值分别为:25811出了循环输出为:I=144.4循环结构例4.6编程计算：S=1+2+3+…+100DimS%,I%S=0'累加前变量S为0ForI=1to100S=S+INextIPrint"S=",S当N<=100N=N+1打印SS=0,N=1S=S+N例4-5的算法流程图4.4循环结构形式1：〔当型循环〕Do{While|Until}<条件>语句块[ExitDo]语句块Loop4.4.2Do…Loop循环语句4.4循环结构形式2：(直到循环〕 Do 语句块 [ExitDo] 语句块 Loop{While|Until}<条件>4.4循环结构条件语句块语句块TFExitDo条件语句块语句块TFExitDoDoUntil…Loop执行过程Do…LoopUntil执行过程4.4循环结构说明：〔1〕当使用While<条件>构成循环时，当条件为“真〞，那么反复执行循环体，当条件为“假〞，那么退出循环。〔2〕当使用Until<条件>构成循环时，当条件为“假〞，那么反复执行循环体，直到条件成立，即为“真〞时，那么退出循环。〔3〕在循环体内一般应有一个专门用来改变条件表达式中变量的语句，以使随着循环的执行，条件趋于不成立〔或成立〕，最后到达退出循环。〔4〕语句ExitDo的作用是退出它所在的循环结构，它只能用在DO/Loop结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。4.4循环结构4.4.3While…Wend语句使用格式如下：While<条件><循环块>Wend

说明：该语句的功能与DoWhile<条件>….Loop实现的循环完全相同。例：用do…Loop语句改写前面的例题4.54.4循环结构例4.8

求两个整数的最大公约数、最小公倍数Dimn%,m%,nm%,r%m=Val(InputBox("m="))n=Val(InputBox("n="))nm=n*mIfm<nThent=m:m=n:n=tr=mmodnDoWhile(r<>0)m=nn=rr=mmodnLoopPrint"最大公约数=",nPrint"最小公倍数=",nm/n算法流程图4.4循环结构4.4.4循环的嵌套——多重循环结构如果在一个循环内完整地包含另一个循环结构，那么称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：4.4循环结构〔1〕ForI=….…..ForJ=….….NextJ…..NextI〔2〕ForI=….…..DoWhile/Until….….Loop…..NextI〔3〕DoWhile….…..ForJ=….….NextJ…..Loop〔4〕DoWhile/Until….…..DoWhile/Until….….Loop…..Loop4.4循环结构例如：打印九九乘法表.

Fori=1To9Forj=1To9se=i&"×"&j&"="&i*jPicture1.PrintTab((j-1)*9+1);se;NextjPicture1.PrintNexti4.4循环结构Fori=1To10Forj=1To20… NextjNextiFori=1To10…NextiFori=1To10…Nexti对于循环的嵌套，要注意以下事项：(1)内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；(3)不能从循环体外转向循环体内，也不能从外循环转向内循环.下面是正确的嵌套

4.4循环结构

Fori=1To10Forj=1To20… Nexti NextjFori=1To10Fori=1To20… Nexti Nexti下面是不正确的嵌套

4.4循环结构对于循环的嵌套，要注意以下事项：(1)内循环变量与外循环变量不能同名；(2)外循环必须完全包含内循环，不能交叉；(3)不能从循环体外转向循环体内，也不能从外循环转向内循环.

4.4循环结构4.4.5几种循环语句比较4.4循环结构4.4.6循环结构与选择结构的嵌套在循环结构中可以完整嵌套选择结构即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，那么要求整个循环结构必须完整地嵌套在一个分支内，一个循环结构不允许出现在两个或两个以上的分支内。4.4循环结构〔1〕ForI=…………IF…Then……EndIF……NextI〔6〕IF…Then……ForI=…………EndIF……NextI〔5〕SelectCase……ForI=…………Case…………Case…………NextI………EndSelect〔3〕ForI=…………IF…Then……NextI……EndIF〔2〕IF…Then……ForI=…………NextI……EndIF〔4〕ForI=…………SelectCase…Case…………Case…………EndSelect……NextI×××4.4循环结构4.5.1Goto语句形式:GoTo{标号|行号}作用是无条件地转移到标号或行号指定的那行语句.标号是一个字符序列,行号是一个数字序列。例如：Lp:………………gotolp

4.5其它控制语句

4.5.2Exit语句

Exit语句用于退出Do...Loop、For...Next、Function或Sub代码块。对应的使用格式为：ExitDo、ExitFor、ExitFunction、ExitSub。分别表示退出DO循环、For循环、函数过程、子过程。例如：下面的例子是使用Exit语句退出For...Next循环、Do...Loop循环及子过程。4.5其它控制语句

PrivateSubForm_Click()DimI%,Num%DoWhileTrue'建立无穷循环。ForI=1To100'循环100次。Num=Int(Rnd*100)'生成一个0~99的随机数。SelectCaseNumCase10:ExitFor'退出For...Next循环。Case50:ExitDo'退出Do...Loop循环。Case64:ExitSub'退出子过程。EndSelectNextILoopEndSub4.5其它控制语句

4.5.3End语句形式：End

功能：结束一个程序的运行。在VisualBasic中还有多种形式的End语句，用于结束一个程序块或过程。其形式有：EndIfEndSelectEndTypeEndWithEndSubEndFunction等，它们与对应的语句配对使用。4.5其它控制语句

4.5.4暂停语句Stop语句用来暂停程序的执行，相当于在事件代码中设置断点。语法格式为：Stop说明：1.Stop语句的主要作用是把解释程序置为中断(Break)模式，以便对程序进行检查和调试。可以在程序的任何地方放置Stop语句，当执行Stop语句时，系统将自动翻开立即窗口。2.与End语句不同。4.5其它控制语句

4.5.5With...EndWith语句形式：With对象名语句块EndWith说明：With语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。例如，要改变一个对象的多个属性，可以在With控制结构中加上属性的赋值语句，这时候只是引用对象一次而不是在每个属性赋值时都要引用它。下面的例子显示了如何使用With语句来给同一个对象的几个属性赋值。4.5其它控制语句

例如，需要对同一对象设置几个属性。途径之一是使用多条语句。PrivateSubForm_Load()Command1.Caption="退出(E&xit)"Command1.Top=500Command1.Left=4500Command1.Enabled=TrueEndSub4.5其它控制语句

使用With...EndWith语句，上面程序的代码如下。PrivateSubForm_Load()WithCommand1.Caption="退出(E&xit)".Top=500.Left=4500.Enabled=TrueEndWithEndSub4.5其它控制语句

4.6应用程序举例4.6.1累计求和、求乘积、计数等问题

此类问题都要使用循环，根据问题的要求，确定循环变量的初值、终值或结束条件及用来表示计数、和、阶乘的变量的初值。

例4.12编程序计算：当最后一项的绝对值小于0.000001时停止计算，输出其计算的结果及其计算了多少项。编程分析：这是用来求级数和的一类题目，这类题目一般要写成s=s+t〔t为通项〕这种形式。此题中相加的各项正负交替，第i+1项是第i项乘以1/((2*i)*(2*i+1))。程序编写如下：4.6应用程序举例4.6.2素数与哥德巴赫猜测例4.13判断一个给定的整数是否为素数。算法思路：素数指除了能被1和自身外，不能被其他整数整除的自然数。判断整数N是不是素数的根本方法是：将N分别除以2，3，…，N-1，假设都不能整除，那么N为素数。因为N=Sqr(N)*Sqr(N)，所以，当N能被大于等于Sqr(N)的整数整除时，一定存在一个小于等于Sqr(N)的整数，使N能被它整除，因此只要判断N能否被2，3，…，Sqr(N)整除即可。算法流程图如下：DimN%,I%,K%N=Val(InputBox("N=？"))K=Int(Sqr(N))ForI=2ToKIfNModI=0ThenExitForNextIIfI>KThenPrintN;"是素数"ElsePrintN;"不是素数"EndIf4.6应用程序举例算法流程图程序代码：例4.14编一程序验证哥德巴赫猜测：一个大于等于6的偶数可以表示为两个素数之和。例如：6=3+38=3+510=3+7算法设计：设N为大于等于6的任一偶数，将其分解为N1和N2两个数，使用N1+N2=N，分别判断N1和N2是否为素数，假设都是，那么为一组解。假设N1不是素数，就不必再检查N2是否素数。先从N1=3开始，直到N1=N/2为止。算法流程图如图4-29所示。将程序代码写到窗体的单击事件中。实现上面算法的程序代码如下：4.6应用程序举例PrivateSubForm_Clic