3-07.htm

来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· HTM 代码 · 共 16 行

<Script Language="VBS">
age = 13 
Select Case age
Case 0, 1, 2, 3, 4, 5 
    S = "小朋友"
    Case 6, 7, 8, 9, 10, 11  
        S = "儿童"
    Case 12, 13, 14, 15, 16, 17
        S = "少年"
    Case Else
        S = "成人"
End Select
S = age & " 岁是" & S & "啦！"
document.Write(S)
</Script>