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
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