Найти произведение элементов массива - VB

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

Всем привет! Помогите пожалуйста с решением задач: 1. Массив A(100) содержит два нулевых элемента. Номера этих элементов неизвестны. Найти произведение элементов, расположенных между ними. 2. Найти произведение элементов массива A(100), заключенных между единственными минимальным и максимальным элементами (по содержимому) этого массива, включая эти элементы(написать фрагмент программы). Номера минимального и максимального элементов неизвестны. 3. Найти число элементов массива A(100), удовлетворяющих неравенству -0.707*Аmax<=A(n)<=0.707*Amax. Amax - максимальный (по содержимому) элемент массива. Его и необходимо найти. Пожалуйста, помогите, очень надо, а я в этом ничего не смыслю((((

Решение задачи: «Найти произведение элементов массива»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Dimension()
Dim z1 As Byte
Dim z2 As Byte
Dim i As Byte
Dim a(100)
Dim s As Double
For i = 0 To 99
If a(i) = 0 Then
    z1 = i
    Exit For
End If
Next i
For i = z1 + 1 To 100
If a(i) = 0 Then
    z2 = i
    Exit For
Next i
s = 1
For i = z1 To z2
    s = s * a(i)
Next i
End Sub