Dim s(5) As Byte '数组长度为6 偶数
Dim d() As Byte
Dim str As String
For i = 0 To 5
s(i) = 155
Next
str = StrConv(s, vbUnicode)
d = StrConv(str, vbFromUnicode)
For i = 0 To UBound(d)
Debug.Print d(i)
Next
结果:
155
155
155
155
155
155
数组的字节数据与原来一样
复制代码
Dim s(6) As Byte '数组长度为7 奇数
Dim d() As Byte
Dim str As String
For i = 0 To 6
s(i) = 155
Next
str = StrConv(s, vbUnicode)
d = StrConv(str, vbFromUnicode)
For i = 0 To UBound(d)
Debug.Print d(i)
Next
结果:
155
155
155
155
155
155
0
数组的最后一个字节被转换为 0