Определить произведение элементов массива, расположенных между максимальным и "центральным" элементами массива

Option Explicit
Dim i(11)
Dim f, k
Dim a, b As Integer
Dim ans
 
a = 11 / 2 + 1
b = i(1)
ans = 1
 
For f = 1 To 11
    If i(f) > b Then
    b = f
    End If
Next f
 
For k = a To b
    ans = ans * i(k)
Next k
 
MsgBox ans

Private Sub Command1_Click()
Text1.Text = ""
Dim a(11) As Single
Randomize
    For i = 0 To 11
    k = Rnd
    a(i) = -10 + (k * 20)
    Text1.Text = Text1.Text + "Х[" + CStr(i) + "]=" + CStr(a(i)) + "   "
    Next i
centr = a(5)
max = a(1)
    For i = 0 To 11
    If a(i) > max Then max = a(i): i1 = i
    Next i
k = 1
    
If i1 > 5 Then
   For i = 6 To i1 - 1
   k = k * a(i)
   Next i
t = "   Произведение: " + Str(k)
End If
 
If i1 < 5 Then
   For i = i1 + 1 To 4
   k = k * a(i)
   Next i
t = "   Произведение: " + Str(k)
End If
    
If i1 = 5 Then k = a(5): t = "   У нас максимальный э-т центральный! Или 2 и более максимальных элеты!"
If Abs(i1 - 5) = 1 Then t = "   Элементы рядом стоят!"
MsgBox "максим. эл-т: " + Str(max) + "   центр. э-т: " + Str(centr) + t
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
End Sub

Dim i(1 To 7)
Dim f, k
Dim a, b, c As Integer
Dim ans
 
i(1) = 4
i(2) = 6
i(3) = 1
i(4) = 2
i(5) = 5
i(6) = 4
i(7) = 4
 
a = 7 / 2 + 1
ans = 1
Label1.Caption = "Öåíòð=" & Int(a)
a = Int(a)
 
c = i(1)
b = 1
For f = 1 To 7
    If i(f) > c Then
    c = i(f)
    b = f
    End If
Next f
Label2.Caption = "Ìàêñèìóì=" & b
If a > b Then
For k = a To b Step -1
    ans = ans * i(k)
Next k
Else
For k = a To b
    ans = ans * i(k)
Next k
End If
 
MsgBox ans