学步园

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

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