请问如何分辨一个字符是中文还是西文？

Question

Public Function isChinese(ByVal asciiv As Integer) As Boolean
   If Len(Hex$(asciiv)) > 2 Then
      isChinese = True
   Else
      isChinese = False
   End If
End Function

Answer 1

用ASC函数把一个字符转换为ASC码后进行判断，英文字符应该是在0—127之间。中文的话，数值会很大。

Answer 2

不知道你有什么用处?
如果只是一个字符,中文为双字节.西文为单字节
len("中")=1 lenb("中")=2 len("B")=1 lenb("B")=1
中文字节第一位为1由两个字节组成.