vbs中用select calse

Dim Color, MyVar
Sub ChangeBackground (Color)
MyVar = lcase (Color)
Select Case MyVar
Case "red" document.bgColor = "red"
Case "green" document.bgColor = "green"
Case "blue" document.bgColor = "blue"
Case Else MsgBox "选择另一种颜色"
End Select
End Sub
c中就是用
if.....
{
}
elseif......
{
}
else{
}
这样描述比较难于理解的话就是多用几个
if........
{
}