Матрицы: Найти номер столбца с максимальной суммой элементов - VBA

Узнай цену своей работы

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

В матрице А(5,6). Найти номер столбца с максимальной суммой элементов. Помогите ребят.. В программировании ноль..

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

textual
Листинг программы
Sub www()
    Dim A(), i&, n&, mx&, i1&, s&, m&
    Dim Rng As Range
    Cells.Clear
    n = InputBox("Введите к-во строк")
    m = InputBox("Введите к-во столцов")
    Set Rng = Range(Cells(1, 1), Cells(n, m))
    Rng.Formula = "=INT(RAND()*10)": Rng.Value = Rng.Value
    A = Rng.Value
    For i = LBound(A, 2) To UBound(A, 2)
        s = Application.Sum(Application.Index(A, 0, i))
        Cells(n + 1, i) = s
        If s > mx Then mx = s: i1 = i
    Next
    Range(Cells(1, i1), Cells(n, i1)).Interior.ColorIndex = 3
End Sub

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

13   голосов , оценка 4 из 5
Похожие ответы