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 = ""

       Text2.Text = Text2 & arr(i) '顯示前半截

   Text3.Text = ""

   For i = 0 To UBound(str)

       Text3.Text = Text3 & str(i) '顯示後半截

End Sub