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

[xayzmb]

如题

[booksoon]

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

for 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

[xayzmb]

有更好滴办法吗?

[booksoon]

memorycopy不知可不可以做

[SYSSZ]

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

[SYSSZ]

字串数组可用先全Join,再Split

[贝隆]

CopyMemory