规阵元素求和

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

 

Private Sub Command1_Click()

For i = 1 To 4

For j = 1 To 4

Print a(i, j);  '输出数组元素

Next j

Print    '换行

Next i

End Sub

Private Sub Command2_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 Sub Form_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