菜鸟问题：select case 中的 case 范围表示方法
我以下代码有错误，但我不知道怎么修改！请高手指点！
错误信息提示：
case 1 to 9
这种表示方法错误。


<Script Language=VBScript>
<!--
dim whereNum
WhereNum=13
select case WhereNum
case 1 to 9
msgbox "你是亚洲人 "
case 10 to 19
msgbox "你是非洲人 "
case 20 to 29
msgbox "你是欧洲人 "
case else
msgbox "你是美洲人 "
end select
-->
</Script >

[解决办法]
VBScript 中 select case 没有 TO 的用法
这段代码应该是这样的

<Script Language=VBScript>
<!--
dim whereNum
WhereNum=13
select case WhereNum
case 1
msgbox "你是亚洲人 "
case 2
msgbox "你是亚洲人 "
case 3
msgbox "你是亚洲人 "
case 4
msgbox "你是亚洲人 "
case 5
msgbox "你是亚洲人 "
case 6
msgbox "你是亚洲人 "
case 7
msgbox "你是亚洲人 "
case 8
msgbox "你是亚洲人 "
case 9
msgbox "你是亚洲人 "
case 10
msgbox "你是非洲人 "

....
end select
-->
</Script >

或者

<Script Language=VBScript>
<!--
dim whereNum
WhereNum=13
if WhereNum> 0 and WhereNum <10 then
msgbox "你是亚洲人 "
elseif WhereNum> =10 and WhereNum <20 then
msgbox "你是非洲人 "
elseif WhereNum> =20 and WhereNum <30 then
msgbox "你是欧洲人 "
else
msgbox "你是美洲人 "
end if
-->
</Script >

或者用JS

<Script Language=JScript>
<!--
var whereNum;
WhereNum=13;
switch (WhereNum)
{
case 1:
case 2:
case 3:
case 4:
case 5:
case 6:
case 7:
case 8:
case 9:
alert( "你是亚洲人 ");
break;
case 10:

case 11:
case 12:
case 13:
case 14:
case 15:
case 16:
case 17:
case 18:
case 19:
alert( "你是非洲人 " );
break;
case 20:
case 21:
case 22:
case 23:
case 24:
case 25:
case 26:
case 27:
case 28:
case 29:
alert( "你是欧洲人 ");
break;
default:
alert( "你是美洲人 ");
break;
}
-->
</Script >
[解决办法]
楼上的第一种写法太牛了，vb的Case可以多条件的~

Case语句可以这样写

Case condition1[, condition2[...]]:
[解决办法]
<script language=vbscript>
Dim WhereNum
WhereNum = 13
Select Case WhereNum
Case 0,1,2,3,4,5,6,7,8,9,10
Call MsgBox( "你是亚洲人 ")
Case 10,11,12,13,14,15,16,17,18,19
Call MsgBox( "你是非洲人 ")
Case 20,21,22,23,24,25,26,27,28,29
Call MsgBox( "你是欧洲人 ")
Case Else
Call MsgBox( "你是美洲人 ")
End Select
</script>
[解决办法]
忘记了，呵呵