vb中如何实现数组对角线求和问题

2026年09月23日 21:52
有1个网友回答
网友(1):

数组是二维方阵么?

dim a(5,5) as integer
dim isum1 as integer
dim isum2 as integer

for i=1 to 5
isum1=isum1+a(i,i) ‘主对角线
isum2=isum2+a(i,5-i+1) '副对角线
next i