矩阵元素求和的实现步骤

Dim a(1 To 4, 1 To4) As Integer

Private SubCommand1_Click()

For i = 1 To 4

For j = 1 To 4

Print a(i, j)

Next j

Print

Next i

End Sub

 

Private SubCommand2_Click()

Dim sum As Integer

Dim s As Integer

sum = 0

For i = 1 To 4

For j = 1 To 4

sum = sum + a(i,j)

If i = j Or i = 5- j Then s = s + a(i, j)

Next j

Next i

Print "所有元素之和:" & sum

Print "主对角元素之和:" & s

End Sub

 

Private SubForm_Load()

Dim p As Integer

p = 31

For i = 1 To 4

For j = 1 To 4

a(i, j) = p + (j -1) * 2

Next j

p = p + 10

Next i

End Sub