近来，在网上找了一些关于VB选择语句的代码样例讲解，不过可惜关于Select case的讲解甚少（可能是查找方向有误），遂，作此，如有不足还望评论去添补
 
语法
 
Select Case <指示变量或表达式>
 
 
Select Case不是循环语句，是条件选择语句，与IF...ELSEIF...ELSEIF...END IF类似
 
<默认语句组，以上语句组都因情形不符合实际时执行>End Select其中，表述情形的关键字，有IS和TO，多个情形要并列在一起时，使用逗号(英文)连接。当省略Case Else语句并且语句组都因情形不符合实际时，语句的执行，会直接到达End Select。如果在执行语句的时候，有需要跳过没有必要再执行的语句而直接结束Select Case的情况时，请使用exit select
 
Option explicit
dim digital,hours,minutes,seconds,dn,ctime

digital = time
hours    =  Hour(digital)
minutes  =  Minute(digital)
seconds  =  second(digital)

Select Case True
Case hours<6
dn= "it is time to dream!"
Case hours>=6
dn= "get up and say good morning!"
Case hours>12 & hours<14
dn= "let's have a rest!"
Case else
	dn="I don't know what to do!"
End Select
msgbox dn
 
注意在“<指示变量或表达式>”不是True或False关键字时，逻辑运算（And、Or、Not）会没有意义。因为逻辑运算的结果是True或False，不是表述具体情况的值或者范围。
 
 
 
 
 
 
 
 

楔子
 

     IDE：VS2013
 

     语言：VB.NET
 
Select和SelectAll
 
select
 

     功能：在选中文本框的同时，将光标移动到文本框内容的末尾
 

 
 
 
selectall
 

     功能：只是选中文本框，且没有明显的提示。
 

 
 
 

 
 
 
比较
 

     相对于SelectAll，Select多了一个Focus的功能。
 

 感谢您的宝贵时间，祝生活愉快，谢谢~~
 

                                             —joker

注明：百度百科上Select Case语句的最新版本亦是我的作品。
 
语法
 Select Case <指示变量或表达式>

 Case <情形1>

 
<语句组1>

 Case <情形2>

 
<语句组2>

 ....

 Case <情形n>

 
<语句组n>

 Case Else

 
<默认语句组，以上语句组都因情形不符合实际时执行>

 End Select

 其中，表述情形的关键字，有IS和TO，多个情形要并列在一起时，使用逗号(英文)连接。当省略Case Else语句并且语句组都因情形不符合实际时，语句的执行，会直接到达End Select。如果在执行语句的时候，有需要跳过没有必要再执行的语句而直接结束Select Case的情况时，请使用exit select。

 
注意

 在“<指示变量或表达式>”不是True或False关键字时，逻辑运算（And、Or、Not）会没有意义。因为逻辑运算的结果是True或False，不是表述具体情况的值或者范围。需要比较大小时，请使用IS、To关键字。以上为了给出一个能够通用的语法而如此表述。

 在“<指示变量或表达式>”是True或False关键字时，Is、To关键字没有意义。

 以上两种情况，切记不要搞混。

 嵌套

 各语句组中也可以写入完整的Select Case语句，像For循环中嵌套一个二级循环一样。别误会，Select Case不是循环语句，是条件选择语句，与IF...ELSEIF...ELSEIF...END IF类似。

 
基本用法

 Private Sub main()

 Select Case InputBox("请输入你希望的天气，从晴天、多云、阴天、阵雨、小雨、小雪、冰雹中选一个填入。", "请输入你希望的天气", "晴天")

 Case "晴天"

     MsgBox "哇哦！你喜欢的是晴天啊，祝你天天好心“晴”~！"

 Case "多云"

     MsgBox "喜欢多云的天气，是因为比较怕紫外线吗？"

 Case "阴天"

     MsgBox "为什么喜欢阴天呢？真令人好奇啊~！"

 Case "阵雨"

     MsgBox "为什么喜欢阵雨天呢？真令人好奇啊~！"

 Case "小雨"

     MsgBox "为什么喜欢小雨天呢？真令人好奇啊~！"

 Case "小雪"

     MsgBox "为什么喜欢小雪天呢？真令人好奇啊~！"

 Case "冰雹"

     MsgBox "为什么喜欢冰雹天呢？真令人好奇啊~！"

 Case Else

     MsgBox "不可以酱紫！只能从我给出的几种中挑选一个填入！"

 End Select

 End Sub

 <以上代码在VB6.0测试通过>

 
  使用关键字IS

 Private Sub main()

 Select Case Day(Now)

 Case Is <= 10

     MsgBox "目前是本月上旬！"

 Case Is > 20

     MsgBox "目前是本月下旬！"

 Case Else

     MsgBox "目前是本月中旬！"

 End Select

 End Sub

 <以上代码在VB6.0测试通过>

 
  使用关键字TO

 Private Sub main()

 Select Case Weekday(Now)

 Case 1, 7

     MsgBox "今天是周末！"

 Case 2 To 6

     MsgBox "今天不是周末！"

 End Select

 End Sub

 <以上代码在VB6.0测试通过>

 关键字IS和TO可以根据需要，在同一条情形中一起使用，例如

 Case Is<=5,8 to 10,Is>20

 不过要注意的是，TO表示的区间，是闭区间，不适用于开区间（或半闭半开区间）。如果一定要用select Case来确定数值在哪个区间内，可以这么做:

 Private Sub main()

 On Error GoTo err

 Dim num As Single

 num = InputBox("请输入！")

 Select Case num

 Case Is <= 1

     MsgBox "这个数不大于1"

 Case Is < 3

     MsgBox "这个数在1和3之间的开区间内"

 Case Is < 5

     MsgBox "这个数在3和5之间的半闭半开区间内"

 Case Is <= 7

     MsgBox "这个数在5和7之间的闭区间内"

 Case Is > 7

     MsgBox "这个数大于7"

 End Select

 Exit Sub

 err:

    MsgBox "这个不是可比较的数字"

 End Sub

 <以上代码在VB6.0测试通过>

 此时，各Case不能随便对换顺序。虽然这个可以达到我们想要的效果，却因为不够严谨，让我忧心忡忡。那么什么是最严谨的呢？请看高级用法。

 
高级用法

  语法（这里只是为了更好的理解，稍稍变一下表述，不改变实意。）

 Select Case true

 Case <逻辑运算表达式1>

 
<语句组1>

 Case <逻辑运算表达式2>

 
<语句组2>

 ....

 Case <逻辑运算表达式n>

 
<语句组n>

 Case Else

 
<默认语句组，当以上任何逻辑运算都为False时执行>

 End Select

 在此语法下，Is、To关键字没有意义，Is的值为true（Is是变量吗？这个问题真的好让人回味啊）

 只要逻辑运算表达式的运算结果为true，就执行该Case下的语句组。那么，上面的例子就这么改。

 Private Sub main()

 On Error GoTo err

 Dim num As Single

 num = InputBox("请输入！")

 Select Case True

 Case num >= 5 And num <= 7

     MsgBox "这个数在5和7之间的闭区间内"

 Case num < 3 And num > 1

     MsgBox "这个数在1和3之间的开区间内"

 Case num > 7

     MsgBox "这个数大于7"

 Case num < 5 And num >= 3

     MsgBox "这个数在3和5之间的半闭半开区间内"

 End Select

 Exit Sub

 err:

    MsgBox "这个不是可比较的数字"

 End Sub

 可以看到，顺序被我随意变动了，测试也通过了。那么，爱琢磨的我，又发现一个问题：Select Case True可以改成Select Case False吗？答案是，可以。这里就不作示例了，只给出语法

 Select Case False

 Case <逻辑运算表达式1>

 
<语句组1>

 Case <逻辑运算表达式2>

 
<语句组2>

 ....

 Case <逻辑运算表达式n>

 
<语句组n>

 Case Else

 
<默认语句组，当以上任何逻辑运算都为true时执行>

 End Select

 只要逻辑运算表达式的运算结果为False，就执行该Case下的语句组。

 
 
1.Select Case结构格式：   
    Select Case e 
        Case  e1 
              A组语句 
        Case  e2 
             B组语句 
        …… 
        Case  Else 
            n组语句 
    End Select 
 
2.说明  
?e为测试表达式，可以是算术表达式或字符表达式，其值应是数字或字符型 
?e1、e2等是测试项，取值必须与测试表达式的值类型相同，常用形式为： 
      ?具体取值，用逗号隔开，如：1，5，9 
      ?连续的范围：界1 TO 界2 ，如：12 To 20  
      ?满足某个条件：Is运算符，如：Is>10      
      ?三种形式可以组合使用
 
补充：关于is的用法
 
1、case is<5 ,is>10 正确，表示或的关系
 
    case is>5 and is<10      用来表示并的关系不正确
 
若要用is表示并的关系，可以在select case中再嵌入select case
 
如：
 
Option Explicit
 
Dim a
 
Private Sub Form_Click()
 
a = Val(InputBox("成绩"))
 
    Select Case a
 
Case Is > 80
 
Select Case a 
 
Case Is < 90
 
Print "良"
 
End Select
 
End Select
 
End Sub
 
2、如果想用关系运算符来表示范围的话，可以按照顺序写select case事件。执行到满足条件的语句就会输出。
 
如：case is>90
 
print a
 
case is>80
 
print b
 
case is >70
 
print c
 
....
 
end select
 
3、组合示例
 
Select Case a
        Case Is > 100, 5, 0 To 2, 20 To 30
            Print "真棒"
    End Select
 
 
 
 
 
3.例题
 
题目：根据学生的成绩，判断其等级：
 

  
条件
成绩≥90
80≤成绩＜90
70≤成绩＜80
60≤成绩＜70
成绩＜60
等级
优秀
良好
中等
及格
不及格
 
 

  程序界面：
 
 
 
 
程序代码：
 
Option Explicit
 
Private Sub Command1_Click()
  Dim x As Integer    '定义变量x 为整形数
  x = Val(Text1.Text)  '把文本框Text1里显示内容通过Val函数转成数值型数据再赋值给变量x 
  Select Case x         '测试表达式的值为x
    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、76、77、78、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 Else                    '测试表达式的值x在其它情况下
      Text2.Text = "不及格" '文本框Text2中显示“不及格”
    End Select
End Sub
 
'以下代码是清除文本框Text1、Text2中所显示的内容，且将焦点放在文本框Text1上
 
Private Sub Command2_Click()
   Text1.Text = ""
   Text2.Text = ""
   Text1.SetFocus
End Sub
 
'以下代码是程序退出
 
Private Sub Command3_Click()
   End
End Sub