В массиве из 20 элементов, найти 5 соседних элементов, сумма которых максимальна

Private Sub Form_Load()
Dim A(20) As Integer, i As Integer, S As Integer, d As Integer, f As Integer, k As Integer, S1 As Integer, S2 As Integer, S3 As Integer, max As Integer
Randomize Timer
For i = 1 To 20
A(i) = Int(Rnd * 100)
Print A(i)
Next i
Print
S = 0
For i = 1 To 5
S = A(i) + S
Next i
For k = 6 To 11
For i = 1 To 5
S1 = S + A(k) - A(i)
Next k
Next i
For f = 11 To 15
For k = 6 To 11
S2 = S1 + A(f) - A(k)
Next f
Next k
For d = 16 To 20
For f = 11 To 15
S3 = S2 + A(d) - A(f)
Next d
Next f
max = S
If S1 > S Then max = S1
If S2 > S1 Then max = S2
If S3 > S2 Then max = S3
End Sub

Sub Task(A() as integer)
      n%=Ubound(A,1)
      max_s%=0
      max_p%=1
      for i%=1 to 5
          max_s%=max_s%+A(i%)
      next i%  
      For ii%=2 to n%-4
           s%=0
           For i%=ii% to ii%+4
                s%=s%+A(i%)
           Next i%
           If s% > max_s% then
              max_s%=s%
              max_p%=ii%
           End if
      Next ii%
      Debug.print "Макс. сумма элементов достигается для эл-та ";max_p%
      Debug.print "и равна ";max_s%
End Sub

Private Sub Form_Load()
Dim A(1 To 20) As Integer, i As Integer, S As Integer, max As Integer
Randomize
For i = 1 To 20
  A(i) = Int(Rnd * 100)
  Print A(i)
Next i
Print
For i = 1 To 20
  S = A(i) + S
  If i > 5 Then
    S = S - A(i - 5)
    If S > max Then
      max = S
    End If
  End If
Next i
End Sub

Private Sub Form_Load()
Dim A(20) As Integer, i As Integer, S As Integer, Smax As Integer, Imax As Integer
Show
Randomize Timer
For i = 1 To 20
    A(i) = Int(Rnd * 100)
    Print A(i)
Next i
Print
For i = 1 To 5
    S = A(i) + S
Next i
Smax = S
Imax = 1
For i = 1 To 15
    S = S + A(i + 5) - A(i)
    If S > Smax Then Smax = S: Imax = i + 1
Next i
 
Print Smax, Imax
End Sub

  if i=5 then
    max = S
  elseIf i > 5 Then
    S = S - A(i - 5)
    If S > max Then
      max = S
    End If
  End If

Private Sub Command1_Click()
Dim A(1 To 20) As Double, i As Integer, SumMax As Double, iMax As Integer
    Randomize Timer
    Cls
    For i = 1 To 20
        A(i) = Int(Rnd * 100)
        Print A(i);
    Next i
    Print
    SumMax = SumN(A, 1):  iMax = 1
    For i = 1 To 16
        If SumMax < SumN(A, i) Then SumMax = SumN(A, i): iMax = i
        Print "Cумма элементов с " & i & "-го по " & i + 4 & "-й равна " & SumN(A, i)
    Next i
    Print "Максимальая сумма элементов с " & iMax & "-го по " & iMax + 4 & "-й равна " & SumMax
End Sub
 
Function SumN(ByRef A() As Double, ByVal i As Integer, Optional ByVal n As Integer = 5) As Double
    Dim j As Integer 
    For j = i To i + n - 1
        SumN = SumN + A(j)
    Next j
End Function