vbs的错误处理语句

 '错误处理
on error resume next '允许出错，在出错地方继续执行下一行代码
 'on error goto 0    '错误一旦出现，则立即停止代码的执行

  dim strX
  dim intY

  strX="A"
  intY=5
MSGBOX strX+intY
if err.number <>0 then
msgbox "error number is " &cstr(err.number) & vbcrlf & _
"error description is " & err.description
end if

'接收用户输入的整数值，对他们进行比较
option explicit
dim x
dim y
dim z
do
 do
   x=inputbox("enter first number ","enter for x")
 loop until isnumeric(x) and x <> ""

 do
   y=inputbox("enter second number","enter for y")
 loop until isnumeric(y) and y <> ""
 select case sgn(x-y)
  case 1 msgbox x &"bigger" & y
  case -1 msgbox x &"smaller" & y
  case 0 msgbox x &"equal" & y
 end select
 z=msgbox("do you want to try again",vbyesno,"numbers comparing ")
loop until z=vbno