if not isnumeric(text1.text) then
msgbox "不是数值型数据！"
else if cstr(cint(text1.text))!=text1.text
msgbox "不是整数！"
end if
先判断输入的字符串是否是数据，再判断输入的是否是整数！
可以使用IsNumeric(s)函数判断表达式s是不是数字，返回True则为数字。
if not isnumeric(text1.text) then
msgbox "不是数值型数据！"
end if
isnumeric判断是否为数值型数据
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024