SELECT_CASE语句(选)

学习游戏脚本制作：按键精灵里的if语句教程来源：按键学院【按键精灵】万万没有想到……有一天居然会栽在if语句手里。

First—小编的凄惨经历小编今早写脚本，由于无意间将if语句中的end if错删了，弹出了这样的错误提示：“（错误码0）没有找到合法的符号。

”看到这个提示，小编以为是哪个逗号不小心写成中文逗号，没成想丢了个end if也是出现这样的提示。

好在代码不多，所以错误点容易找到，那……如果，代码多达几百上千条的时候呢？眼泪马上掉出来~今天在这里和童鞋们一起来了解下，按键里的夫妻组合，看看这些夫妻被分开之后都会出现什么样的可怕情况：Second—一夫一妻制If……end if判断语句If判断语句，有分为两种:1、 if语句条（条模式）当判断完之后，要执行的语句只有一条的时候，使用if语句条例如：If 1 > 0 Then MessageBox"Hello~"// If语句条，不需要添加end if//条模式的时候，if语句还是单身，不是夫妻组合2、 if语句块（块模式）当判断完之后，要执行的语句有很多条的时候，使用if语句块例如：If 1 > 0ThenMessageBox"Hello~"MessageBox"Hello~"End If//块模式的时候，if语句是已婚状态，夫妻组合。

如果这个时候缺少了end if就会出现下面的错误提示：拓展：if语句块中then 可以省略例如：If 1 >0MessageBox"Hello~"MessageBox"Hello~"End IfFor……next循环语句例子：For i=1 To 10//这里的脚本可以循环10次Next拓展：如果，循环体里不需要用到循环次数值，例如，需要打开十个记事本，可以这样写：For 10RunApp "Notepad.exe"Next当for循环语句缺少next的时候，会出现下面的错误提示：Do……Loop 循环语句Do……Loop循环语句分为两种情况：1、前判断Do While条件Loop在执行循环体之前判断条件，满足则进入循环不满足则不进入例如：i=1Do While i>1i = i - 1TracePrint 1Loop//一次也不执行2、后判断DoLoop While条件在执行循环体之后判断条件，先进入一次循环，执行完一次循环之后再开始判断是否满足条件例如：i=1Doi= i - 1TracePrint 1Loop While i>1//执行一次TracePrint1当do……loop循环语句缺少loop的时候，会出现下面的错误提示：VBS执行块语法：VBSBegin'需要插入的VBS代码VBSEndVBSBegin 缺少VBSEnd 会出现的提示：LogStart 开始记录日志语法：LogStart 文件名LogStopLogstart缺少logstop 不会出现错误提示，如果忘记了logstop，蛋疼的点就是它会把你后面不需要记录的东西也记录。

SelectCase语句教程为了避免难以弄清的复杂的嵌套的If语句，你可以使用Select Case语句代替。

它的语法为：Select Case 测试表达式Case 表达式1如果表达式1匹配测试表达式的语句Case 表达式2如果表达式2匹配测试表达式的语句Case 表达式N如果表达式N匹配测试表达式的语句Case Else如果没有表达式匹配测试表达式要执行的语句End Select你在关键字Select Case和End Select之间放置任意多个条件以测试。

子句Case Else是可选的，当你希望可能有条件表达式返回假时使用它。

在Select Case语句里，VB将每个表达式和测试表达式相比较。

这里是Select Case语句背后的逻辑。

当VB遇到Select Case子句，它记下测试表达式的值。

然后它前进到下面的第一个Case子句，如果这个表达式的值和测试表达式的值匹配的话，VB就会执行语句直到遇到另外一个Case子句并且跳到End Select语句。

然而，如果第一个Case子句后面的表达式测试结果和测试表达式不匹配时，VB就会检查每一个Case子句，直到它找到一个匹配的为止。

如果没有一个Case子句后面的表达式匹配测试表达式的值的话，VB就会跳到Case Else子句并执行该语句直到遇到关键字End Select。

注意，Case Else 子句是可选的，如果你的程序里面没有使用Case Else并且没有一个Case子句的表达式和测试表达式相匹配，VB就会跳到End Select后面的语句，并且继续执行你的程序。

我们来一个使用Select Case语句的程序例子。

在第四章里，你学习了MsgBox函数允许你显示带有一个或多个按钮的信息，你也学习了MsgBox函数的结果可以赋予一个变量。

使用Select Case语句，你现在可以基于用户按下的按钮决定采取哪个行动。

1. 在当前工程里插入一新模块2. 重命名新模块SelectCase.3. 输入下述过程TestButtons:Sub TestButtons()Dim question As StringDim bts As IntegerDim myTitle As StringDim myButton As Integerquestion = "Do you want to open a new workbook?"bts = vbYesNoCancel + vbQuestion + vbDefaultButton1myTitle = "New Workbook"myButton = MsgBox(prompt:=question, buttons:=bts, _ title:=myTitle)Select Case myButtonCase 6Workbooks.AddCase 7MsgBox "You can open a new book manually later."Case ElseMsgBox "You pressed Cancel."End SelectEnd Sub过程TestButtons的第一部分显示一个带有三个按钮的信息框：是，否和取消。

End Sub
'以下代码是程序退出
Private Sub Command3_Click() End
End Sub
Case Else
'测试表达式的值x在其它情况下
Text2.Text = "不及格" '文本框Text2中显示“不及格”
End Select End Sub
'以下代码是清除文本框Text1、Text2中所显示的内容，且将焦点放在文本框Text1上
Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Te78、79情况下
Text2.Text = "中等" '文本框Text2中显示“中等”
Case 60, 61, 62, 63 To 66, Is >= 67 '测试表达式的值x为60、61、62、63、在64至66情况
下、大于等于67的情况下
Text2.Text = "及格" '文本框Text2中显示“及格”
Case Is >= 90
'测试表达式的值x大于等于90情况下
Text2.Text = "优秀" '文本框Text2中显示“优秀”
Case 80 To 90
'测试表达式的值x在80至90情况下
Text2.Text = "良好" '文本框Text2中显示“良好”
Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79 '测试表达式的值x为70、71、72、73、74、75、

Select Case语句也是条件语句之一，而且是功能最强大的条件语句。

它主要用于多条件判断，而且其条件设置灵活、方便，在工作中使用频率极高。

本节介绍Select Case语句的语法及应用案例．Select Case语句的语法如下：Select Case testexpression[Case expressionlist-n[statements-n]] ...[Case Else[elsestatements]]End SelectSelect Case语句包括四部分，每部分详细含义如表38-1所示。

在以上语法列表中，省略号代表可以使用多个条件。

只要有一个Case就需要有一个statements-n，表示条件及符合条件时的执行条件。

其中elsestatements表示不符合指定条件时的执行语句，是可选参数。

可以忽略elsestatements，也可以执行一条或者一组语句，为了让程序能够处理一些不可预见的情况，尽量使用elsestatements语句处理不符合条件时该如何回应。

在Select Case的多个参数中，最复杂的是expressionlist-n部分，它有多种表达形式，包括：lExpression——直接声明一个条件值，例如5lexpression To expression——声明一个条件的范围，例如5-10lIs comparisonoperator——声明一种比较方式，例如is >5下面的实例可以展示参数中expressionlist-n部分的多种表达形式。

实例1：多条件时间判断根据当前的时间判断是上午、中午，还是下午、晚上、午夜。

要求中条件比较多，使IF…Then…需要多层嵌套，而Select Case语句会更简单。

代码如下：___________________________________________________Sub 时间()Dim Tim As Byte, msg As StringTim = Hour(Now)Select Case TimCase 1 To 11msg = "上午"Case 12msg = "中午"Case 13 To 16msg = "下午"Case 17 To 20msg = "晚上"Case 23, 24msg = "午夜"End SelectMsgBox "现在是：" & msgEnd Sub__________________________________________以上代码中，“Case 1 To11”表示当前时间在1点到11点，用于限定一个范围；“Case 12”是表示当前时间为12点时返回True，可用于限制一个具体的值，或者多个值。