Question

vb中如何判定文本框里面输入的内容是否是数字？ vb中如何判定文本框里面输入的内容是否是数字

vb中如何判定文本框里面输入的内容是否是数字？

vb中如何判定文本框里面输入的内容是否是数字？

Answer 1

有专门的函数：isnumeric()
例如：
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
mshbox "不是数字！"
End If
End Sub

Answer 2

直接用IsNumeric(Text1.tex1)啊，true则为数字，false则非数字 ！！

Answer 3

dim s as string,s1 as string
s1=text1.text
for i=1 to len(s1)
s=mid(s1,i,1)
select case s
case "0" t0 "9"
case else
mgsbox "不是数字"
exit for
end select
next