【转载】理解VB中选择语句Select 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