踏沙行 当前离线
二级士官
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 复制代码
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 复制代码
TOP