第4章程序控制结构

VisualBasic程序设计第四章程序控制结构VisualBasic程序设计第4章程序控制结构程序示例循环结构程序设计选择结构程序设计顺序结构程序设计程序设计与算法VisualBasic程序设计4.1.1程序的基本组成程序的基本组成包括：输入、处理和输出三个部分。例如，需要用计算机编程求解一个三角形的面积。根据题目的要求可以确定：（1）程序的“输出”是三角形的面积值。（2）“处理”是求解三角形的面积。（3）如果用三条边长求三角形面积，则需要输入三角形的三条边长，如果用相邻的两条边及其夹角求三角形面积，就需要输入两条边长及其对应的夹角。VisualBasic程序设计4.1程序设计与算法由于计算机只能执行算术运算和逻辑运算，所以其解决问题的方法、步骤和人们生活中解决问题的方法、步骤不同，必须考虑其特殊性。VisualBasic程序设计4.1.2算法1.算法的定义从广义上讲，算法是解决某个问题或处理某个事件的方法和步骤。从狭义上讲，算法指用计算机解决某一问题的方法和步骤。算法可以分为两大类：一类是数值计算方法，主要是解决一般数学解析方法难以处理的一些数学问题，如求解超越方程的根等；另一类是非数值计算方法，如排序、查找和求最大值最小值等。VisualBasic程序设计4.1.2算法2.算法的特征算法具备以下五个特征：（1）确定性（2）可行性（3）有穷性（4）输入性（5）输出性VisualBasic程序设计4.1.2算法3.算法的描述算法本身可以采用不同的方法来描述。可以用自然语言（英语、汉语等）来描述；可以用伪代码来描述；可以用特定的图形来描述。VisualBasic程序设计4.1.2算法4.算法和程序的区别算法和程序的区别主要有三点：（1）一个程序不一定满足有穷性。（2）程序中的指令必须是机器可执行的，而算法中的指令则无此限制。（3）算法代表了对问题的解，而程序则是算法在计算机上的特定的实现。VisualBasic程序设计4.1.3算法的基本结构算法有三种基本结构：顺序结构分支结构循环结构。VisualBasic程序设计4.2顺序结构顺序结构的概念和执行流程顺序结构是指按照语句书写的先后顺序依次执行每条语句。顺序结构主要是由变量定义语句、赋值语句、输入输出语句和一些命令语句等构成。VisualBasic程序设计4.2顺序结构如以下顺序结构程序段：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsInteger'变量定义x=Val(Text1.Text)'数据的输入y=Val(Text2.Text)'数据的输入z=x+y'数据的处理Text3.Text=z'数据的输出EndSubVisualBasic程序设计4.2顺序结构该程序段自上而下依次执行各条语句。整个程序只有一个入口和一个出口。程序中主要包含四部分内容：（1）变量的定义；（2）数据的输入；（3）数据的处理；（4）数据的输出。VisualBasic程序设计1.输入函数—InputBoxInputBox函数用来接收通过键盘输入的数据。InputBox函数的语法格式如下：v=InputBox(Propmt[,Title][,Default][,x,y][,Helpfile,Context])v：用于接收在InputBox函数中输入的数据。Propmt：对话框中显示的提示信息。Title：对话框的标题。Default：显示在用户编辑框中的缺省值。x,y：用于确定对话框在屏幕上显示时的位置。Helpfile,Context：是帮助文件名和帮助主题号。VisualBasic程序设计1.输入函数—InputBox例如x=InputBox（“请输入一个数字！”,“程序示例”,10），显示如图所示的对话框。VisualBasic程序设计2.消息框函数—MsgBoxMsgBox函数用于向用户发布提示信息，并要求用户做出响应。MsgBox函数语法格式如下：v=MsgBox(Propmt[,Button][,Title][,Helpfile,Context])Propmt：对话框中显示的提示信息。Button：定义信息框按钮的个数、类型和信息框中的图标。Title：信息框的标题。Helpfile,Context：Helpfile是帮助文件名，Context是帮助主题号。V：用于接收MsgBox函数返回的一个值。。VisualBasic程序设计2.消息框函数—MsgBox例如：x=MsgBox(非法数据！,1+48+0,提示信息！)VisualBasic程序设计4.3选择结构程序设计本节要点选择结构先对条件进行测试，根据测试的结果选择执行对应的分支语句。1.If条件语句2.IIf函数3.SelectCase结构4.选择结构应用示例VisualBasic程序设计4.3.1If条件语句1.单分支If语句说明：条件可以是：关系表达式、逻辑表达式或算数表达式。格式(1)中“语句组”可以是一条或几条语句。格式(3)不换行书写，仅一行，没有EndIf。If和EndIf必须成对使用，除非是格式(2)。格式(2):If条件Then语句……格式(1)：If条件Then语句组EndIf……VisualBasic程序设计4.3.1If条件语句1.单分支If语句执行规则：条件为真则执行“语句”或“语句组”，否则，不执行“语句”或“语句组”，直接执行If后面的语句。例4.1根据百分制成绩提示考试是否通过。条件语组TFIfscore=60ThenPrint祝贺你考试通过！EndIfPrint继续努力！score=60Ifscore=60ThenPrint祝贺你考试通过！Print继续努力！VisualBasic程序设计4.3.1If条件语句格式:If条件Then语句组1Else语句组2EndIf条件语句组1TF语句组2执行规则：条件为真执行语句组1，If语句执行结束，否则，执行语句组2，If语句执行结束。2.双分支If语句VisualBasic程序设计4.3.1If条件语句2.双分支If语句例4.2求x和y的最大值IfxyThenPrint最大值是：,xElsePrint最大值是：,yEndIf单分支和双分支If语句用于解决两种情况的问题。VisualBasic程序设计4.3.1If条件语句2.双分支If语句例4.3计算分段函数：程序代码：Ifx=0Theny=(-x+Sqr(x^3-3*x+7))/2Elsey=Log（x）+1EndIf0x1Ln(x)0x273xxx3yVisualBasic程序设计4.3.1If条件语句2.双分支If语句例4.4计算分段函数。程序代码：Ifx=0ThenElsey=Log（x）+1EndIf双分支If的Then中又包含一个If语句。0x1Ln(x)0x00x273x3xxyIfx0Theny=(-x+Sqr(x^3-3*x+7))/2Elsey=0EndIfVisualBasic程序设计4.3.1If条件语句2.双分支If语句在If语句的Then或Else中又包含If语句，称为If结构嵌套。注意：注意If嵌套结构的程序书写规范，最好采用层层缩进的方式。除非采用If结构的缩写格式，否则，有几个If语句，就有几个EndIf语句与之配对。嵌套的结构比较复杂！VisualBasic程序设计4.3.1If条件语句3.多分支If语句格式：If条件1Then语句组1ElseIf条件2Then语句组2……ElseIf条件nThen语句组nElse语句组n+1EndIf执行规则：首先判断条件1，条件1成立，执行语句组1，If语句执行结束，否则再判断条件2……依此类推。n个条件都不成立，则执行语句组n+1，n+1个语句组仅执行一个。注意：(1)在书写时要注意ElseIf之间不能有空格；(2)条件的书写是有顺序的，如有多个分支同时满足条件，只执行第一个与之匹配的语句组。VisualBasic程序设计4.3.1If条件语句3.多分支If语句多分支If语句用于解决三种及以上情况的问题。把例4.4用多分支If语句处理。程序代码：Ifx0Theny=(-x+Sqr(x^3-3*x+7))/2ElseIfx=0Theny=0Elsey=Log（x）+1EndIfVisualBasic程序设计4.3.1If条件语句3.多分支If语句例4.5编写一个按月收入额计算个人收入调节税的程序。计算方法如下:4000Pay4500.35*4000)-(Pay4000Pay30002000.25*3000)-(Pay3000Pay2000500.15*2000)-(Pay2000Pay10000.05*1000)-(Pay1000Pay0yVisualBasic程序设计4.3.2条件函数IIf函数格式：变量=IIf(表达式1，表达式2，表达式3)IIf函数根据条件的成立与否，返回不同表达式的结果。如果表达式1的值为真，函数值是表达式2的值，否则函数值是表达式3的值。例4.6将两个变量x和y中的最大值放入max。If语句：IfxyThenmax=xElsemax=yEndIfIIf函数:max=IIf(xy,x,y)VisualBasic程序设计4.3.3SelectCase语句SelectCase测试表达式Case测试项1语句组1Case测试项2语句组2……Case测试项n语句组nCaseElse语句组n+1EndSelect说明：(1)测试表达式的值应是数字或字符型。(2)测试项的取值必须与测试表达式的值类型相同，常用形式为：具体取值，用逗号隔开如：1，5，9连续的范围：界1TO界2如：12To20满足某个条件：Is运算符如：Is10三种形式可组合使用,用逗号隔开。SelectCase语句执行过程先计算测试表达式的结果，按顺序判断结果与Case语句后的测试项是否匹配，如果匹配，则执行相应的语句组，否则继续判断，如果表达式结果与所有的测试项都不匹配，则执行CaseElse后的语句组（如果有的话）。VisualBasic程序设计4.3.3SelectCase语句例4.7百分制成绩转换成三级制成绩。成绩大于等于90的为优秀，小于90大于等于60为及格，否则为不及格。SelectCase方法：Mark=Val(Text1.Text)SelectCaseMarkCaseis=90Print优Case60to90Print通过CaseElsePrint未通过EndSelect多分支If方法：Mark=Val(Text1.Text)Ifmark=90thenPrint优ElseIfmark=60thenPrint通过ElsePrint未通过EndIfSelectCase语句和多分支If语句都是处理多分支问题。VisualBasic程序设计4.3.4选择结构应用示例例4.8编写一个加油站计费程序从“种类”中选择油品种类，界面上的说明文字将随之改变，并将“数量”文本框设为焦点；在数量文本框中输入需购的油品数量后，单击“计算”按钮，在“总价”文本框显示所购油品种类应付的金额。已知汽油单价：•90号7.21元/升•93号7.41元/升•97号7.80元/升VisualBasic程序设计4.3分支结构总结单分支If语句双分支If语句If语句的嵌套多分支If语句IIF函数SelectCase语句VisualBasic程序设计4.4循环结构循环:是在指定的条件下多次重复执行一组语句。1.For．．．Next2.Do．．．Loop3.循环嵌套VisualBasic程序设计4.4循环结构4.4.1For循环结构说明：初值、终值和步长可以为正整数，也可以为小数。步长可以为正值，也可以为负值。ExitFor用于退出For循环。循环的执行次数=Int((终值-初值)/步长)+1For循环变量=初值To终值[St