Целочисленная квадратная матрица - 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

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

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