判断字符串中是否包含汉字

Dim i As Integer Dim a As Integer = 0 For i = 0 To txtbox1.Text.Length - 1 Dim b As String = txtbox1.Text.Substring(i, 1) If Asc(b) < 0 Then a = 1 End If Next

当a = 1时，说明包含汉字