Module Module1
Sub Main()
Dim matrix(,) As Integer = New Integer(,) {{13, 22, 43, 34},
{43, 54, 67, 98},
{88, 79, 11, 998}}
Dim rows_sum() As Integer = New Integer() {0, 0, 0}
sum_matrix_rows(matrix, rows_sum)
For i As Integer = 0 To 2
Console.WriteLine(rows_sum(i))
Next
End Sub
Sub sum_matrix_rows(matrix(,) As Integer, rows_sum() As Integer)
Dim rows = matrix.GetUpperBound(0)
Dim cols = matrix.GetUpperBound(1)
For i As Integer = 0 To rows
For j As Integer = 0 To cols
rows_sum(i) += matrix(i, j)
Next
Next
End Sub
End Module
' run:
'
' 112
' 262
' 1176