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

Формулировка задачи:

НЕ РАБОТАЕТ. Задан двухмерный массив вещественных чисел А(n,m). Необходимо каждый элемент соответствующей строки разделить на сумму элементов этой строки.
 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

Код к задаче: «Задан двухмерный массив - VB»

textual
ReDim A(0 To n, 0 To m)

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ