Дано натуральное число а. Найти произведение четных цифр этого числа - VBA
Формулировка задачи:
Добрый день! Ребята помогите пожалуйста с задачей, нужен код для VBA. Заранее благодарю.
Дано натуральное число а. Найти произведение четных цифр этого числа.
Решение задачи: «Дано натуральное число а. Найти произведение четных цифр этого числа»
textual
Листинг программы
Function ProdEeven(ByVal n As Long) As Long Dim p As Long, m As Long p = 1 While n m = n Mod 10 If m Mod 2 = 0 Then p = p * m n = n \ 10 Wend ProdEeven = p End Function Sub main() Dim a As Long a = 123456789 Debug.Print ProdEeven(a) End Sub