asp.netselectCase條件語句的使用方法

2019-11-14 16:49:26

字體：大中小

來源：轉載

供稿：網友

原文：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 = 7
      select 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>