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时,说明包含汉字