asp.netselectCase條件語(yǔ)句的使用方法

2019-11-14 16:49:26

字體：大中小

來(lái)源：轉(zhuǎn)載

供稿：網(wǎng)友

原文：http://www.111cn.net/net/vb-net/38548.htm

如果 testexPRession 與任何 Case expressionlist 表達(dá)式匹配

，則執(zhí)行此 Case 子句和下一個(gè) Case 子句之間的語(yǔ)句，對(duì)于最后

的子句，則會(huì)執(zhí)行該子句到 End Select 之間的語(yǔ)句，然后控制權(quán)

會(huì)轉(zhuǎn)到 End Select 之后的語(yǔ)句。如 testexpression 與多個(gè)

Case 子句中的 expressionlist 表達(dá)式匹配，則只有第一個(gè)匹配

后的語(yǔ)句被執(zhí)行。　　Case Else 用于指示若在 testexpression

和任何其他 Case 選項(xiàng)的 expressionlist 之間未找到匹配，則執(zhí)

行 elsestatements。雖然不是必要的，但最好是將 Case Else 語(yǔ)

句置于 Select Case 塊中以處理不可預(yù)見(jiàn)的 testexpression 值

。如果沒(méi)有 Case expressionlist 與 testexpression 匹配且無(wú)

Case Else 語(yǔ)句，則繼續(xù)執(zhí)行 End Select 之后的語(yǔ)句。
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>

實(shí)例二

<%@ 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>