如何测试字符串的长度？

Function CheckStringLength(txt)

txt=trim(txt)

x = len(txt)

y = 0

for ii = 1 to x

if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then

' 如果是中文.

y = y + 2

else

y = y + 1

end if

next

CheckStringLength = y

End Function