摘要：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 阅读全文