Imports System
Public Class MatrixCorners
Public Shared Function sumMatrixCorners(ByVal matrix As Integer(,)) As Integer
Return matrix(0, 0) +
matrix(0, matrix.GetUpperBound(0) + 1) +
matrix(matrix.GetUpperBound(1) - 1, 0) +
matrix(matrix.GetUpperBound(1) - 1, matrix.GetUpperBound(0) + 1)
End Function
Public Shared Sub Main(ByVal args As String())
Dim matrix(,) As Integer = New Integer(,) {
{1, 2, 3, 4},
{5, 6, 7, 8},
{9, 3, 2, 0}}
Console.WriteLine(sumMatrixCorners(matrix))
End Sub
End Class
' run:
'
' 14
'