在VB6中,如何对数组进行拆分与合并

Question

如题

Answer 1

类似这样的合并与拆分吗?
dim a(),b(),c()
'拆分a为b,c两数组
for i=0 to k
    b(i)=a(i)
next ifor i=k+1 to ubound(a)
    c(i)=a(i)
next i'合并b,c 为a
for i=0 to ubound(b)
    a(i)=b(i)
next i
for k=0 to ubound(c)
    a(i+k)=b(k)
next i

Answer 2

Private Sub Form_Load()
Dim a, b, c
Dim arr()
Dim a1(), b1(), c1()
Dim i, j, m, n, l As Integer
a = Array(1, 2, 3, 4)
b = Array(5, 6, 7, 8)
c = Array(9, 10)
For i = 0 To UBound(a) '合并数组
ReDim Preserve arr(j)
arr(j) = a(i)
j = j + 1
Next
For i = 0 To UBound(b)
ReDim Preserve arr(j)
arr(j) = b(i)
j = j + 1
Next
For i = 0 To UBound(c)
ReDim Preserve arr(j)
arr(j) = c(i)
j = j + 1
Next
For i = 0 To UBound(arr)
Debug.Print arr(i)
Next
For i = 0 To 2 '分割数组
ReDim Preserve a1(i)
a1(i) = arr(i)
Next
For i = 3 To 5
ReDim Preserve a1(n)
a1(n) = arr(i)
n = n + 1
Next
For i = 6 To 9
ReDim Preserve a1(m)
a1(m) = arr(i)
m = m + 1
Next
End Sub