问题的原因是因为vb中的自带函数不能很好的返回中英文混合的字符串的长度
len只能返回总字符数,而lenb之能返回字节数,而vb中的字符是以unicode存储的
所以返回的是2倍长度,用下面这个函数可以返回你要求的长度,即全角字2字节,半角
字1字节
Private Function LenOfStrB(str As String) As Integer
Dim i As Integer
For i = 1 To Len(str)
If Asc(Mid(str, i)) < 0 Then LenOfStr = LenOfStr + 1
Next
LenOfStr = LenOfStr + Len(str)
End Function