Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму тех из них, порядковые номера которых - числа Фибоначчи.

Private Sub Command1_Click()
Dim i%
n = 143
ReDim m%(n + 1)
m(n + 1) = 0
For i = 1 To n
m(i) = Int(Rnd * 10) + 1
Print m(i); " ";
Next i
Print m(n + 1): Print
'......................
S = 0: i = 2
Do While Fb(i) < UBound(m)
   ind = Fb(i)
      Print "m("; ind; ")="; " "; m(ind)
      S = S + m(ind)
      i = i + 1
Loop
Print: Print "S="; S
End Sub
 
Function Fb(k%)
  If k <= 2 Then Fb = 1 Else Fb = Fb(k - 1) + Fb(k - 2)
End Function

Function SumSeq(X() As Integer) As Integer
    SumSeq = X(1)
    n% = UBound(X, 1)
    pPrev% = 1
    pNext% = 2
    Do
      If pNext% > n% Then Exit Function
      SumSeq = SumSeq + X(pNext%)
      k% = pNext%
      pNext% = pNext% + pPrev%
      pPrev% = k%
    Loop
End Function
 
Sub Test()
Dim X(1 To 10) As Integer
    X(1) = 11
    X(2) = 22
    X(3) = 33
    X(4) = 44
    X(5) = 55
    X(6) = 66
    X(7) = 77
    X(8) = 88
    X(9) = 99
    X(10) = 111
    Debug.Print SumSeq(X)  ' Печать 209 - верно
End Sub

Function Fb(k%)
  If k <= 2 Then Fb = 1 Else Fb = Fb(k - 1) + Fb(k - 2)
End Function

Function Fb(k As Integer, Optional c As Integer = 1, Optional p As Integer = 1) As Integer
   If (k <= 2) Then
     Fb = c
   Else
     Fb = Fb(k - 1, p + c, c)
   End If
End Function