只输入0-100不输入A-Z字母和其他字符！
Private Sub Text1_LostFocus()
If Val(Text1.Text) <顷凯 0 Or Val(Text1.Text) > 100 Then MsgBox "请输雀悔唤入前戚1-100的数字"
End Sub
方法1
change事件里限制ASCII除了数字外其他的都禁用
禁用鼠标右键(防止复制)
把文本框内容转为整数孙好雹型后(默认为字符串型)判断是否属于1~100
如果不属于则报错
方法2
在文本框失则帆去焦点事件里
增加判断输入内容是否为整数~是否为1~100
这种是只要求结果不要求过程袜宴的方法
那就用方法1
文本框的 maxlength 属性设置最大
一个信樱新的TEXT 都是空的。中岩要是最小要求1那么你可卖坦御以在提交的时候 检测下。是否为空？
if text1.text=""then