flashercs

a=InputBox ("请输入内容")
WSH.Echo TypeName(a) & " : """ & a & """"
Select Case True
    Case a=""
        MsgBox "你没有输入"  
    Case Not ISNumeric(a)       
        MsgBox "你输入的非数字"
    Case a>0 and a<10
        MsgBox "你输入的是0-9"    
    Case a>=10 and a<20
        MsgBox "你输入的是10-20"    
    Case else  
        MsgBox "输入超出范围"    
End Select   
复制代码

flashercs

回复 3# 踏沙行


    InputBox返回的数据类型是Empty 或 String，当是String类型时，string与number类型进行比较，会先把string变成number后再比较，但是转换时空字符串""或无法转换为数值的字符串就会throw exception。因此a>0不能放前面。