VB中5×5矩阵,如何计算该矩阵四周边线元素之和?

Private Sub Form_Click()
Dim myArray(1 To 5, 1 To 5) As Integer
Dim mySum As Integer, i As Integer, j As Integer

Randomize
For i = 1 To 5
For j = 1 To 5
myArray(i, j) = Int(10 * Rnd) '为矩阵随机赋值
Print myArray(i, j),
Next
Print
Next

mySum = 0
For i = 1 To 5
mySum = mySum + myArray(1, i) + myArray(5, i)
If i <> 1 And i <> 5 Then mySum = mySum + myArray(i, 1) + myArray(i, 5)
Next

Print mySum

End Sub