如果 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>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
