Visual Basic控制结构汇.ppt

If语句的嵌套是指If或Else后面的语句块中又包含If语句 If 表达式1 Then If 表达式2 Then … End If … End If 4.If语句的嵌套 If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End If 例:已知x，y，z三个数，使得xyz 用一个IF语句和一个嵌套的IF语 句实现 例：判断今天是否放假 day1=cdate(inputbox(“请输入放假日期：”,”判断放假”)) day2=date if day1=day2 then print 祝贺你，今天放假！: end if else print ”今天不放假！请等待！” if day1day2 then n=day1-day2 print 还差“;n;天放假 else n=day2-day1 print 已经过了“;n;天 End if 二、Select Case语句 Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select 功能说明： 根据变量或表达式的取值与各 case子句中的值 的比较结果决定执行哪一组语句块。 如果有多个case短语中的值与测试值匹配，则根据 自上而下判断原则，只执行第一个与之匹配语句块 如果没有相匹配的就执行case else之后的语句 Select Case 后不能出现多个变量 Case后不能出现变量及有关运算符 变量或表达式可以是数值型或字符串 表达式列表与变量或表达式的类型必须相同，是下面4种形式之一 ： 表达式 例: A 一组用逗号分隔的枚举值 2,4,6,8 表达式1 To 表达式2(包含表达式1和表达式2的值) 60 To 100 Is 关系运算符表达式 Is 60 例1：已知变量ch中存放了一个字符，判断该字符是字母字符 、数字字符还是其他字符。 Dim ch As String *1 ch=InputBox(“请输入一个字符：”) 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 改为用select case语句来做 Dim ch As String *1 ch=InputBox(“请输入一个字符：”) 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语句。 例2：判断今天是否放假 day1 = cdate(InputBox(请输入放假日期：, 判断放假)) day2 = Date Select Case True Case day1 = day2