Составить функцию вычисления количества четных элементов в каждой строке матрицы

@flexwavesmusic · Регистрация: 19.03.2013

Author24 — интернет-сервис помощи студентам

1.Необходимо написать пользовательскую функцию Ms Excel,
которой в качестве аргументов передаются диапазоны ячеек с исходными
данными. Функция должна вернуть массив. Функция не должна использовать
встроенных функций Ms Excel (те, что начинаются с Application.) для
обработки результатов.
2. [Один вопрос - одна тема! Правила, пп. 4.4, 5.16]

Сама задача: Составить программу вычисления количества четных элементов в
каждой строке матрицы А размера n x n. Результат вычислений записать в
одномерный массив

Visual Basic

Function L8_2_1(A)
    Dim B() As Double
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    Dim m As Integer
    n = A.Rows.Count
    m = A.Columns.Count
    ReDim B(1 To n, 1 To m)
    For i = 1 To n
        For j = 1 To m
            If A(i, j) Mod 2 = 0 Then
            B(i, 1) = B(i, 1) + 1
            End If
            Next j
    Next i
    L8_2_1 = B
            
End Function

Мой вариант программы, но она считает только в 1 строке, а в остальных нет

@Казанский · 06.05.2013, 19:57

Функция работает! Ее надо вводить, выделив столбец, как формулу массива (Ctrl+Shift+Enter).
Лучше
ReDim B(1 To n, 1 To 1)

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	06.05.2013, 19:57	2
	Функция работает! Ее надо вводить, выделив столбец, как формулу массива (Ctrl+Shift+Enter). Лучше ReDim B(1 To n, 1 To 1) 0