原文：http://www.111cn.net/net/vb-net/38548.htm
如果 testexPRession 與任何 Case expressionlist 表達式匹配
，則執行此 Case 子句和下一個 Case 子句之間的語句，對于最后
的子句，則會執行該子句到 End Select 之間的語句，然后控制權
會轉到 End Select 之后的語句。如 testexpression 與多個
Case 子句中的 expressionlist 表達式匹配，則只有第一個匹配
后的語句被執行。 Case Else 用于指示若在 testexpression
和任何其他 Case 選項的 expressionlist 之間未找到匹配，則執
行 elsestatements。雖然不是必要的，但最好是將 Case Else 語
句置于 Select Case 塊中以處理不可預見的 testexpression 值
。如果沒有 Case expressionlist 與 testexpression 匹配且無
Case Else 語句，則繼續執行 End Select 之后的語句。
Select Case testexpression [Case expressionlist-n
[statements-n]] . . . [Case Else expressionlist-n
[elsestatements-n]] End Select
<%@ Page Language="VB" %>
<script runat="server">
sub Page_Load(Sender as object, e as eventargs)
dim strClockStatus As String
strClockStatus = "AAA"select Case strClockStatus
case "AAA", "BBB", "CCC"
Response.Write("A")
case "DDD"
Response.Write("B")
case else
Response.Write("C")
end select
end sub
</script><html><body>
</body></html>
實例二
<%@ Page Language="VB" %>
<script runat="server">
sub Page_Load(Sender as object, e as eventargs)
dim intAge As integer = 7select Case intAge
case "7"
Response.Write("That's a string!")
case 7
Response.Write("7")
case <10
Response.Write("less than 10")
end select
end sub
</script><html><body>
</body></html>
新聞熱點
疑難解答
