Select Case X Case 1, 2, 3, 4 '这里写你执行的代码End Select
VBS X=1If X=1 MessageBox "X=1"ElseIf X=2 MessageBox "X=2"ElseIf X=3 MessageBox "X=3"ElseIf X=4 MessageBox "X=4"EndIf 把代码套进去试试
