Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
在西岗等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站制作、成都网站设计 网站设计制作按需制作网站,公司网站建设,企业网站建设,品牌网站建设,全网整合营销推广,成都外贸网站建设,西岗网站建设费用合理。
if IsNumeric(TextBox1.Text()) = False Then
MsgBox("内容不是数字")
End If
End Sub
s = "abc2sss57zzz03iop" '要判断的字符串
For i = 0 To 9
If Instr(s, i) Then Exit For
Next
If i 9 Then
MsgBox "字符串中不含数字"
Else
MsgBox "字符串中含有数字"
End If
如果用常规编程的方法：
直接用split（str1，“，”）的形式把str1字符串分成字符串数组，然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。
