Imports System
Public Module Module1
Public Sub Main()
Dim arr(,) = New Integer(,) {
{1, 2, 3, 5},
{4, 5, 6, 5},
{7, 8, 9, 5}
}
Dim rows As Integer = arr.GetLength(0)
Dim cols As Integer = arr.GetLength(1)
Dim sumRow As Integer
Dim sumCols As Integer
For i As Integer = 0 To rows - 1
sumRow = 0
For j As Integer = 0 To cols - 1
sumRow = sumRow + arr(i, j)
Next
Console.WriteLine("Sum of row: {0} = {1}", i, sumRow)
Next
For i As Integer = 0 To cols - 1
sumCols = 0
For j As Integer = 0 To rows - 1
sumCols = sumCols + arr(j, i)
Next
Console.WriteLine("Sum of row: {0} = {1}", i, sumCols)
Next
End Sub
End Module
' run
'
' Sum of row: 0 = 11
' Sum of row: 1 = 20
' Sum of row: 2 = 29
' Sum of row: 0 = 12
' Sum of row: 1 = 15
' Sum of row: 2 = 18
' Sum of row: 3 = 15
'
