vb中如何实现数组对角线求和问题
发布网友
发布时间:2024-01-02 20:10
我来回答
共3个回答
热心网友
时间:2024-08-10 10:25
一个 n阶方阵,采用n×n(n行n列)的二维数组来存储:
其主对角线上的元素的下标,满足:行号 = 列号
其副对角线上的元素的下标,满足:行号 + 列号 = n + 1
VB代码实现:(以n = 5为例,并且数组为d,并已经赋值)
dim n as integer
dim S1 As Integer '主对角线上元素之和
dim S2 As Integer '副对角线上元素之和
dim i as integer
dim j as integer
n = 5
S1 = 0
S2 = 0
for i = 1 To 5
for j = 1 to n
if i = j Then s1 = s1 + d(i,j)
if i + j = n + 1 Then s2 = s2 + d(i,j)
next j
next i
Print "主对角线元素之和 = ";S1
Print "副对角线元素之和 = ";S2
热心网友
时间:2024-08-10 10:27
循环嵌套
热心网友
时间:2024-08-10 10:29
用循环实现:
for i=0 to 9
sum1=sum1 + a(i,i)
sum2=sum2+a(i,9-i)
next