一个简单的个人信息程序，要求：当在姓名这一个文本框输入的不是汉字时，用inputbox弹出输入框重新输入。
用什么语句检测到输入的不是汉字？

在本论坛看到相关的贴说用asc函数可以实现，汉字的asc码为小于0

测试如下：
If Asc(Left("a" & Text1.Text, 9)) > 0 Then
a = InputBox("请输入你的姓名(汉字)：", "注意")

——测试失败。。。

有关教材说，asc函数在非DBCS系统下，返回值为0-255，问题是不是在这呢，返回值为0-255，则没有负值！

有没其他方法可以实现的。。。。。。

'汉字
Private Sub txtName_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!一-龥]" Then
If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
KeyAscii = 0
End If
End If

解释一下啊

这是一个键盘输入事件啊
下面是正则表达式

楼主那个if我看不懂

我觉得就是
is_chn=true
for i= 1 to len(text1)
 if asc(mid(text1,i,1))>0 and instr(" " & vbcrlf,mid(text1,i,1))<0 then is_chn=false
next 'i

谢了，2楼楼主。

用ASCII碼啊