VB 第四章 三种控制结构程序设计1

第四章三种基本结构程序设计本章内容及要求：1.了解算法概念及算法的表示，掌握用N—S流程序表示算法2.熟练掌握赋值语句、End语句和注释语句等语句及输入/输出消息框函数的使用；3.熟练掌握行if语句、块if结构、SelectCase情况选择结构有使用，掌握选择的嵌套结构；4.熟练掌握实现循环结构的For/Next循环结构及ExitFor语句、Do/Loop循环结构的使用，掌握多重循环。重点：选择结构及循环结构的实现及其应用难点：选择的嵌套及多重循环结构4.1算法及算法的表示4.1.1算法概述什么是算法：广义地讲：算法是为完成一项任务所应当遵循的一步一步的规则的、精确的、无歧义的描述，它的总步数是有限的。狭义地讲：算法是解决一个问题采取的方法和步骤的描述。下面通过两个简单的例子加以说明：例4.1输入三个数，然后输出其中最大的数。将三个数依次输入到变量Ａ、B、C中，设变量MAX存放最大数。其算法如下：例4.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）打印输出max1)输入A、B、C。2)A与B中大的一个放入MAX中。3)把C与MAX中大的一个放入MAX中。4)输出MAX，MAX即为最大数。4.1.2算法的特性1有穷性2确定性3有0个或多个输入4有一个或多个输出5有效性4.1.3算法的表示一、自然语言与伪代码表示算法自然语言：就是指人们日常使用的语言，可以是汉语、英语或其它语言。伪代码：是用介于自然语言和计算机语言之间的文字和符号（包括数学符号）来描述算法。例如：例4.1可用如下的伪代码表示Begin（算法开始）输入A，B，CIFAB则A→Max否则B→MaxIFCMax则C→MaxPrintMaxEnd(算法结束)二用传统流程图表示算法处理框起止框I/O框判断框流程线连接点1、传统流程图中的基本符号2、三种基本结构的表示（1）顺序结构条件语句1语句2YN语句1语句2（2）选择结构条件(a)条件语句组（3）循环结构a)当型循环b)直到循环YNYN(b)语句组三种基本结构的特点：（1）只有一个入口（2）只有一个出口（3）不存在死语句（4）不存在死循环例：例4.2输入10个数，打印输出其中的最大的数的流程图从10个数中选出最大的数的流程图N10Max=AN=1AMaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY4.1.4用N—S流程图表示算法将全部算法写在一个矩形框内，在矩形内还可包含其它从属于它的框三种基本结构的N—S图表示：语句A语句B语句A语句B条件YN1、顺序结构2、选择结构语句组（3）循环结构a)当型循环b)直到循环当条件成立语句组直到当条件成立例：画出从10个数中选出最大的数的N—S流程图(a)(b)传统流程图N10Max=AN=1AMaxMax=A输入A开始再输入给AN=N+1打印Max结束YNNY输入A当N=10Max=AN=N+1打印Max输入AN—S流程图A=MaxYNPrivateSubForm_Click()Dima%,max%,i%max=aFori=1To10a=Val(InputBox(A=?))IfamaxThenmax=aNextiPrintMax=;maxEndSub最后需要说明的是：上面介绍的算法表示是给人看的，即是为帮助程序开发人员阅读、编写程序而设计的一种辅助工具，程序则必须符一计算机语言的语法规则。下面是例4.2的计算机程序，即为用计算机语言表示算法：4.1.6结构化程序设计方法（补充）（一）、用计算机解决问题的过程提出、分析问题确定算法模型设计算法编写程序调试程序分析输出结果正确合理结束（二）、结构化程序设计思想自顶向下、逐步细化、模块化自顶向下：先从全局、整体设计逐步细化：将一个问题分解成几个较小的问题解决模块化：将一个大任务分解成若干个较小的部分，每个部分承担一定功能，称为“功能模块”例：给100个整数，打印输出其中的素数S1N—S流程图输入100个数存入X1，x2,……x100打印x1…..x100中不等于0的数让x1，x2,……x100中的非素变为0S3S2输入xi当i=100i=i+1i=1xi≠0当i=100i=i+1i=1YN打印xiS1N—S流程图输入100个数存入X1，x2,……x100打印x1…..x100中不等于0的数让x1，……x100中的非素变为0S3S2判断xi是否是素数，若不是则将xi=0当i=100i=i+1i=1S21r=0r=将x1除j的余j=j+1j=2YNxi=0直到jxi/2输入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直到jxi/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.2数据的输出——Print方法Print方法的一般格式：[对象名.]Print［表达式表］[{，|；}]说明：[对象名.]可以是窗体名、图片框名，也可是立即窗口“Debug”。若省略对象，则表示在当前窗体上输出。在2.3节窗体对象的方法中对Print方法做了详细的介绍。用Print方法在图片框和立即窗口对象中输出与在窗体对象中输出完全相同。缺省值标题题提示4.2.3用户交互函数和过程1.InputBox函数变量名=InputBox[$](提示信息[，标题][，缺省][，x坐标][，y坐标])其中:提示提示信息,标题标题区显示,缺省输入区缺省值有$返回字符类型,否则为数值类型.例如，要在屏幕上显示如下的对话框:例如：有下列语句如下:DimstrNameAsString*40，strS1AsString*40strS1=“请输入你的姓名”+Chr(13)+Chr(10)+“然后单击确定”strName=InputBox$(strS1，“输入框”，，100，100)当键盘输入“王晓明”后,变量strName获得键盘输入的值.缺省值标题题提示2.MsgBox函数和MsgBox过程函数形式:变量[%]=MsgBox(提示[,按钮[＋图标]+[缺省按钮]+[模式]][，标题])过程形式:MsgBox提示[,按钮[＋图标]+[缺省按钮]+[模式]][,标题]图标标题提示信息命令按钮说明：１“标题”和“提示”与InputBox函数中对应的参数相同；２“按钮＋图标+缺省按钮+模式”是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式(见表4.1)３若程序中需要返回值，则使用函数，否则可调用过程。按钮及图标值如下:根据用户所选按钮，函数返回1—7的整数值，其含义如下表:（表4.2)MsgBox函数示例本示例使用MsgBox函数，在具有“是”及“否”按钮的对话框中显示一条严重错误信息。示例中的缺省按钮为“否”，MsgBox函数的返回值视用户按哪一个钮而定。本示例假设DEMO.HLP为一帮助文件，其中有一个内容代码为1000。DimMsg,Style,Title,Help,Ctxt,Response,MyStringMsg=“Doyouwanttocontinue?”‘定义信息。Style=vbYesNo+vbCritical+vbDefaultButton2‘定义按钮。Title=“MsgBoxDemonstration”‘定义标题。Help=“DEMO.HLP”‘定义帮助文件。Ctxt=1000'定义标题'上下文。'显示信息。Response=MsgBox(Msg,Style,Title,Help,Ctxt)IfResponse=vbYesThen‘用户按下“是”。MyString=“Yes”‘完成某操作。Else‘用户按下“否”。MyString=“No”‘完成某操作。EndIf4.2.4注释语句其语法格式为：Rem注释内容或'注释内容说明：1.注释内容指要包括的任何注释文本。在Rem关键字和注释内容之间要加一个空格。可以用一个英文单引号“'”来代替Rem关键字。2.如果在其他语句行后面使用Rem关键字，必需用冒号(：)与语句隔开。若用英文单引号“'”，则在其他语句行后面不必加冒号(：)。例如：ConstPI=3.1415925'符号常量PIS=PI*r*r:Rem计算圆的面积4.3选择结构1.If…Then语句(单分支结构)If表达式Then语句块EndIf或If表达式Then语句tyx图1-3-8两个数交换过程例:已知两个数x和y，比较它们的大小，使得x大于y.IfxyThent=x:x=y:y=tEndIf或IfxyThent=x:x=y:y=t2.If…Then…Else语句(双分支结构)If表达式Then语句块1Else语句块2EndIfIf表达式Then语句1Else语句2例如：输出x,y两个中值较大的一个值。IFXYThenPrintXElsePrintYEndIf也可以写成如下的单行形式：IFXYThenPrintXElsePrintY双分支选择结构执行过程例4.1设计一个求解一元二次方程的程序3.If…Then…ElseIf语句(多分支结构)形式:If表达式1Then语句块1ElseIf表达式2Then语句块2…[Else语句块n+1]EndIf例：输入一学生成绩，评定其等级。方法是：90~100分为“优秀”，80~89分为“良好”，70~79分为“中等”，60~69分为“及格”，60分以为“不合格”执行过程使用IF语句实现的程序段如下：Ifx=90thenPrint优秀ElseIfx=80ThenPrint良好ElseIfx=70ThenPrint中等ElseIfx=60ThenPrint及格ElsePrint不及格EndIf4.3.2SelectCase语句（情况语句）形式：SelectCase变量或表达式Case表达式列表1语句块1Case表达式列表2语句块2…[CaseElse语句块n+1]EndSelect表达式列表：与变量或表达式同类型的下面四种形式之一：表达式例:A+5一组枚举表达式(用逗号分隔)2,4,6,8表达式1To表达式260to100Is关系运算符表达式Is60数值型或字符串表达式例如：将例4.3使用selectcase…..语句来实现的程序段如下：SelectCasexCase90to100Print优秀Case80to89Print良好Case70to79Print中等Case60to69Print及格CaseElsePrint不及格EndSelect例题：设计一个由计算机来当小学低年级学生算术老师的VB应用程序，要求给出一系列的两个1~10数的四则运算的算术题，