Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элемен

Dim s As Integer
Private Sub Command1_Click()
Randomize
s = 0
n = Val(Text1)
m = Val(Text2)
For i = 1 To n
For j = 1 To m
a(i, j) = Round(Rnd * 20 - 10)
Picture1.Print a(i, j);
Next
Picture1.Print
Next
For j = 1 To m
For i = 1 To n
  s = s + Sgn(a(j, i))
  Next
If s = 0 Then Picture2.Print "Столбец :"; j
Next
End Sub

Dim s As Integer
Dim a(20, 20) As Integer
Private Sub Command1_Click()
Randomize
n = Val(Text1)
m = Val(Text2)
For i = 1 To n
For j = 1 To m
a(i, j) = Round(Rnd * 20 - 10)
Picture1.Print a(i, j);
Next
Picture1.Print
Next
For j = 1 To m
s = 0
For i = 1 To n
  s = s + Sgn(a(j, i))
  Next
If s = 0 Then Picture2.Print "Столбец :"; j
Next
End Sub

Option Base 1
Dim s As Integer
Dim a() As Integer
 
Private Sub Command1_Click()
Command2_Click
Randomize
n = Val(Text1)
m = Val(Text2)
ReDim a(n, m)
For i = 1 To n
  For j = 1 To m
    a(i, j) = Round(Rnd * 20 - 10)
    Picture1.Print a(i, j);
  Next
  Picture1.Print
Next
For j = 1 To m
  s = 0
  For i = 1 To n
    s = s + Sgn(a(i, j))
  Next
  If s = 0 Then Picture2.Print "Столбец :"; j
  Next
End Sub
 
Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub