VB编程：利用指针实现数组拆分

运行效果：

程序代码：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Form_Load()
    Dim arr()
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    Text1.Text = ""
    For i = 0 To UBound(arr)
        Text1.Text = Text1.Text & arr(i)
    Next i
    Dim str(4)
    CopyMemory ByVal VarPtr(str(0)), ByVal VarPtr(arr(4)), 5 * 16 '截取数组标号第四位之后的数
    ReDim Preserve arr(UBound(arr) - 5)
    Text2.Text = ""
    For i = 0 To UBound(arr)
        Text2.Text = Text2 & arr(i) '显示前半截
    Next i
    Text3.Text = ""
    For i = 0 To UBound(str)
        Text3.Text = Text3 & str(i) '显示后半截
    Next i
End Sub