Задача по VBA.Все никак не могу сообразить как найти номера строк.в которых все элементы четные

Автор вопроса: Ирина

Помогите пожалуйста, решить задачку в VBA.Дана целочисленная матрица. Определить номера строк, все элементы которых четные.

Источник

Ответы (1 шт):

Автор решения: Akina

For i = LBound(Matrix, 1) to UBound(Matrix, 1)
    flag = True
    For j = LBound(Matrix, 2) to UBound(Matrix, 2)
        If Matrix(i, j) MOD 2 = 1 Then 
            flag = False
            Exit For
        End If
    Next j
    If flag Then Debug.Print i
Next i

→ Ссылка