VB中5*5的二维数组求其次对角线上所有元素之和

2025-02-26 18:20:28
推荐回答(1个)
回答1:

假设维数组为d,却数组下标从1开始,
s = 0
for i = 1 to 5
for j = 1 to 5
if i + j = 6 then
s = s + d(i,j)
end if
next j
next i
print s