判断字符串中有没有中文字符的函数

function HasChinese(str)
for i=1 to Len(str)
if Asc(Mid(str,i,1)) < 0 then
HasChinese = true
exit for
end if
next
end function