多分支选择结构的特点是:从多个选择结构中,选择第一个条件为真的路线作为执行的线路。即所给定的选择条件为真时,就执行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 choicecase 1document.bgcolor="#9AD3AF"case 2document.bgcolor="#F3FAC5"case 3document.bgcolor="#CDC8F7"case 4document.bgcolor="#F8C7DA"case 5document.fgcolor="#69011C"case 6document.fgcolor="#264436"case 7document.fgcolor="#D76817"case 8document.fgcolor="#544976"End SelectEnd 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: