Вычислить произведение элементов до максимального, сжать массив, удалив отрицательные элементы - VB

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

Ребят помогите составить программу, первое задание я сделал осталось 2 и 3. Буду очень признателен Задан одномерный массив из n вещественных или целых элементов реализовать обработку массива. Длина массива N задается пользователем. Исходные данные задать самостоятельно, учитывая формат элементов массива A. 1) вычислить сумму отрицательных нечетных элементов массива; 2) произведение элементов массива, расположенных до максимального элемента. 3) сжать массив, удалив отрицательные элементы

Private Sub Command1_Click()
Dim A() As Integer
Dim B() As Integer
Dim n, i, s, max, k As Integer
n = Val(Text1.Text)
ReDim A(n) As Integer
For i = 1 To n
A(i) = Int(Rnd * 10) - 5
Next i
For i = 1 To n
Text2.Text = Text2.Text + "  " + Str(A(i))
Next i
For i = 0 To n
If A(i) Mod 2 <> 0 And A(i) <= 0 Then s = s + A(i)
Text3.Text = s
End Sub

для второго задания я думаю надо найти максимальный элемент а уже потом считать произведение вот код для нахождения максимального элемента

max = A(1)               
For i = 1 To n     
 If A(i) > max Then max = A(i)    
Next i                   
Text4.Text = max

Решение задачи: «Вычислить произведение элементов до максимального, сжать массив, удалив отрицательные элементы»

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

                            Dim A%(), n%
 
Private Sub Command1_Click()
n = Val(Text1.Text) - 1
ReDim A(n)
Text2.Text = ""
s = 0
For i = 0 To n
    A(i) = Int(Rnd * 10) - 5
    Text2.Text = Text2.Text & A(i) & "; "
    If A(i) Mod 2 <> 0 And A(i) < 0 Then s = s + A(i)
Next i
Text3.Text = s
End Sub
 
Private Sub Command2_Click()
max = A(0)
i_max = 0
For i = 1 To n
    If A(i) > max Then max = A(i): i_max = i 'Г¤Г® ГЇГҐГ°ГўГ®ГЈГ® Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г®ГЈГ®
Next i
p = 1
For i = 0 To i_max - 1 'Г*ГҐ ГўГЄГ«ГѕГ·Г*Гї Г¬Г*Гµ
    p = p * A(i)
Next i
Text4.Text = p
End Sub
 
Private Sub Command3_Click()
i = 0
Do While i <= n
    If A(i) < 0 Then
        n = n - 1
        For j = i To n
            A(j) = A(j + 1)
        Next
    Else
        i = i + 1
    End If
Loop
ReDim Preserve A(n)
Text5.Text = ""
For i = 0 To n
    Text5.Text = Text5.Text & A(i) & "; "
Next i
End Sub
                        