'错误处理
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