请问如何在inputbox中判断是否是中文输入？

Question

if LenB（strings）<>Len（strings）then 中文 else 英文

Answer 1

LenB 函数作用于字符串中的字节数据，如同在双字节字符集语言中一样。所以 LenB 返回的是用于代表字符串的字节数，而不是返回字符串中字符的数量。Len 总是返回其包含的字符数。

Answer 2

上面的有些问题，这个可以：
逐个字符查ascii码，如果<0,是中文 
如：Asc("如")=-14105 
    Asc("a")=97

Answer 3

逐个字符查ascii码
for i = 1 to len(string )
 aa=mid(string,1,1)
 if asc(aa)<0 or aa>256 then
    msgbox "有汉字"
  end if

Answer 4

 sorry.忘了next
for i = 1 to len(string )
aa=mid(string,1,1)
if asc(aa)<0 or aa>256 then
    msgbox "有汉字"
  end if
next

Answer 5

cccmx()　的代码好像错了耶
Function IsChinese(Str As String) as boolean
dim pos as integer,length as integer
length=len(str)
ischinese=false
for pos=1 to length
if asc(mid(str,pos,1))<0 then IsChinese=true:exit function
next
end function