怎么将二维数组的对角线构成一个新的一维数组？

怎么将二维数组的对角线构成一个新的一维数组？对角数组的长度等于二维数组的第二维的长度，用ubound得到？

循环下，不麻烦，
for i = 1 to ubound(arr)
arrnew(i) = arr(i,i)
next

VB我不会 我就用java写把 差不多个意思

String[] str = new String[oldArray.length];
 for(int i=0;i<oldArray.length;i++){
     str[i] = oldArray[i][i]; //就是取11 22 33 对角线上的值 放到新的数组里面
 }