VB大纲5选择结构.ppt

选择结构程序设计1,基本概念及语法 逻辑运算符与表达式 If语句 情况语句Select Case 条件函数,选择结构,Not：当操作数为True时，结果为False， 当操作数为False时，结果为True And: 两操作数同时为True时，结果为True，否则为False。 Or： 两操作数同时为False时，结果为False，否则为True。,逻辑运算符,逻辑运算符 Not（取反，优先级1）、And（与，优先级2）、Or（或，优先级3）、Xor（异或，优先级3） 逻辑表达式 逻辑表达式的值,优先级： 当一个表达式中出现了多种不同类型的运算符时， 不同类型的运算符的优先级如下： 算术运算符关系运算符逻辑运算符。,If语句的一般格式单分支结构,单分支结构If语句 语句形式： If Then If Then 语句块 End If 语句功能： 当“表达式”的值为真时执行语句（或语句块），否则执行后继操作。,为关系表达式、逻辑表达式或算术表达式。若为算术表达式，其值是非零为真，零为假,一条语句或多条，且为多条时语句间用冒号分隔，并必须写在一行上,一条或多条语句。“Then”不能与其后的语句写在同一行上，否则必须加上分隔符,If语句的一般格式双分支结构,双分支结构IfThenElse语句 语句形式： If Then Else If Then Else End If,语句功能： 当表达式的值为真时，执行Then 后的“语句块1”（或“语句1”），否则执行Else后面的“语句块2”（或“语句2”）,If语句的一般格式双分支结构,If语句的一般格式双分支结构,【实例1】制作简单的选择结构。当用户输入一个分数，判定是否及格。 问题1：当输入220分，结果？ 问题2：如果要判定几个级别，优良中，该 怎样修改程序？ 逻辑运算符与表达式示例器，其功能是输入逻辑表达式，输出运算结果及其说明。,操作步骤一 设计用户界面,操作步骤二 编写代码,Private Sub Command1_Click() Dim c As Single c = Val(Text1.Text) If c = 60 Then MsgBox “及格“ Else MsgBox “不及格“ End If End 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 + 1 txtcount.Text = n Else txtin.Enabled = False End If End Sub,If语句的一般格式多分支结构,语句形式： If Then ElseIf Else End If 语句功能： 为真时，执行,If语句的一般格式多分支结构,If语句的一般格式多分支结构,【实例3.3】建立如图3-7所示的窗体界面。在窗体左边的文本框（txtinput）中输入字符串，字符串以“*”为结束标志；右边的三个文本框(txtletter、txtdigital、txtother)中分别显示字母字符、数字字符和其他符号字符的个数。,操作步骤一 设计用户界面,操作步骤二 编写代码,Dim n1 As Integer, n2 As Integer, n3 As Integer 窗体级变量 Private Sub txtinput_Change() Dim s As String s = 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,操作步骤二 编写代码,Else txtinput.Enabled = False 文本框不响应事件 End If End Sub,If语句的一般格式If语句的嵌套,语句形式： If Then If Then End If Else End 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 If Else MsgBox “请输入合法数据（0100）！“ End If End Sub,情况语句Select Case,语句形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case表达式列表2 语句块2 Case Else 语句块n+1 End 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 6）,例：判定不及格、中、优等级,Private Sub Command1_Click() Dim c As Single c = Val(Text1.Text) Select Case c Case 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 1 Color1=”红” Case 2 Color1=”黄” Case 3 Color1=”蓝” Case 4 Color1=”绿” End se