cbm666 :请您注意啦!要是全角符号怎么办呢?
你总说VB吧现成有帖子,没错,那就是
InputStr = "汉"
If Asc(InputStr) < 0 Then
gbascii = AscB(StrConv(InputStr, vbFromUnicode)) '区位码在16区之后的为汉字
If gbascii - 160 > 15 Then
Print "是汉字"
Else
Print "是全角符号"
End If
Else
Print "是半角英文或数字"
End If
http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=26309608&z=3609552&pn=0&rn=50&lm=0&word=vb#26309608