Найти произведение положительных элементов массива - VB (60282)

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

Найти произведение положительных элементов массива: А = {2; -6; 0; 1,5;-7;-1,5} и произведение отрицательных элементов массива: В = {0,5; 16; -7; 4; 4 ; -2; -3}.Вывести на печать наибольшее по абсолютной величине произведение. Сделайте пожалуйста кто сможет,буду очень благодарен!))

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim A(7) As Double
Dim B(7) As Double
Dim Ap As Double
Dim Bp As Double
Dim i As Integer
 
Private Sub Command1_Click()
Ap = 1
Bp = 1
For i = 0 To 6
If A(i) > 0 Then Ap = Ap * A(i)
If B(i) < 0 Then Bp = Bp * B(i)
Next i
If Abs(Ap) > Abs(Bp) Then
MsgBox "наибольшим по модулю является произведение положительных элементов массива: А = " & Ap
Else: MsgBox "наибольшим по модулю является произведение отрицательных элементов массива: В = " & Bp
End If
End Sub
 
Private Sub Form_Load()
A(0) = 2: A(1) = -6: A(2) = 0: A(3) = 1.5: A(4) = -7: A(5) = -1.5
A(6) = 1    'для того, чтобы объединить проверку в 1 цикл
B(0) = 0.5: B(1) = 16: B(2) = -7: B(3) = 4: B(4) = 4: B(5) = -2: B(6) = -3
End Sub