VB中如何判断Text的内容是否为数字？
Text1.Text只要是数字就可以，如果含有英文、汉字、符号等其他非数字（允许小数点）则Text1.Text清0...
Text1.Text只要是数字就可以，如果含有英文、汉字、符号等其他非数字（允许小数点）则Text1.Text清0
展开
2个回答
展开全部
Private Sub Text1_Change()
Dim i As Integer
For i = 1 To Len(Text1.Text)
If InStr("48|49|50|51|52|53|54|55|56|57|46|", Asc(Mid(Text1.Text, i, 1))) = 0 Then Text1.Text = ""
Next
End Sub
Dim i As Integer
For i = 1 To Len(Text1.Text)
If InStr("48|49|50|51|52|53|54|55|56|57|46|", Asc(Mid(Text1.Text, i, 1))) = 0 Then Text1.Text = ""
Next
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
