Определить номер строки матрицы, сумма элементов в которой наибольшая - VB

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

Пусть на рабочем листе задан некоторый двумерный массив натуральных чисел или получить его иным способом. Нужно определить номер строки матрицы, сумма элементов которых наибольшая.

Решение задачи: «Определить номер строки матрицы, сумма элементов в которой наибольшая»

textual
                            Листинг программы 
                        

                            Sub Matrix()
Dim i As Integer, j As Integer, R As Integer, RowsSum(), C As Integer, max As Integer
With Selection
        R = .Rows.Count: C = .Columns.Count: max = 1
        ReDim RowsSum(1 To R)
        For i = 1 To R
            For j = 1 To C
                RowsSum(i) = RowsSum(i) + .Cells(i, j)
            Next j
            If RowsSum(i) > RowsSum(max) Then max = i
        Next
    Range(.Cells(max, 1), .Cells(max, C)).Select
    MsgBox "ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г*Гї Г±ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў (" & RowsSum(max) & ") Гў Г±ГІГ°Г®ГЄГҐ " & max
End With
End Sub
                        

Оцени полезность:

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

Похожие ответы