【VB技巧】VB Select Case 条件判断执行语句

VB Select Case 条件判断执行语句：

Select Case X
    Case Is
        '当X小于等于10时，执行的代码
    Case Is >= 100
        '当X大于等于100时，执行的代码
    Case Else
        '未达到以上条件，执行的代码
End Select

实例：

Dim X  As Long
X = 50
Select Case X
    Case X
        MsgBox "X小于等于10", vbInformation, "提示"
    Case X >= 100
        MsgBox "当X大于等于100", vbInformation, "提示"
    Case Else
        MsgBox "X大于10小于100(10
End Select