vb 如何在现有byte数组前端添加数据（数组里有数据），不想逐一读取，太影响速度

如果我告诉你，字节数组可以像字符串一样进行拼接，而且可以把字符串直接赋值给字节数组，你会不会觉得很神奇或者不可思议？当然，由于VB的字符串使用Unicode编码，而字节数组要求ANSI编码，所以要把编码转换一下才行。下面就是个把两个字节数组合为一个的例子：

Private Sub Command1_Click()

Dim b1() As Byte, b2() As Byte, b3() As Byte, i As Integer

ReDim b1(4)

Print "第1个字节数组："

For i = 0 To 4

    b1(i) = 16 + i

    Print Hex(b1(i)) " "

Next

Print

ReDim b2(7)

Print "第2个字节数组："

For i = 0 To 7

    b2(i) = 160 + i

    Print Hex(b2(i)) " "

Next

Print

b3 = StrConv(StrConv(b1, vbUnicode) & StrConv(b2, vbUnicode), vbFromUnicode)

Print "合并后的字节数组："

For i = 0 To UBound(b3)

    Print Hex(b3(i)) " "

Next

End Sub

b3 = StrConv(StrConv(b1, vbUnicode) &StrConv(b2, vbUnicode), vbFromUnicode)

这句我单独解释一下：这是先把两个字节数组b1和b2分别转为Unicode编码，它们就变成了VB的字符串（真的哦！），然后把两个字符串拼接成一个字符串，再转为ANSI编码，最后赋值给一个动态字节数组b3，OK搞定！

应该是类型转换问题，也就是说从一开始你要是使用byte，那么第一种方法是可行的，可能你是从中途把别的类型的要转换成byte，当然不行了，因为比如说，老虎一定是动物，但是动物不一定是老虎，所以你先看看你最前面的是不是定义的比byte大的类型了

---