第-章-Visual-Basic程序控制结构优秀文档

第3章VisualBasic程序控制结构

3.1顺序结构3.2选择结构3.3循环结构第三章VB程序控制结构3.1顺序结构编写程序时，我们一条一条地书写指令，如果按照指令的书写顺序执行程序，这种结构就是顺序结构第三章VB程序控制结构指令一指令二指令三3.1.1赋值语句

用赋值语句可以把指定的值赋给某个变量或某个带有属性的对象，其一般格式为：[Let]目标操作符=源操作符例如：Totla=99 ’把数值常量99赋给变量Total（’是注释符）BitCount=ByteCount*8第三章VB程序控制结构说明：这里的“源操作符”包括变量（简单变量或下标变量）、表达式（数值表达式、字符表达式或逻辑表达式）、常量及带有属性的对象；而“目标操作符”指的是变量和带有属性的对象；“=”称为“赋值号”。赋值语句的功能是把“源操作符”的值赋给“目标操作符”。“Let”可省略3.1.2数据输入和输出一般格式为：[对象名称.]Print[表达式][,|;]一、数据输出—Print方法说明：例如：Picture1.Print“MicrosoftVisualBasci”1、“对象名称”可以是窗体（Form）、图片框（PictureBox）或打印机（Printer），也可以是立即窗口（Debug）。如果省略“对象名称”，则在当前窗体上输出。2、如果省略“表达式”，则输出一个空行3、如果输出的各表达式之间用逗号分隔，则按标准输出格式（分区输出格式）显示数据项4、如果各输出项之间用分号或空格作分隔符，则按紧凑输出格式输出数据第三章VB程序控制结构二、与Print方法有关的函数1．Tab函数格式：Tab(n)说明：Tab函数把光标移到由参数n指定的位置，从这个位置开始输出信息。要输出的内容放在Tab函数的后面，并用分号隔开。例如：PrintTab(25);800将在第25个位置输出数值800。2．Spc函数格式：Spc(n)说明：在Print的输出中，用Spc函数可以跳过n个空格。例如：Print“ABC”;Spc(8);”DEF”将首先输出“ABC”，然后跳过8个空格，输出“DEF”。输出结果为：ABCDEF第三章VB程序控制结构三、输出格式用格式输出语句Format$可以使数值或日期按指定的格式输出。一般格式为：Format$(数值表达式，格式字符串)字符作用#数字；不在前面或后面补00数字；在前面或后面补0.小数点,千位分隔符%百分比符号$美元符号—、+负、正号E+、E—指数符号第三章VB程序控制结构例如：PrintFormat$(25634,”00000000”)<CR> 00025634PrintFormat$(25634,”########”<CR>25634PrintFormat$(850.72,”###.##”) <CR>Printformat$(12345.67,”####,##.##”)<CR>Printformat$(.257,”00.0%”) <CR> 25.7%第三章VB程序控制结构四、数据输入—InputBox函数InputBox函数可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。其格式为：InputBox(prompt[,title][,default][,xpos,ypos][,helpfile,context])（1）Prompt：是一个字符串，其长度不得超过1024个字符，它是在对话框内显示的信息，用来提示用户输入。在对话框内显示prompt时，可以自动换行。如果想按自己的要求换行，则须插入回车换行操作，即：Chr$(13)+Chr$(10)说明：（2）title：字符串，它是对话框的标题，显示在对话框顶部的标题区。第三章VB程序控制结构（3）default：字符串，用来显示输入缓冲区的默认信息。如果用户不想用这个默认字符串作为输入值，则可在输入区直接键入数据，以取代默认值；如果省略该参数，则对话框的输入区为空白，等待用户键入信息。（4）xpos，ypos：是两个整数值，分别用来确定对话框与屏幕左边的距离(xpos)和上边的距离（ypos。这两个参数必须全部给出，或者全部省略。如果省略这一对位置参数，则对话框显示在、屏幕中心线向下约三分之一处。标题xpos，ypos输入区prompt（5）helpfile，context：helpfile用来表示帮助文件的名字;context用来表示相关帮助主题的帮助目录号。第三章VB程序控制结构五、MsgBox函数和MsgBox语句1．MsgBox函数格式如下：MsgBox(msg[,type][,title][,helpfile,context]说明：该函数有5个参数，除第一个参数外，其余参数都是可选的。各参数的含义如下：（1）msg：是一个字符串，该字符串的内容将在由MsgBox函数产生的对话框内显示。（2）type：是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。该参数的值由4类数值相加产生，这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置及强制返回，见表所示。第三章VB程序控制结构序号符号常量值作用1vbOKOnly0只显示“确定”按钮2vbOKCancel1显示“确定”及“取消”按钮3vbAbortRetryIgnore2显示“终止”、“重试”及“忽略”按钮4vbYesNoCancel3显示“是”、“否”及“取消”按钮5vbYesNo4显示“是”、“否”按钮6vbRetryCancel5显示“重试”及“取消”按钮7vbCritical16显示CriticalMessage图标8vbQuestion32显示WarningQuery图标9vbExclamation48显示WarningMessage图标10vbInformation64显示InformationMessage图标11vbDefaultButton10第一个按钮是默认值12vbDefaultButton2256第二个按钮是默认值13vbDefaultButton3512第三个按钮是默认值14vbDefaultButton4768第四个按钮是默认值15vbApplicationModal0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作16vbSystemModal4096系统强制返回：全部应用程序都被挂起，直到用户对消息框作出响应才能继续工作第三章VB程序控制结构（3）title：是一个字符串，用来显示对话框的标题。返回值操作符号常量1选“确定”按钮vbOk2选“取消”按钮vbCancel3选“终止”按钮vbAbort4选“重试”按钮Vbretry5选“忽略”按钮vbIgnore6选“是”按钮vbYes7选“否”按钮vbNo（4）helpfile，context：同InputBox函数。（5）MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关。见表第三章VB程序控制结构2、MsgBox语句Msgbox函数也可以写成语句形式，即： MsgBoxMsg$[,type%][,title$[],helpfile,context]例如： MsgBox“文件保存成功“执行上面的语句，显示的信息如图所示。说明：各参数的含义及作用与MsgBox函数相同，由于MsgBox语句没有返回值，因而常用于较简单的信息显示。第三章VB程序控制结构3.1.3注释、暂停与程序结束语句为了提高程序的可读性，通常应在程序的适当位置加上必要的注释。VisualBasic中的注释是“Rem”或一个撇号“’”一、注释语句例:A=5:b=6:c=7 ‘对变量a、b、c赋值Stop语句用来暂停程序的执行二、暂停语句（Stop）第三章VB程序控制结构（3）在格式（1）中，While和Until放在循环的末尾，分别叫做Do……LoopWhile和Do……LoopUntil循环，它们的逻辑流程分别如图所示。第三章VB程序控制结构在VisualBasic中，这样的问题通过选择结构程序来解决，而选择结构通过条件语句来实现。第三章VB程序控制结构3While…Wend循环结构否则执行一次“循环体”，然后把“循环变量+步长”的值赋给“循环变量”，重复上述过程。[Case表达式表列2第三章VB程序控制结构（4）在格式2中，While和Until放在循环的开头，即紧跟在关键字Do之后，组成两种循环，分别叫做DoWhile……Loop循环和DoUntil……Loop循环，它们的执行过程分别如图所示。End语句通常用来结束一个程序的执行。（2）Do和Loop构成了Do循环。Is关系运算表达式，使用的运算符包括：<<=>>=<>=（3）title：是一个字符串，用来显示对话框的标题。For-Next循环的逻辑流程（5）MsgBox函数的返回值是一个整数，这个整数与所选择的按钮有关。显示“终止”、“重试”及“忽略”按钮Format$(数值表达式，格式字符串)End语句除用来结束程序外，在不同的环境下还有其他一些用途，包括：End语句通常用来结束一个程序的执行。可以把它放在事件过程中。三、结束语句（End）EndSub 结束一个Sub过程EndFunction 结束一个Function过程EndIf 结束一个If语句块EndType 结束记录类型的定义EndSelect 结束情况语句第三章VB程序控制结构3.2选择结构格式如下：If条件Thenthen部分[Elseelse部分]当Then部分或Else部分含有多个语句时，各语句之间用冒号隔开3.2.1单行结构条件语句在日常生活中，常常需要对给定的条件进行分析、比较和判断，并根据判断结果采取不同的操作。在VisualBasic中，这样的问题通过选择结构程序来解决，而选择结构通过条件语句来实现。条件语句也称If语句，它有两种格式，一种是单行结构，一种是块结构。语句的功能是：如果“条件”为True，则执行“then部分”，否则执行“else部分”。第三章VB程序控制结构如果用户不想用这个默认字符串作为输入值，则可在输入区直接键入数据，以取代默认值；[Case表达式表列2如果“条件”为False，则不执行“语句块”,而执行Wend后面的语句。If条件1Then第三章VB程序控制结构2、多分支控制结构程序设计；SelectCase测试表达式如果找到了，则执行与该Case子句有关的语句块，并把控制转移到EndSelect后面的语句；（3）在格式（1）中，While和Until放在循环的末尾，分别叫做Do……LoopWhile和Do……LoopUntil循环，它们的逻辑流程分别如图所示。Format$(数值表达式，格式字符串)（2）情况语句的执行过程是：先对“测试表达式”求值，然后测试该值与哪一个Case子句中的“表达式序列”相匹配；3、掌握循环控制结构程序设计方法；③表达式表列1、表达式表列2……：称为域值，可以是下列形式之一：3.2.2块结构条件语句一般格式如下：If条件1Then 语句块1[ElseIf条件2Then 语句块2][ElseIf条件3Then 语句块3]……[Else语句块n]EndIf第三章VB程序控制结构（1）块结构条件语句中的ElseIf子句和Else子句都是可选的说明：（2）“语句块”可以是一个语句，也可以是多个语句。有多个语句时，可以分别写在多行里；如果写在一行中，则各语句之间用冒号隔开（4）块形式条件语句的执行过程是：先测试“条件1”，如果该条件为True，则执行Then后面的“语句块”；如果“条件1”为Flase，则顺序测试每个ElseIf子句中的“条件”，当发现某个“条件”为True时，就执行与其相关的Then后面的“语句块”；如果所有ElseIf子句的“条件”都不为True，则执行Else后面的“语句块n”。在执行了Then或Else后面的语句块之后，程序退出块结构条件语句，继续执行EndIf后面的语句。（5）“语句块”中的语句不能与其前面的Then在同一行上，如果在同一行上，则为单行结构，否则为块结构。对于块结构，必须以EndIf结束，单行结构没有EndIf。（3）ElseIf子句的数量没有限制，可以根据需要加入任意多个ElseIf子句。第三章VB程序控制结构3.2.3多分支选择语句多分支选择语句即情况语句也称SelectCase语句或Case语句，它根据一个表达式的值，在一组相互独立的可选语句序列中挑选要执行的语句序列。SelectCase测试表达式 Case表达式表列1 语句块1 [Case表达式表列2 [语句块2]] …… [CaseElse [语句块n]]EndSelect情况语句的一般格式为：第三章VB程序控制结构（1）情况语句中含有多个参量，这些参量的含义分别为：①测试表达式：可以是数值表达式或字符串表达式，通常为变量或常量。②语句块1、语句块2……：每个语句块由一行或多行合法的语句组成。③表达式表列1、表达式表列2……：称为域值，可以是下列形式之一：表达式[,表达式]……表达式To表达式Is关系运算表达式，使用的运算符包括：<<=>>=<>=说明：例如： Case2,4,6,8例如： Case1To5例如： CaseIs=12 CaseIs<a+b（2）情况语句的执行过程是：先对“测试表达式”求值，然后测试该值与哪一个Case子句中的“表达式序列”相匹配；如果找到了，则执行与该Case子句有关的语句块，并把控制转移到EndSelect后面的语句；如果没找到，则执行与CaseElse子句有关的语句块，然后把控制转移到EndSelect后面的语句第三章VB程序控制结构3.3循环结构一般格式如下：For循环变量=初值To终值勤[Step步长] [循环体] [Exitfor]Next[循环变量][,循环变量]……For循环语句的执行过程是：首先把“初值”赋给“循环变量”，接着检查“循环变量”的值是否超过终值，如果超过就停止执行“循环体”，跳出循环，执行Next后面的语句；否则执行一次“循环体”，然后把“循环变量+步长”的值赋给“循环变量”，重复上述过程。3.3.1For…Next循环结构第三章VB程序控制结构（1）格式中有多个参量，这些参量的含义如下：循环变量：亦称“循环控制变量”、“控制变量”或“循环计数器”初值：循环变量的初值，它是一个数值表达式。终值：循环变量的终值，它也是一个数值表达式。步长：循环变量的增量，是一个数值表达式。其值可以是正数（递增循环）或负数（递减循环），但不能为0。如果步长为1，则可略去不写。循环体：在For语句和Next语句之间的语句序列，可以是一个或多个语句。ExitFor：退出循环。Next：循环终端语句，在Next后面的“循环变量”与For语句中的“循环变量”必须相同。说明：（2）For-Next循环可以嵌套使用，嵌套层数没有具体限制（3）For语句和Next语句必须成对出现，不能单独使用，且For语句必须在Next语句之前。第三章VB程序控制结构开始循环变量=初值循环变量>(或<)终值？执行循环体循环变量=循环变量+步长结束YesNoFor-Next循环的逻辑流程第三章VB程序控制结构3.3.2Do…Loop循环结构Do循环的格式如下：（1）Do [语句块] [ExitDo] Loop[While|Until循环条件]（2）Do[While|Until循环条件] [语句块] [ExitDo] LoopDo循环语句的功能是：当指定的“循环条件”为True或直到指定的“循环条件”变为True之前重复执行一组语句（即循环体）。第三章VB程序控制结构说明：（1）Do、Loop、While、Until都是关键字。“语句块”是需要重复执行的一个或多个语句，即循环体。“循环条件”是一个逻辑表达式。（2）Do和Loop构成了Do循环。当只有这两个关键字时，其格式简化为： Do [语句块] Loop在这种情况下，程序将不停地执行Do和Loop之间的“语句块”。为了使程序按指定的次数执行循环，必须使用可选的关键字While或Until以及ExitDo。While是当条件为True时执行循环，而Until则是在条件变为True之前重复。（3）在格式（1）中，While和Until放在循环的末尾，分别叫做Do……LoopWhile和Do……LoopUntil循环，它们的逻辑流程分别如图所示。第三章VB程序控制结构开始执行循环体循环变量>(或<)终值？计算“条件”值结束YesNoDo……LoopWhile循环逻辑框图第三章VB程序控制结构开始执行循环体循环变量>(或<)终值？计算“条件”值结束NoYesDo……LoopUntil循环逻辑框图第三章VB程序控制结构（4）在格式2中，While和Until放在循环的开头，即紧跟在关键字Do之后，组成两种循环，分别叫做DoWhile……Loop循环和DoUntil……Loop循环，它们的执行过程分别如图所示。开始计算“条件”值条件为真吗？执行循环体结束NoYesDoWhile……Loop循环逻辑框图第三章VB程序控制结构ExitFor：退出循环。SelectCase测试表达式执行上面的语句，显示的信息如图所示。如果想按自己的要求换行，则须插入回车换行操作，即：Chr$(13)+Chr$(10)“循环条件”是一个逻辑表达式。2数据输入和输出VisualBasic中的注释是“Rem”或一个撇号“’”（3）在格式（1）中，While和Until放在循环的末尾，分别叫做Do……LoopWhile和Do……LoopUntil循环，它们的逻辑流程分别如图所示。（4）在格式2中，While和Until放在循环的开头，即紧跟在关键字Do之后，组成两种循环，分别叫做DoWhile……Loop循环和DoUntil……Loop循环，它们的执行过程分别如图所示。（1）Prompt：是一个字符串，其长度不得超过1024个字符，它是在对