Матрицы: Найти номер столбца с максимальной суммой элементов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д