Question

VB中关于TEXT中的数字输出入

Private Sub Text1_Change()
Dim I As Integer
sum = Val(Text1.Text)
For I = 1 To Len(Text1.Text)
If IsNumeric(Mid(Text1.Text, I, 1)) Then
bIsNum = True
Else
bIsNum = False
End If
Next I
If bIsNum = True Then
Label6.Caption = sum
Else
Label6.Caption = "请输入正确数字"

End If
End Sub

如果想只能输100以内的数,别的数输入无效应怎么改上面这个程序

Answer 1

if isnum(text1.text) then
msgbox('桐瞎咐请输入数字')
end if
if len(text1.text)<3 and len(text1.text)>局纯0 then
else
msgbox('输入的数不是100以内神唯的数')
end if