Сформировать последовательность, элементы которой вычисляются по формуле

dim a(1 to 20)
 
for i=1 to 20
   a(i)=i/(i+1)
   msgbox a(i)
next i

Private Sub Command1_Click()
Dim n As Byte
n = InputBox("n")
Dim a()
ReDim a(1 To n)
For i = 1 To n
a(i) = InputBox(i)
Next i
c = 0
For i = 1 To n
If a(i) = 1 Then
c = c + 1
Else
If c > k Then k = c
c = 0
End If
Next i
If c > k Then k = c
MsgBox k
End Sub

Option Base 1
 
Private Sub Form_click()
   Dim a()
   Dim b(), flag As Boolean, l, m, k
   
   a = Array(1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 2, 1, 1, 5, 2)
   
   For i = 1 To UBound(a)
      If Not flag And (a(i) = 1) Then n = i
 
      If a(i) = 1 Then
         flag = True
         l = l + 1
      Else
         flag = False
         k = k + 1
         ReDim Preserve b(2, k)
         b(1, k) = n
         b(2, k) = l
         Print n, l
         l = 0
      End If
      s = s & a(i) & vbNewLine
   Next i
   
   For i = 1 To k
      If b(2, i) > m Then m = b(2, i): Max = i
   Next i
   MsgBox s & "-------------" & vbNewLine & _
         "Начало - " & b(1, Max), , b(2, Max) & " подряд"
   Unload Me
End Sub