VBA Сумма четных чисел Фибоначчи до суммы <100 - PullRequest
Новая
       17

VBA Сумма четных чисел Фибоначчи до суммы <100

0 голосов
/ 27 марта 2019

Мне нужна твоя помощь относительно моей домашней работы. Цель состоит в суммировании всех четных чисел от последовательности Фибоначчи до достижения суммы <100 </p>

Я создал формулу, как показано ниже 

Sub fibbo()

Dim sum As Long
Dim a As Long
Dim b As Long
sum = 0

    Do While sum < 100

        sum = a + b
        a = b
        b = sum
        a = a + 1

    Loop

Range("A1").Value = sum

End Sub

Проблема в том, что сумма превышает 100.

Пожалуйста, помогите. Заранее спасибо.

...