Помогите пожалуйста!!!Составить блок-схему и написать ** VBA функцию, вычисляющую для...

Question

Помогите пожалуйста!!!
Составить блок-схему и написать
на VBA
функцию, вычисляющую
для одномерного массива количество элементов,
чьи номера кратны 3 (а(3), a(6),
a(9)…)

Comments

Точно "количество элементов, чьи номера кратны..."?

---

Количество элементов, чьи номера кратны 3 (а(3), a(6), a(9)…) Скопировала из контрольной работы

---

Ну тогда так, как написано

---

Спасибо большое! Вы спасли мне жизнь!!!

Answer 1

Function Strange(a() As Integer) As Integer
    Dim n As Integer, i As Integer
    n = 0
    For i = LBound(a) To UBound(a)
        If i Mod 3 = 0 Then n = n + 1
    Next i
    Strange = n
End Function