多分支選擇結構的特點是:從多個選擇結構中,選擇第一個條件為真的路線作為執行的線路。即所給定的選擇條件為真時,就執行A1塊;如果為假則繼續檢查下一個條件。如果條件都為假,就執行其它操作塊,如果沒有其它操作塊,則不作任何操作就結束選擇。其語法結構如下:
Select Case <測試條件>
[Case <表達式1>
[ <語句列1> ]]
[Case <表達式2>
[ <語句列1> ]]
...
[Case Else
[ <其他語句列> ]]
End Select
簡單實例1:
<html>
<head>
<title>If...then語句的使用</title>
<Script Language="VBScript">
<!--
Sub bchange(choice)
Select Case choice
case 1
document.bgcolor="#9AD3AF"
case 2
document.bgcolor="#F3FAC5"
case 3
document.bgcolor="#CDC8F7"
case 4
document.bgcolor="#F8C7DA"
case 5
document.fgcolor="#69011C"
case 6
document.fgcolor="#264436"
case 7
document.fgcolor="#D76817"
case 8
document.fgcolor="#544976"
End Select
End Sub
-->
</Script>
</head>
<body>
<center>
<h2>背景和文字顏色的選擇</h2>
<p><table border=2>
<tr><th>背景顏色<th>選擇<th>文字顏色<th>選擇</tr>
<tr><td>淡綠<td><input type=radio onClick="bchange(1)"><td>深紅<td><input type=radio onClick="bchange(5)"></tr>
<tr><td>淡黃<td><input type=radio onClick="bchange(2)"><td>深綠<td><input type=radio onClick="bchange(6)"></tr>
<tr><td>淡紫<td><input type=radio onClick="bchange(3)"><td>桔黃<td><input type=radio onClick="bchange(7)"></tr>
<tr><td>淡粉<td><input type=radio onClick="bchange(4)"><td>深藍<td><input type=radio onClick="bchange(8)"></tr>
</table>
</center>
</body>
</html>
簡單實例2:
<html>
<head>
<title>asp簡單程序</title>
</head>
<body>
<%
dim aa,bb,cc,dd,ee,ff,my_time
my_time=time()
aa=#00:00:00#
bb=#07:00:00#
cc=#12:00:00#
dd=#14:00:00#
ee=#20:00:00#
ff=#23:59:59#
x=time()
select case true
case x>=aa and x<bb
response.write("早上好 ,歡迎你的光臨 !")
case x>bb and x<cc
response.write(" 上午好,歡迎你的光臨 !")
case x>cc and x<dd
response.write("中午好 ,歡迎你的光臨 !")
case x>dd and x<ee
response.write("下午好 ,歡迎你的光臨 !")
case x>ee and x<ff
response.write("晚上好 ,歡迎你的光臨 !")
end select
%>
</body>
</html>