取他们ASCII ,判断是不是在数字范围内
是不是整数
dim a
a=inputbox("")
if int(a)=a-0 then ' a如果不是整数,取整后就不等于原数,返回false,a-0是就inputbox文本型转换成数值
msgbox "整数"
else
msgbox"非整数"
end if
是否是数字
0的ascii是48 ,9的ascii是57,1~8是依次加下去
dim a,b,c
c=true
a=inputbox("")
for b=1 to len(a)'循环判断每个字符,len(a),取a的文本长度
if asc(mid(a,b,1))57 then c=false 'asc(a),是取a的ascii,mid(a,b,1)实现取每个字符
next
if c then
msgbox"数字"
else
msgbox"非数字"
end if