Unicode的问题

Question

你误解了我的意思 你说的我明白比如现在在Visual Studio .NET中str1="啊";str2="a";
那么str1和str2的长度是一样的 原因是Unicode中把汉字也按1个字符计算
但是我做字处理的时候就无法正确显示（格式对齐）
所以我需要一个方法能按一个汉字2个字符去计算

Answer 1

For i = 1 To Len(字符串)
            Dim c = Asc(Mid(字符串, i, 1))
            If c >= 0 And c < 128 Then
                字符串长度 = 字符串长度 + 1
            Else
                字符串长度 = 字符串长度 + 2
            End If
        Next
这样判断字符串长度，全角(包括汉字)长度为两位，半角长度为一位。