急，一个关于 Len 的问题，在线等

Question

VB里面使用的是 Unicode 字符集
所以 Len("AB") 结果是2，Len("一二")结果还是 2
怎么使它 Len("AB") 结果是2，而Len("一二AB") 结果是 6 呢？

Answer 1

LenB("一二AB") 结果是 8

Answer 2

? lenB(STRCONV("一二AB",vbFromUnicode))
 6 

Answer 3

? lenB(STRCONV("一二AB",vbFromUnicode))
 6

Answer 4

用Mid取每一个字符，ASC()如果小于0，为汉字，加2，否则加1