Целочисленная квадратная матрица - VBA
Формулировка задачи:
Дана целочисленная квадратная матрица. Определить:
1) сумму элементов в тех строках, которые не содержат отрицательных элементов;
2) минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.
3) Максимальное значение среди средних геометрических значений в каждой строке матрицы
4) четность максимального значения.
Создала матрицу, а вот с последующими заданиями возникли проблемы
Пыталась сделать 1 задание, но у MsgBox выскакивает ошибка Function call on left-hand side of assignment must return Variant or Object
Новый код, выполнены первые 2 задания
Теперь необходимо понять, как делать остальные
Решение задачи: «Целочисленная квадратная матрица»
textual
Листинг программы
Sub ГЉГ*îïêГ*4_Ùåë÷îê() Dim oRngWork As Range Dim oRow As Range Dim oSrGeo As Double Dim oCell As Range Dim MaxSrGeo As Double Dim k As Integer Set oRngWork = Selection.Cells(1).Resize(Selection.Rows.Count, Selection.Columns.Count) For Each oRow In oRngWork.Rows oSrGeo = 1 k = oRngWork.Rows.Count For Each oCell In oRow.Cells oSrGeo = oSrGeo * oCell.Value Next oSrGeo = oSrGeo * (1 / k) If oSrGeo > MaxSrGeo And MaxSrGeo <> 0 Then MaxSrGeo = oSrGeo ElseIf MaxSrGeo = 0 Then MaxSrGeo = oSrGeo End If Next MsgBox "Макс. ср. гео = " & MaxSrGeo End Sub