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

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

Объясните, пожалуйста. С двумерными массивами проблема(( ничего не получается Найти номер столбца, сумма элементов которого минимальна Определить количество положительных и отрицательных элементов в каждом столбце Найти произведение элементов кратных L Найти сумму элементов первой и второй строки

Dim A()
Private Sub Command1_Click()
ReDim A(1 To 5, 1 To 5)
A(1, 1) = 7: A(1, 2) = -4: A(1, 3) = 8: A(1, 4) = 2: A(1, 5) = 3
A(2, 1) = -5: A(2, 2) = 11: A(2, 3) = 22: A(2, 4) = -4: A(2, 5) = 5
A(3, 1) = 12: A(3, 2) = 12: A(3, 3) = -4: A(3, 4) = -11: A(3, 5) = 7
A(4, 1) = 11: A(4, 2) = -5: A(4, 3) = -12: A(4, 4) = 6: A(4, 5) = -22
A(5, 1) = -4: A(5, 2) = 7: A(5, 3) = 9: A(5, 4) = 8: A(5, 5) = -2
 
'сумма по строкам
For l = 1 To 5
Sum = A(l, 1) + A(l, 2) + A(l, 3) + A(l, 4) + A(l, 5)
Print "Г‘ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў Г±ГІГ°Г®ГЄГЁ  " & l & " = " & Sum
Next
 
'сумма по столбцам
For k= 1 To 5
Sum1 = A(1,k) + A(2,k) + A(3,k) + A(4,k) + A(5,k)
Print "Г‘ГіГ¬Г¬Г* ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў строки" & k & " = " & Sum1
Next
End Sub

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

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

                            Sub Task()
 
Dim A(1 To 5, 1 To 5) As Integer
Dim sumC(1 To 5)      As Integer
 
    A(1, 1) = 7: A(1, 2) = -4: A(1, 3) = 8: A(1, 4) = 2: A(1, 5) = 3
    A(2, 1) = -5: A(2, 2) = 11: A(2, 3) = 22: A(2, 4) = -4: A(2, 5) = 5
    A(3, 1) = 12: A(3, 2) = 12: A(3, 3) = -4: A(3, 4) = -11: A(3, 5) = 7
    A(4, 1) = 11: A(4, 2) = -5: A(4, 3) = -12: A(4, 4) = 6: A(4, 5) = -22
    A(5, 1) = -4: A(5, 2) = 7: A(5, 3) = 9: A(5, 4) = 8: A(5, 5) = -2
 
    For i% = 1 To 5
        sumC(i%) = 0
        For j% = 1 To 5
            sumC(i%) = sumC(i%) + A(j%, i%)
        Next j%
    Next i%
 
    mins% = sumC(1)
    imin% = 1
    
    For i% = 2 To 5
        If sumC(i%) < mins% Then
           imin% = i%
           mins% = sumC(i%)
        End If
    Next i%
 
    Debug.Print "Г‘ГІГ®Г«ГЎГҐГ¶ Г± Г¬ГЁГ*. Г±ГіГ¬Г¬Г®Г© "; imin%
 
End Sub
                        