楼上说的对，汉字的ASCII码的值全是负数，可以在TEXT控件的KEYPRESS事件中判断ASCII码是否为负。代码楼上已经给出我就不写啦。
这样就可以了Private Sub Command1_Click() Dim i, t For i = 1 To Len(Text1.Text) t = Mid(Text1.Text, i, 1) If Asc(t) < 0 Then ' 在VB中，中文的ASCII值总是负值 MsgBox t, 0, "汉字" End If Next End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024