vb字符串和字节数组转换奇怪的问题解决

问题

Private Sub Form_Load()    Dim b() As Byte    Dim s As String    s = "aaa;ss;111;中国"    Debug.Print s    b = StrConv(s, vbFromUnicode) ' 字符串转成数组    s = StrConv(b, vbToUnicode)      ' 数组转成字符串    Debug.Print sEnd Subaaa;ss;111;中国慡?獳????ú 这里为什么转换不会来了？怎么才能让他回来呢？

答

在CSDN有与LZ相同的问贴,已有网友指出下句错 s = StrConv(b, vbToUnicode) ' 数组转成字符串 应该为: s = StrConv(b, vbUnicode) ' 数组转成字符串 参阅NSDN: StrConv 函数 返回按指定类型转换的 Variant (String)。 语法 StrConv(string, conversion, LCID) StrConv 函数的语法有下面的命名参数： 部分 说明 string 必要参数。要转换的字符串表达式。 conversion 必要参数。Integer。其值的和决定转换的类型。 LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。） 设置值 conversion 参数的设置值为： 常数 值 说明 vbUpperCase 1 将字符串文字转成大写。 vbLowerCase 2 将字符串文字转成小写。 vbProperCase 3 将字符串中每个字的开头字母转成大写。 vbWide* 4* 将字符串中单字节字符转成双字节字符。 vbNarrow* 8* 将字符串中双字节字符转成单字节字符。 vbKatakana** 16** 将字符串中平假名字符转成片假名字符。 vbHiragana** 32** 将字符串中片假名字符转成平假名字符。 vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。 vbFromUnicode 128 将字符串由 Unicode 转成系统的缺省码页。