Question

设有一个二维数组A(5,5),试用VB编写程序？

1、所有元素之和
2、所有靠边元素之和
3、两条对角线元素之和

Answer 1

Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 5
If i = 1 Or j = 1 Or i = 5 Or j = 5 Then bsum = bsum + a(i, j) '所有靠边元素之和
asum = asum + a(i, j) '所有元素之和
If i = j Or i + j = 6 Then dsum = dsum + a(i, j) '两条对角线元素之和
Next j
Next i
Print "两条对角线元素之和:" & bsum
Print "所有元素之和" & asum
Print "两条对角线元素之和" & dsum
End Sub

Answer 2

Private Sub Command1_Click()
Dim a(5, 5)
For i = 1 To 5
For j = 1 To 5
a(i, j) = i + j
Next
Next
allsum = 0
duisum = 0
bianxume = 0

For i = 1 To 5
For j = 1 To 5
allsum = allsum + a(i, j)
If i = j Or i + j = 6 Then
duisum = duisum + a(i, j)
End If
If i = 1 Or j = 1 Or i = 5 Or j = 5 Then
bianxume = bianxume + a(i, j)
End If

Next
Next
Print allsum
Print duisum
Print bianxume

End Sub

彪悍人生不需要解释，彪悍的代码不需要注释