多分支结构 3.f.Then..Elself语句 If表达式1Then 语句块1 Elself表达式2Then 语句块2 表达式1 F 表达式2 [Else F T 表达式n 语句块n+1] T End If 语句块1 语句块2 语句块n 语句块n+1 Y 作用：根据不同的表达式值确定执行哪个语句块 VB程序设计简明教程 本书目录 本章目录 19
VB程序设计简明教程 本书目录 19 多分支结构 3. If…Then…ElseIf 语句 If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 … [Else 语句块 n+1] End If 表达式 2 表达式 n T F T F 语句块 1 语句块 2 语句块 n + 1 F T 表达式 1 语句块 n 作用：根据不同的表达式值确定执行哪个语句块 本章目录
多分支结构例 例4.7已知变量ch中存放了一个字符，判断该字符是 字母字符、数字字符还是其他字符。 If UCase(ch)>="A"And UCase(ch)<="Z"Then MsgBox(ch+"是字母字符") '考虑大小写字母 Elself ch>="O"And ch<="9"Then'数字字符 MsgBox(ch+"是数字字符") Else 除上述字符以外的字符 saBox(ch+"是甘h字符 不管有几个分支，依次判断，当某条件满足，执行相应 的语句，其余分支不再执行；若条件都不满足，且有 Else子句，则执行该语句块，否则什么也不执行。 Elself不能写成Else If VB程序设计简明教程 本书目录 本章目录 20
VB程序设计简明教程 本书目录 20 例4.7 已知变量ch中存放了一个字符，判断该字符是 字母字符、数字字符还是其他字符。 If UCase(ch) >= "A" And UCase(ch) <= "Z" Then MsgBox(ch + "是字母字符") '考虑大小写字母 ElseIf ch >= " 0" And ch <= "9" Then ' 数字字符 MsgBox(ch + "是数字字符") Else ' 除上述字符以外的字符 MsgBox(ch + "是其他字符") End If 不管有几个分支，依次判断，当某条件满足，执行相应 的语句，其余分支不再执行；若条件都不满足，且有 Else子句，则执行该语句块，否则什么也不执行。 ElseIf不能写成 Else If 多分支结构例 本章目录
f语句的嵌套 If语句的嵌套是指f或Ese后面的语句块中又包含f语 f表达式1Then If表达式2Then If x<y Then t=x:x=y:y=t End If If y<z Then End If t=y:y=z:z=t 例已知x,y,Z三个数， If x<y Then 使得x>y>z t=x:x=y:y=t 用一个F语句和一个嵌套 End If 的F语句实现 End If VB程序设计简明教程 本书目录 本章目录 21
VB程序设计简明教程 本书目录 21 If语句的嵌套是指If或Else后面的语句块中又包含If语 If 表达式1 Then If 表达式2 Then … End If … End If If x<y Then t=x: x=y: y=t If y<z Then t=y: y=z: z=t If x<y Then t=x: x=y: y=t End If End If If语句的嵌套 例 已知x，y，z三个数， 使得x>y>z 用一个IF语句和一个嵌套 的IF语句实现 本章目录
42.2 Select Case语句 Select Case变量或表达式 Case表达式列表1 语句块1 Case表达式列表2 语句块2 表达式列表与变量或表达式的类型必 ■ 须相同，是下面4种形式之一： [Case Else 表达式 例："A” 语句块n+] 一组用逗号分隔的枚举值 2,4,6,8 End Select 表达式1T0表达式2 60T0100 s关系运算符表达式s<60 VB程序设计简明教程 本书目录 本章目录 22
VB程序设计简明教程 本书目录 22 4.2.2 Select Case语句 Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 表达式列表与变量或表达式的类型必 须相同，是下面4种形式之一： •表达式 例: "A" •一组用逗号分隔的枚举值 2,4,6,8 •表达式1 To 表达式2 60 To 100 •Is 关系运算符表达式 Is < 60 本章目录
Select Case语句例 将例4.7改用Select Case语句实现： Select Case ch Case "a"To "z","A"To "Z" MsgBox(ch+"是字母字符") Case "0"To "9" MsgBox(ch+"是数字字符") Case Else MsgBox(ch+"是其他字符") End Select 多分支结构，用Select Case语句比If.Then..Elself 语句直观，程序可读性强。但不是所有的多分支结构 均可用Select Case语句代替f.Then..Elselfi语句。 VB程序设计简明教程 本书目录 本章目录 23
VB程序设计简明教程 本书目录 23 Select Case语句例 将例4.7 改用 Select Case 语句实现： Select Case ch Case "a" To "z"，"A" To "Z" MsgBox( ch + "是字母字符") Case "0" To "9" MsgBox (ch +"是数字字符") Case Else MsgBox( ch + "是其他字符") End Select 多分支结构，用Select Case语句比If…Then…ElseIf 语句直观，程序可读性强。但不是所有的多分支结构 均可用Select Case语句代替If…Then…ElseIf语句。 本章目录