Найти количество столбцов произвольной матрицы - VB

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

Найти количество столбцов произвольной матрицы, в которых в первой строке расположены отрицательные числа. Входные данные: m,n-размерность,целые числа А()-массив Выходные данные: К-количество столбцов помогите составить кооод и алгориитм пожалуйстааа ((

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

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

                            Private Sub Command1_Click()
Dim B() As Integer, i As Integer, j As Integer, n As Integer, m As Integer
Dim min As Integer, a As Integer, d As Integer, max As Integer, C As Integer
m = InputBox("Vvedite m")
n = InputBox("Vvedite n")
ReDim B(1 To m, 1 To n)
Print "Maссив B"
For i = 1 To m
For j = 1 To n
B(i, j) = Int(Rnd * 101)
Print B(i, j); vbTab;
Next j
Print
Next i
min = B(1, 1)
For i = 1 To m
For j = 1 To n
If B(i, j) < min Then min = B(i, j): a = i: d = j
Next j
Next i
Print
Print "Минимальный элемент массива В (" & a & ", " & d & " ) = " & min
Print
max = B(1, 1)
For i = 1 To m
For j = 1 To n
If B(i, j) > max Then max = B(i, j): a = i: d = j
Next j
Next i
Print
Print "Максимальный элемент массива В (" & a & ", " & d & " ) = " & max
Print
                        