好吧问答库 > vb编程求下列矩阵主对角线上的元素之和。 1 2 3 4 5 6 7 8 9

vb编程求下列矩阵主对角线上的元素之和。 1 2 3 4 5 6 7 8 9

2026年09月26日 11:20

有2个网友回答

网友（1）：

我的理解,你是一个9*9的矩阵,那么:
dim s as integer
dim i as integer
dim j as integer
dim d(9,9) as integer '假设二维数组为d,且主对角线元素的值为1-9
s=0
for i=1 to 9
for j=1 to 9
if i=j then s = s + d(i,j)
next j
next i
print s

网友（2）：

dim m,n as integer
for m = 1 to 9
n = n + m
next m
print n