Найти сумму элементов первой строки и первого столбца матрицы

Module Module1
 
    Sub Main()
        Dim N, M, I, J As Integer
        Dim A(,) As Single = {{18, 19, -28}, {14, 13, 1}, {222, 0, 17}}
        N = A.GetUpperBound(0)
        M = A.GetUpperBound(1)
        Console.WriteLine("N={0} M={0}", N, M)
        Console.WriteLine("Количество строк матрицы А равно N+1={0}", N + 1)
        Console.WriteLine("Количество столбцов матрицы А равно M+1={0}", M + 1)
        Dim B(N), D(M) As Single
        Dim Z As Single
        Console.WriteLine("")
        Console.WriteLine("Массив значений сумм строк матрицы А () :")
        For I = 0 To N
            B(I) = 0
            For J = 0 To M
                B(I) = B(I) + A(I, J)
            Next J
            Console.WriteLine("B({0})={1}", I, B(I))
        Next I
        Console.WriteLine("")
        Console.WriteLine("Массив значений сумм столбцов матрицы А ():")
        For J = 0 To M
            D(J) = 0
            For I = 0 To N
                D(J) = D(J) + A(I, J)
            Next I
            Console.WriteLine("D({0})={1}", J, D(J))
        Next J
        Console.ReadLine()
    End Sub
 
End Module

Module Module1
 
Sub Main()
Dim N, M, I, J As Integer
Dim A(,) As Single = {{18, 19, -28}, {14, 13, 1}, {222, 0, 17}}
N = A.GetUpperBound(0)
M = A.GetUpperBound(1)
Console.WriteLine("N={0} M={0}", N, M)
Console.WriteLine("Количество строк матрицы А равно N+1={0}", N + 1)
Console.WriteLine("Количество столбцов матрицы А равно M+1={0}", M + 1)
Dim B(N), D(M) As Single
Dim Z As Single
Console.WriteLine("")
Console.WriteLine("Массив значений сумм строк матрицы А () :")
For I = 0 To N
B(I) = 0
For J = 0 To M
B(I) = B(I) + A(I, J)
Next J
Console.WriteLine("B({0})={1}", I, B(I))
Next I
Console.WriteLine("")
Console.WriteLine("Массив значений сумм столбцов матрицы А ():")
For J = 0 To M
D(J) = 0
For I = 0 To N
D(J) = D(J) + A(I, J)
Next I
Console.WriteLine("D({0})={1}", J, D(J))
Next J
Console.ReadLine()
End Sub
 
End Module

Dim ex As New Microsoft.Office.Interop.Excel.Application
        Dim wb As Microsoft.Office.Interop.Excel.Workbook
        Dim si, sj, sij As Integer
        wb = ex.Workbooks.Add()
        Dim ws As Microsoft.Office.Interop.Excel.Worksheet = CType(wb.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
        ws.UsedRange.EntireRow.Delete()
        ws.Cells.Clear()
        ws.Range("A1").Value = 18
        ws.Range("B1").Value = 19
        ws.Range("C1").Value = -28
        ws.Range("A2").Value = 14
        ws.Range("B2").Value = 13
        ws.Range("C2").Value = 1
        ws.Range("A3").Value = 222
        ws.Range("B3").Value = 0
        ws.Range("C3").Value = 17
        si = 0
        sj = 0
        For i = 1 To 3
            si = si + ws.Cells(i, 1).Value
            sj = sj + ws.Cells(1, i).Value
            sij = si + sj
        Next
 
        ws.Cells(1, 4).Value = sj  'сумма по 1-й строке
        ws.Cells(1, 4).Font.Color = RGB(255, 0, 0)
        ws.Cells(4, 1).Value = si  'сумма по 1-му столбцу
        ws.Cells(4, 1).Font.Color = RGB(0, 0, 255)
        ws.Cells(4, 4).Value = sij  'общая сумма: по 1-му столбцу и по 1-й строке
        ws.Cells(4, 4).Font.Color = RGB(0, 255, 0)
        ex.Visible = True

Module Module1
 
    Sub Main()
        Dim N, M, I, J, S As Integer
        Dim A(,) As Integer = {{18, 19, -28}, {14, 13, 1}, {222, 0, 17}}
        N = A.GetUpperBound(0)
        M = A.GetUpperBound(1)
        Console.WriteLine("N={0} M={0}", N, M)
        Console.WriteLine("Количество строк матрицы А равно N+1={0}", N + 1)
        Console.WriteLine("Количество столбцов матрицы А равно M+1={0}", M + 1)
        Dim B(N), D(M) As Integer
        'Dim Z As Single
        Console.WriteLine("")
        Console.WriteLine("Массив значений сумм строк матрицы А () :")
        For I = 0 To N
            B(I) = 0
            For J = 0 To M
                B(I) = B(I) + A(I, J)
            Next J
            Console.WriteLine("B({0})={1}", I, B(I))
        Next I
        Console.WriteLine("")
        Console.WriteLine("Массив значений сумм столбцов матрицы А ():")
        For J = 0 To M
            D(J) = 0
            For I = 0 To N
                D(J) = D(J) + A(I, J)
            Next I
            Console.WriteLine("D({0})={1}", J, D(J))
        Next J
        Console.WriteLine("")
        Console.WriteLine("Общая сумма по 1-й строке и 1-му столбцу матрицы А ():")
        'S = B(0) + D(0)
        Console.ReadLine()
    End Sub
 
End Module