Задан двухмерный массив - VB

 Sub Main()
        Dim n As Integer
        Dim m As Integer
        Dim i As Integer
        Dim j As Integer
        Dim A(n, m) As Integer
        Dim B(n) As Integer
        ReDim A(0 To n, 0 To m)
        n = InputBox("Введите количество строк n: ")
        m = InputBox("Введите количество столбцов m: ")
        For i = 0 To n
            For j = 0 To m
                A(i, j) = InputBox("A(" & i & "," & j & ")")
            Next j
        Next i
        For i = 1 To n
            For j = 1 To m
                B(i) = B(i) + A(i, j)
            Next j
        Next i
        For i = 1 To n
            For j = 1 To m
                A(i, j) = A(i, j) / B(i)
            Next j
        Next i
        For i = 1 To n
            For j = 1 To m
                MsgBox("A(" & i & "," & j & ")")
            Next j
        Next i
    End Sub