VB中数组赋值问题：我有两个数组A=(1,2,3)；B=(4,5,6)现在怎么样让A数组值变为A=(1,2,3,4,5,6) ??

Question

我有两个数组A=(1,2,3)；B=(4,5,6)现在怎么样让A数组值变为A=(1,2,3,4,5,6)，以上只是举例，第一数组A里面的元素个数不确定，B里面也不确定，第二A里面可能没有数据。请问能否实现把B的值赋到A里面，并且在A有值的情况下是接在A现存值后面的

Answer 1

Dim A() As Integer
Dim B() As Integer
Dim LA As Long
Dim LB As Long
Dim i%
ReDim A(2)
ReDim B(2)
'给A,B赋值
A(0) = 1
A(1) = 2
A(2) = 3
B(0) = 4
B(1) = 5
B(2) = 6
'赋值结束
LA = UBound(A) - LBound(A) + 1
LB = UBound(B) - LBound(B) + 1
ReDim Preserve A(LA + LB - 1)
For i = LA To LA + LB - 1
A(i) = B(i - LA)
Next

Answer 2

数组一旦赋值，长度就固定了。你可以使用redim来重新定义A的长度。
temp=a
redim a(ubound(temp)+ubound(b)+1)
for i=0 to 2
a(i)=temp(i)
a(i+3)=b(i)
next
以上代码编译通过
不知道这样合不合你的要求

上面的ReDim Preserve更好！