Найти произведение четных элементов массива - VB
Формулировка задачи:
Знаю,что легко,знаю,что самому надо,но всё же прошу помощи)
2.найти произведение четных элементов массива
надеюсь найдутся добрые люди и помогу мне.
Решение задачи: «Найти произведение четных элементов массива»
textual
Листинг программы
Function Peven(X() As Integer, Optional p As Integer = 1, Optional i As Integer = 1) As Integer If i > UBound(X, 1) Then Peven = p ElseIf ((X(i) Mod 2) = 0) Then Peven = Peven(X, p * X(i), i + 1) Else Peven = Peven(X, p, i + 1) End If End Function Sub Test() Dim Z(1 To 5) As Integer Z(1) = 1 Z(2) = 2 Z(3) = 3 Z(4) = 4 Z(5) = 6 Debug.Print Peven(Z) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д