数组是二维方阵么? dim a(5,5) as integerdim isum1 as integerdim isum2 as integer for i=1 to 5 isum1=isum1+a(i,i) ‘主对角线 isum2=isum2+a(i,5-i+1) '副对角线next i