vb.net利用随机函数自动生成一个4×4的矩阵统计最大值及最大值的行号列号求主

Question

求主对角线和次对角线之和

Answer 1

Dim a(4, 4)
Cls
Randomize
For i = 1 To 4
For j = 1 To 4
a(i, j) = 10 + Int(Rnd * 90)
Next j, i

m = 1: n = 1
For i = 1 To 4
For j = 1 To 4
Print a(i, j);
If a(i, j) > a(m, n) Then m = i: n = j
Next j
Print
Next i

Print "最大的元素是" & a(m, n) & " 行=" & m & " 列=" & n

Msum = 0: Fsum = 0
For i = 1 To 4
Msum = Msum + a(i, i)
Fsum = Fsum + a(i, 5 - i)
Next i

Print "主对角线之和=" & Msum
Print "副对角线之和=" & Fsum