多選
對於表達式可以有多種可能答案的選項If語句就變得難·以處理例如考慮Wrox United商店您可以購買一些名牌商品當前的商品是使用標准的郵政服務寄送的但是如果俱樂部想要提供不同的交付方式該怎麼辦或許可以使用一個下拉列表
Dim delivery() As String =(Next Day Post Day Post courierInternational)
DeliveryDropDownListDatasource=delivery
DeliveryDropDownListDatabind()
注意
第一行最後的下劃線是一個換行符在它的前面必須添加一個空格告知Visual Basic這行代碼並沒有結束而是繼續到下一行
該數據可能來自一個數組或者更可能來自一個數據庫其中包括了交付類型和相關費用然而在計算出總價格後需要采取不同的行為通知包裝部門使用哪種箱子或者直接聯絡遞送公司的跟蹤系統使用If語句可以產生以下代碼
Dim del As String = DeliveryDropDownListSelectedValue
If del=Next Day Post Then
pack in a normal box and stick lots of stamps on it
ElseIf del= Day Post Then
pack in a courier specific box and book a pickup
Else
pack in a large create and take to the freight company
End If
您可以看到所有那些ElseIf語句以及布局都使得該代碼難以閱讀在這種情況下最好使用Select語句可以將該代碼轉換為
Select Case deliveryDropDownListSelectedValue
Case Next Day Post
pack in a normal box and stick lots of stamps on it
Case Day Post Then
Pack in a normal box and stick one stamp on it
Case Courier Then
pack in a courier specific box and book a pickup
Case Else
pack in a large crete and take to the freight company
這個代碼更整潔更加便於閱讀而且更不可能出錯它與前面示例的工作方式類似表達式位於第一行所選的值來自下拉列表然後將該值與每個Case語句中的值進行比較從上面開始向下比較第一次滿足條件時會執行那個Case語句下的代碼段並且忽略其他所有的Case語句如果沒有匹配值則運行Case Else語句下的代碼段
[] [] [] []
From:http://tw.wingwit.com/Article/program/net/201311/14714.html
