《VB大纲5选择结构.ppt》由会员分享，可在线阅读，更多相关《VB大纲5选择结构.ppt（32页珍藏版）》请在三一办公上搜索。
1、选择结构程序设计1,基本概念及语法逻辑运算符与表达式 If语句情况语句Select Case 条件函数,选择结构,Not：当操作数为True时，结果为False，当操作数为False时，结果为TrueAnd:两操作数同时为True时，结果为True，否则为False。Or：两操作数同时为False时，结果为False，否则为True。,逻辑运算符,逻辑运算符 Not（取反，优先级1）、And（与，优先级2）、Or（或，优先级3）、Xor（异或，优先级3）逻辑表达式逻辑表达式的值,优先级：当一个表达式中出现了多种不同类型的运算符时，不同类型的运算符的优先级如下：算术运算符关系运算符逻辑运算符。,
2、If语句的一般格式单分支结构,单分支结构If语句 语句形式：If Then If Then 语句块 End If语句功能：当“表达式”的值为真时执行语句（或语句块），否则执行后继操作。,为关系表达式、逻辑表达式或算术表达式。若为算术表达式，其值是非零为真，零为假,一条语句或多条，且为多条时语句间用冒号分隔，并必须写在一行上,一条或多条语句。“Then”不能与其后的语句写在同一行上，否则必须加上分隔符,If语句的一般格式双分支结构,双分支结构IfThenElse语句 语句形式：If Then Else If Then Else End If,语句功能：当表达式的值为真时，执行Then 后的“语句
3、块1”（或“语句1”），否则执行Else后面的“语句块2”（或“语句2”）,If语句的一般格式双分支结构,If语句的一般格式双分支结构,【实例1】制作简单的选择结构。当用户输入一个分数，判定是否及格。问题1：当输入220分，结果？问题2：如果要判定几个级别，优良中，该 怎样修改程序？逻辑运算符与表达式示例器，其功能是输入逻辑表达式，输出运算结果及其说明。,操作步骤一 设计用户界面,操作步骤二 编写代码,Private Sub Command1_Click()Dim c As Singlec=Val(Text1.Text)If c=60 Then MsgBox 及格 Else MsgBox 不及
4、格 End IfEnd Sub,限定分数在100分以下,If c=60 And c=100 Then MsgBox 及格 Else MsgBox 不及格 End If,If语句的一般格式双分支结构,【实例3.2】在窗体所示的第一个文本框（txtin）中输入字符串，当输入字符句号“.”时表示输入结束，第二个文本框（txtcount）动态统计字符串中字符的个数.,操作步骤一 设计用户界面,操作步骤二 编写代码,Dim n As Integer 窗体级变量Private Sub txtin_Change()If Right$(txtin.Text,1).Then n=n+1txtcount.Text
5、=nElsetxtin.Enabled=False End IfEnd Sub,If语句的一般格式多分支结构,语句形式：If Then ElseIf Else End If语句功能：为真时，执行,If语句的一般格式多分支结构,If语句的一般格式多分支结构,【实例3.3】建立如图3-7所示的窗体界面。在窗体左边的文本框（txtinput）中输入字符串，字符串以“*”为结束标志；右边的三个文本框(txtletter、txtdigital、txtother)中分别显示字母字符、数字字符和其他符号字符的个数。,操作步骤一 设计用户界面,操作步骤二 编写代码,Dim n1 As Integer,n2 A
6、s Integer,n3 As Integer 窗体级变量Private Sub txtinput_Change()Dim s As Strings=Right$(txtinput.Text,1)If s“*Then,操作步骤二 编写代码,If UCase(s)=A And UCase(s)=0 And s=9 Then n2=n2+1 txtdigital.Text=n2 Else n3=n3+1 txtother.Text=n3 End If,操作步骤二 编写代码,Elsetxtinput.Enabled=False 文本框不响应事件End IfEnd Sub,If语句的一般格式If语句的
7、嵌套,语句形式：If Then If Then End IfElseEnd If,请写出0-100之间及格不及格情况,Private Sub Command1_Click()Dim c As Single c=Val(Text1.Text),If语句的一般格式If语句的嵌套,If c=0 And c=60 And c=100 Then MsgBox 及格 Else MsgBox 不及格 End IfElse MsgBox 请输入合法数据（0100）！End IfEnd Sub,情况语句Select Case,语句形式：Select Case 变量或表达式Case 表达式列表1 语句块1Case
8、表达式列表2 语句块2 Case Else语句块n+1End Select,情况语句Select Case,语句功能：根据Select Case 变量或表达式中的结果与各Case子句中的值比较决定执行哪一组语句块。如果有多个Case短语中的值与Select Case 变量或表达式中的结果匹配，则执行第一个与之匹配的语句块。其流程图见图.,情况语句Select Case,情况语句Select Case,语句说明：“表达式列表”可以是下面四种形式之一：表达式一组用逗号分隔的枚举表达式（如Case 1，2，4，6）表达式1 To 表达式2（如Case 1 to 5）Is 关系表达式（如Case Is
9、 6）,例：判定不及格、中、优等级,Private Sub Command1_Click()Dim c As Singlec=Val(Text1.Text)Select Case cCase 0 To 59 MsgBox 不及格Case 60 To 79 MsgBox 中Case 80 To 100 MsgBox 优Case Else MsgBox 非法数字End Select,条件函数,例：给定numc的值，输出color的值。Select case numc Case 1Color1=”红”Case 2 Color1=”黄”Case 3 Color1=”蓝”Case 4 Color1=”绿”End select,条件函数,IIf函数 IIf(条件，表达式1，表达式2)当条件为真时，函数的返回值为“表达式1”，反之为“表达式2”例如:grade=IIf（score=60,”及格”,”不及格”）,单分支、双分支、多分支选择结构 选择结构的嵌套Select case的使用Iif函数,
