主题：判断字符串

正则判断

Dim str As String = "123456"
Dim reg As new System.Text.RegularExpressions.Regex("^[0-9]+$")
If reg.IsMatch(str) Then
    msgbox("全数字")
End If 

------------------

Dim str As String = "我们是中国"
Dim reg As new System.Text.RegularExpressions.Regex("[0-9a-zA-Z,]+")
If reg.IsMatch(str)=False Then
    msgbox("全中文")
End If