Как найти номер максимального элемента массива - VB

Формулировка задачи:

В одномерном массиве, который состоит из эн действительных элементов, вычислить: 1) номер максимального элемента массива; 2) произведение элементов массива, расположенных между первым и вторым нулевыми элементами. Преобразовать массив таким образом, чтобы в первой половине размещались элементы, расположенные на нечетных позициях, во второй половине - другие элементы.

Решение задачи: «Как найти номер максимального элемента массива»

textual
                            Листинг программы 
                        

                            Sub Test()
Dim a() As Double
Dim b() As Double
Dim sum
Dim max_i As Double
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim j As Integer
Dim max As Integer
Dim kol As Integer
 
n = 20 ' количество элементов массива
ReDim a(1 To n)
For i = 1 To n
    a(i) = Int(Rnd * 10 - 1)
    Debug.Print a(i); " ";
Next i
Debug.Print
Debug.Print "<br>"
Debug.Print
max = a(1)
max_i = 1
For i = 2 To 10
    If a(i) > max Then
    max = a(i)
    max_i = i
    End If
Next i
Debug.Print vbLf
    Debug.Print "Максимальный элемент"; max
    Debug.Print "Индекс максимального элемента"; max_i
Debug.Print vbLf
k = 0: j = 0
ReDim b(1 To n)
For i = 1 To n
    If i Mod 2 = 0 Then
    k = k + 1
    b(k) = a(i)
    Else
    b(n - j) = a(i)
    j = j + 1
    End If
Next i
For i = 1 To n
Debug.Print b(i);
Next
Debug.Print vbLf
kol = 0
sum = 1
For i = 1 To n
    If a(i) = 0 Then kol = kol + 1
    If kol = 1 And a(i) <> 0 Then
       k = a(i)
       sum = k * sum
    End If
    'If kol = 0 Then sum = "Нулевых элементов нет"
Next i
If kol = 0 Then
   Debug.Print "Нулевых элементов нет"
Else
   Debug.Print "Произведение элементов расположенных между нулевыми элементами = "; sum
End If
End Sub
                        