Question

如何让文本框中只能输入0-100的数字？（包括0和100）

不能输入：
小于0
大于100
英语，中文等其他字符
满意加分！

Answer 1

可以让文本框只能接收数字：代码如下
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 13 Then
Select Case Chr(KeyAscii)
Case "0" To "9"
Case Else
KeyAscii = 0
End Select
End If
End Sub
至于数字范围（0-100），要写LostFocus()事件，代码如下：
Private Sub Text1_LostFocus()
Text1.Text = Trim(Text1.Text)
v = Val(Text1.Text)
If v < 0 Or v > 100 Then
MsgBox ("输入超出范围！")
Text1.SetFocus
End If
End Sub

Answer 2

<input type="text" onchange="if(!/(^0$)|(^100$)|(^\d{1,2}$)/.test(value)){value='';alert('输入格式不正确!');}" />