select 语句的使用

 'select 语句的使用
option explicit
dim intX
intX=3
dim intY
intY=5
select case sgn(intY-intX)
  case 1  msgbox intX  & "---is smaller than--- " & intY
  case -1 msgbox intX & " ---is bigger than---- " & intY
  case 0  msgbox intX & "---and" & intY & "is equal"
end select

 

'保存为aa.vbs格式，放到Ｃ盘，在DOS命令行中，输入cscript  aa.vbs