如何更高效合并二进制字符串数组？

Question

dim enumFirst() as byte
dim enumSecond() as byte
dim lngCounter as long
for lngCountr=0 to 9
      enumFirst(lngCounter)=i
next lngCounterfor lngCountr=0 to 9
      enumSecond(lngCounter)=i+10
next lngCounterredim preserve enumSecond(ubound(enumSecond)+ubound(enumFirst)+1)
call movememoery(enumSecond(9+1),enumFirst(0),8)
说明：movememoery为API函数，本例子将enumFirst()的内容，复制到enumSecond()中。

Answer 1

这样行吗：
    Dim TA1() As Byte
    Dim TA2() As Byte
    Dim TA3() As Byte
    Dim TempStr As String
    
    TA1 = "抢"
    TA2 = "分"
    TA3 = CStr(TA1) + CStr(TA2)
    TempStr = TA3
    MsgBox TempStr
    

Answer 2

考虑一下，如果数组是STRIN类型，看还可不可以？
肯定不可以哪，因为：
STRING类型存储的格式不同BYTE类型的。

Answer 3

楼顶写的的API名称不太清楚吧。我认为应该是下面的：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
然后把
redim preserve enumSecond(ubound(enumSecond)+ubound(enumFirst)+1)
call CopyMemory(enumSecond(9+1),enumFirst(0),8)
改为
redim preserve enumSecond(ubound(enumSecond)+ubound(enumFirst)+1)
call CopyMemory(enumSecond(9+1),enumFirst(0),9)WinXP + VB6 测试通过

Answer 4

有点笔误，应该是：楼顶写的的API名称不太清楚吧。我认为应该是下面的：
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
然后把
redim preserve enumSecond(ubound(enumSecond)+ubound(enumFirst)+1)
call movememoery(enumSecond(9+1),enumFirst(0),8)
改为
redim preserve enumSecond(ubound(enumSecond)+ubound(enumFirst)+1)
call CopyMemory(enumSecond(9+1),enumFirst(0),9)WinXP + VB6 测试通过

Answer 5

有点笔误，应该是：API声明
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
然后把
redim preserve enumSecond(ubound(enumSecond)+ubound(enumFirst)+1)
call movememoery(enumSecond(9+1),enumFirst(0),8)
改为
redim preserve enumSecond(ubound(enumSecond)+ubound(enumFirst)+1)
call CopyMemory(enumSecond(9+1),enumFirst(0),10)

Answer 6

好象不行嘛！
copymemory 根本不起作用吗，这是为什么？