vb中取字符串长度的函数