select case

根据表达式的值来决定执行几组语句中的其中之一

Sub select多条件判断()
Dim s$
s = "a"
Select Case s
Case "a"
    MsgBox "我是a"
Case "b"
    MsgBox "我是b"
Case Else
    MsgBox "我是未知"
End Select

End Sub