程序流程有三种最基本的控制结构即顺序结构选择结构和

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,*,第,4,选择结构设计,程序流程有三种最根本的控制结构，即顺序结构、选择结构和循环结构。,在一个过程中，程序通常是按照由上而下的顺序来执行各个语句的，直到整个过程结束。引入选择结构和循环结构，可以改变程序执行的流程。,选择程序结构用于,判断给定的条件,，根据,判断的结果,来控制程序的流程,本章主要内容,条件表达式,关系表达式,/,逻辑表达式,条件语句,If.Then,/,If.Then.Else,条件语句的嵌套,多分支语句,select case,选择性控件 单项选择按钮/复选框,列表框/组合框,计时器控件,程序举例,关系运算符,符号：大于 =大于或等于,不等于,适用的类型和结果类型：,关系运算符适用于数值型、字符型、日期型和逻辑型,数据，结果只能为逻辑型真值True和假值False,运算符两侧必须是同类型的量或表达式,假设不是，系统会自动进行强制类型转换,“54 0(10),假设判断的结论是成立，那么结果为逻辑真值(True)，,否那么为逻辑假值(False),True的值等于-1，False的值等于0,关系运算符,运算符,名 称,示 例,说 明,小于,“3”4,值为：True，强制转换为数值型,=,小于或等于,3,大于,0(10),值为：True，强制转换为数值型,=,大于或等于,“aa”=“ab”,值为：False,=,等于,1=True,值为：False，强制转换为数值型,不等于,11,值为：False,关系表达式,运算次序：先分别求出运算符两侧表达式的值，,然后再将二者进行比较,其中：数值型数据按照数值大小比较,2+36 3=0 523,字符型数据按照字符的ASCII码值大小比较,“1“2 “a“a,日期型数据按照前后顺序比较,#01/01/2003#12/31/2002#,关系表达式的格式：,关系表达式练习,数值型数据按照数值大小比较,字符型数据按照字符的ASCII码值大小比较,日期型数据按照前后顺序比较,？2/33/4,?“a“b,?3=5,?True=-1,?#01/12/91#=#02/01/91#,?“abc=“abb,?“ab“b AND 12,False,？“a“b OR 13 AND 510,False,表示一个数是偶数,x Mod 2=0 或 int(x/2)=x/2,表示一个数X能被3或5或7整除,x Mod 3=0 OR x Mod 5=0 OR x Mod 7=0,表示身高不在1.65米以上或不是女生,身高1.65OR性别“女,NOT身高1.65AND性别“女,布尔表达式练习,？,3,2,1,False,a=3:b=4:c=5,?a=b=c,False,表示一个数,x,是能被,3,整除的奇数,x Mod 3=0 and x Mod 20,x Mod 2=1 and x Mod 20,表示一个数,x2,5,x,2 and x,5,表示一个数,x,不在,2,5,区间内,x,2 or x,5,运算符的优先顺序,算术运算符,字符串运算符：,关系运算符：,、,布尔运算符：,Not,And,Or,优 先 级 依 次 降 低,运算符的优先顺序练习,设变量,x=4,，,y=-1,，,a=7.5,，,b=-6.2,，,求表达式,x+y,a+b,And Not y0 Then Label1.Caption=x,问题：如果不是正数，应该显示“不是正数,语句格式：,IF THEN ELSE,执行过程：,判断给定的条件,如果成立(其值为True),执行所给语句序列1，然后执行下一条语句,否那么(其值为False)，执行所给语句序列2，然后执行下一条语句,选择结构(IF-THEN-ELSE),条件,命令序列1,命令序列2,下一语句,N,Y,(IF-THEN-ELSE)举例,例二：,根据用户输入的一个成绩，判断是否及格,Dim x As Single,X=Val(InputBox(请输入一个成绩：,输入,0),IF X=60 THEN Label1.Caption=“及格 Else Label1.Caption=“不及格,使用IIF函数，也可以实现相应的判断,格式：IIF(条件，条件为真时的值，条件为假时的值),例一：输入一个数，如果是正数，就输出；否那么显示非正数,Dim x As Single,x=Val(Text1.text),If x0 Then Label1.Caption=x Else Label1.Caption=“非正数,IIF函数的使用,Dim x As Single,x=Val(Text1.text),If x0 Then Label1.Caption=x Else Label1.Caption=“非正数,Label1.Caption=IIf(x0,x,“非正数),Dim x As Single,X=Val(InputBox(请输入一个成绩：,输入,0),IF X=60 THEN Label1.Caption=“及格 Else Label1.Caption=“不及格,Label1.Caption=IIf(x=60,“及格,“不及格),语句格式：,IF THEN,ELSE,END IF,执行过程：,判断给定的条件,如果成立(其值为True),执行所给y语句序列1，然后执行下一条语句,否那么(其值为False)，执行所给语句序列2，然后执行下一条语句,块结构(IF-THEN-ELSE-END IF),条件,命令序列1,命令序列2,下一语句,N,Y,(IF-THEN-ELSE-END IF)举例,例如：根据用户输入的一个成绩，判断是否及格,Dim x As Single,x=Val(InputBox(请输入一个成绩:,输入,0),If,x=60,Then,Label1.Caption=及格,Else,Label1.Caption=不及格,End If,(IF-THEN-ELSE-END IF)举例,例如：输入ABC的值，判断能否构成三角形，如果能，计算三角形的面积,Dim a As Single,b As Single,c As Single,a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text),s=(a+b+c)/2,If,a+bc And c0 And a+cb And b0 And b+ca And a0,Then,area=Sqr(s*(s-a)*(s-b)*(s-c),Label1.Caption=能构成三角形,&三角形面积为：&Str(area),Else,Label1.Caption=不能构成三角形,End If,语句格式：,IF THEN,ELSE,IF THEN,ELSE,END IF,END IF,说明：,如果在If语句的语句列1或语句列2中又有一个完整的If语句，那么称为If语句的嵌套,IF语句的嵌套,条件1,语句列1,语句列2,下一语句,N,Y,条件2,Y,N,语句列3,嵌套IF举例,用户输入一个数，如果是正数，打印是个正数；,如果是0，打印是个零；如果是负数，打印是负数,X0,是个正数,是零,下一语句,X0,Y,N,是个负数,Y,N,Dim x As Single,x=Val(Text1.Text),If x 0 Then,Label1.Caption=正数,Else,If x=0 Then,Label1.Caption=“零,Else,Label1.Caption=负数,End If,End If,嵌套IF举例,用户输入一元二次方程的系数，用户判断解的情况,0,有两个不相同的实根,有两个相同的实根,下一语句,0,Y,N,没有实数解,Y,N,a=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text),d=b2-4*a*c,If,d 0,Then,Label1.Caption=,“,不同实根,Else,If,d=0,Then,Label1.Caption=“,相同实根,Else,Label1.Caption=,没有实数解,End If,End If,嵌套IF举例,用户输入一个成绩，,假设在90到100之间，打印优秀；假设在80到89之间，打印良好；假设在70到79之间，打印一般；假设在60到69之间，打印及格；假设在60以下，打印不及格；,其它情况，打印输入有误,Dim x As Single,x=Val(Text1.Text),If x 100 Then,Label1.Caption=输入有误！,Else,If x=90 Then,Label1.Caption=优秀！,Else,If x=80 Then,Label1.Caption=良好！,Else,If x=70 Then,Label1.Caption=一般！,Else,If x=60 Then,Label1.Caption=及格！,Else,If x=0 Then,Label1.Caption=不及格！,Else,Label1.Caption=输入有误！,End If,End If,End If,End If,End If,End If,语句格式：,IF THEN,ELSEIF THEN,ELSE,其他语句列,END IF,说明：,IF语句的嵌套格式ELSEIF,条件1,条件n,语句列1,语句列n,其他语句列,下一语句,Y,Y,N,N,嵌套ELSEIF举例,用户输入一个数，如果是正数，打印是个正数；,如果是0，打印是个零；如果是负数，打印是负数,Dim x As Single,x=Val(Text1.Text),If,x 0,Then,Label1.Caption=正数,ElseIf,x=0,Then,Label1.Caption=零,Else,Label1.Caption=负数,End If,Dim x As Single,x=Val(Text1.Text),If,x 0,Then,Label1.Caption=正数,Else,If,x=0,Then,Label1.Caption=零,Else,Label1.Caption=负数,End If,End If,嵌套ELSEIF举例,Dim x As Single,x=Val(Text1.Text),If,x 100,Then,Label1.Caption=输入有误！,ElseIf,x=90,Then,Label1.Caption=优秀！,ElseIf,x=80,Then,Label1.Caption=良好！,ElseIf,x=70,Then,Label1.Caption=一般！,ElseIf,x=60,Then,Label1.Caption=及格！,ElseIf,x=0,Then,Label1.Caption=不及格！,Else,Label1.Caption=输入有误！,End If,用户输入一个成绩，,假设在90到100之间，打印优秀；假设在80到89之间，打印良好；假设在70到79之间，打印一般；假设在60到69之间，打印及格；假设在60以下，打印不及格；其它情况，打印输入有误,多分支语句,当判断条件较多时，如果采用IF语句来设计程序，会出现各方面的麻烦；而多分支语句可以利用格式中的多个条件来判断与执行，效率较高,语句格式：,SELECT CASE ,CASE,CASE,CASE ElSE,END SELECT,说明：,P83,条件1,条件n,语句列1,语句列n,其他语句列,下一语句,Y,Y,N,N,多分支语句举例,用户输入一个数，如果是正数，打印是个正数；如果是0，打印是个零；如果是负数，打印是负数,Dim x As Single,x=Val(Text1.Text),If,x 0,Then,Label1.Caption=正数,Else,If,x=0,Then,Label1.Caption=零,Else,Label1.Caption=负数,End If,End If