Найти построчно произведение неотрицательных элементов в массиве 6×3

function foo(a() as integer) as integer ()
Dim b() as integer
    nrows%=Ubound(a,1)
    ncols% =Ubound(a,2)
    redim b(1 to nrows%) as integer
    for ir%=1 to nrows:
        p%=1
        q%=0
        for i%=1 to ncols%
            if a(ir%,i%)>=0 then
               p%=p%*a(ir%,i%)
               q%=1
            end if
       next i%
       if q% > 0 then
          b(ir%)=p%
       else
          b(ir%)=0
       end if
   next ir%
   foo=b
end function

Option Explicit
 
Private Sub Command1_Click()
Dim i As Integer, j As Integer, p(2) As Integer
Dim Arr(5, 2) As Integer
Randomize: Cls
  p(0) = 1: p(1) = 1: p(2) = 1
  
    For j = 0 To 2
    For i = 0 To 5
        Arr(i, j) = Int((9 + 9) * Rnd - 9) 'от -9 до 9
        
        Print Arr(i, j) & "  ";
        If j = 0 And Arr(i, 0) > 0 Then p(0) = p(0) * Arr(i, 0)
        If j = 1 And Arr(i, 1) > 0 Then p(1) = p(1) * Arr(i, 1)
        If j = 2 And Arr(i, 2) > 0 Then p(2) = p(2) * Arr(i, 2)
    Next
Print
    Next
    Print "В первой строке прноизведение= "; p(0)
    Print "Во второй строке прноизведение= "; p(1)
    Print "В третьей строке прноизведение= "; p(2)
End Sub