Question

vb 小问题！如何使textbox控件只能输入从1~1000的整数

只能输入整数，不能输中文英文，范围是1~1000

鉴于我是一名新手，最好加上注释

Answer 1

If Not IsNumeric(Text1.Text) Then
MsgBox "只允许输入数字！"
Else
If Val(Text1.Text) < 1 Or Val(Text1.Text) > 1000 Then
MsgBox "数字范围为[1，1000]！"
End If
End If

Answer 2

Private Sub Text1_Change()
Dim X As Integer
If IsNumeric(Text1.Text) Then '判断是否是数字，若是，则执行。

else
end if
If Int(Text1.Text) >= 1 And Int(Text1.Text) <= 1000 Then ‘范围是1~1000

X = Int(Text1.Text) //转为数字
Else
X = 1
End If
Text1.SelStart = Len(Text1.Text)
Text1.Text = X '在改变事件中，
Else
Text1.Text = ""
End If
End Sub

Answer 3

楼上有高手答了，我换一个方式作答

Private Sub Text1_Change()
Dim X As Integer
If IsNumeric(Text1.Text) Then
If Int(Text1.Text) >= 1 And Int(Text1.Text) <= 1000 Then
X = Int(Text1.Text)
Else
X = 1
End If
Text1.SelStart = Len(Text1.Text)
Text1.Text = X
Else
Text1.Text = ""
End If
End Sub