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

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

转载于:https://www.cnblogs.com/dotion/p/5251381.html