VB大纲5(选择结构).pptVIP

基本概念及语法 逻辑运算符与表达式 If语句 情况语句Select Case 条件函数 选择结构 逻辑运算符 逻辑运算符 Not（取反，优先级1）、And（与，优先级2）、Or（或，优先级3）、Xor（异或，优先级3） 逻辑表达式 逻辑表达式的值 If语句的一般格式——单分支结构 单分支结构If语句 语句形式： If 表达式 Then 语句 If表达式 Then 语句块 End If 语句功能： 当“表达式”的值为真时执行语句（或语句块），否则执行后继操作。 If语句的一般格式——双分支结构 双分支结构If…Then…Else语句 语句形式： If 表达式 Then 语句1 Else 语句2 If 表达式 Then  语句块1 Else 语句块2 End If 语句功能： 当表达式的值为真时，执行Then 后的“语句块1”（或“语句1”），否则执行Else后面的“语句块2”（或“语句2”） 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表达式1 Then 语句块1 ElseIf 表达式2 语句块2 …… [Else 语句块n+1 ] End If 语句功能： 表达式i为真时，执行语句块i 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) = Z Then n1 = n1 + 1 txtletter.Text = n1 ElseIf 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表达式1 Then …… If表达式11