数组问题

Question

假设 a（1000000）
我只要a（50）到a（999950）一段里的数据
怎么能快速取出？
不要循环，太失效率

Answer 1

Dim a(1000000), b()Private Sub Command1_Click()
  ReDim b(50 To 999950)  b() = a()End Sub

Answer 2

举个例子Dim a(20), b()Private Sub Command1_Click()
  ReDim b(5 To 10)
  For i = 1 To 20
    a(i) = i
  Next
  b() = a()
  For i = 5 To 10
    Debug.Print b(i);
  Next
End Sub

Answer 3

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Sub Command1_Click()
Dim a(20) As Long, K(0 To 9) As Long, i As Long
For i = 0 To 19
    a(i) = i
Next i
CopyMemory K(0), a(5), 10 * Len(K(0))End Sub