vb中如何複製數組

Question

arr1(0...9)
現在要使arr2=arr(4...6),如何處理?

Answer 1

Dim arry1(0 To 9) As Integer
    Dim arry2() As Integer
    Dim i As Integer
    For i = 0 To 9
        arry1(i) = i
    Next
    
    ReDim arry2(0 To 2)
    For i = 0 To UBound(arry2)
        arry2(i) = arry1(i + 4)
    Next

Answer 2

'声明此API
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
( _
    Destination As Any, _
    Source As Any, _
    ByVal Length As Long _
)
'然后这么调用
Call CopyMemory(arr2(0),arr1(4),3)

Answer 3

chenziteng(陈子腾) 这方法对大的数组或对象数组比较快.但注意COPY的大小.

Answer 4

chenziteng(陈子腾)的方法第一次见诶！比较新颖，不错！：）