- a=InputBox ("请输入内容")
- Select Case True
- Case a>0 and a<10
- MsgBox "你输入的是0-9"
- Case a>=10 and a<20
- MsgBox "你输入的是10-20"
- Case a=""
- MsgBox "你没有输入"
- Case else
- MsgBox "输入超出范围"
- End Select
复制代码 当弹出输入框时,输入任何值都可以正常判断
但如果不输入,直接按回车和ESC键,会提示出错。出错语句指向"Selece Case True"一句 |