现在由一个二维数组
AA( 1 to i, 1 to i),
这里假设i＝ 4，数组的值分别为：
1   2   3   4
5   6   7   8
9   10  11  12
13  14  15  16
一维数组为A（1 to k），这里k＝(i-1)*i/2 = 6,它的值分别取二维数组的上三角的6个值.
即要实现：
A(1)=AA(1,2)=2
A(2)=AA(1,3)=3
A(3)=AA(1,4)=4
A(4)=AA(2,3)=7
A(5)=AA(2,4)=8
A(6)=AA(3,4)=12
请教在i值变化的情况下，如何实现上面的赋值？？？？

谢谢anbry回复！！你的方法也挺好的！！
呵呵，我之前也想到用“preserve Redim”，不过后来没有实现！
今天冥思苦想，终于也找到一种方法了！放在这里交流一下，呵呵！！
上面二维数组的两维是一样的，我的方法是：
dim m% ,n%, k%
for m = 1 to (i-1)
  for n = (m+1) to i
    k = k + 1
    A(k)=AA(m,n)
  next n
next m