X=-5
A=val(inputbox(“请输入A的值:”))
Select case a
Case is>0
Y=x+1
Case is =0
Y=x+2
Case else
Y=x+3
End select