Private Sub Text1_Change()
if IsNumeric(text1.text) then '如果是数字型的
if abs(csng(text1.text))>=1 then '如果绝对值大于等于1
text1.text="0." '清空,也就是不能输入,也可以把最后输入的字符给去掉.
end if
else
text1.text="0." '清空,也就是不能输入
end if
end sub
程序可能不能正常运行,因为没有调试过,不过思路已经告诉你了.自己试一下吧
[此贴子已经被作者于2006-12-11 16:02:01编辑过]