Арифметические действия с матрицей

Dim N, A()
 
Private Sub CommandButton1_Click()
    Dim i, j As Integer
    N = ScrollBar1.Value
    ReDim A(N, N)
    For i = 1 To N Step 1
        For j = 1 To N Step 1
            If i > j Then
                A(i, j) = 3
            Else
                A(i, j) = 2
            End If
            If i = j Then
                A(i, j) = 1
            End If
            Cells(i + 7, j + 2) = A(i, j)
        Next j
    Next i
End Sub
 
Private Sub CommandButton2_Click()
    Dim summ, i, j As Integer
    summ = 0
    For i = 1 To N Step 1
        For j = 1 To N Step 1
            If A(i, j) Mod 2 <> 0 Then
                summ = summ + A(i, j)
            End If
        Next j
    Next i
    TextBox1.Text = summ
    Cells(3, 2) = summ
End Sub
 
Private Sub CommandButton3_Click()
    Dim count, i, j As Integer
    For i = 1 To N Step 1
        count = 0
        For j = 1 To N Step 1
            If A(i, j) Mod 2 = 0 Then
                count = count + 1
            End If
        Next j
        ListBox1.AddItem "Строка " & i & _
                " - " & count & " четных. элемент."
        Cells(4, 1 + i) = i & " строка: " & count
    Next i
End Sub
 
Private Sub CommandButton4_Click()
    TextBox1.Text = ""
    TextBox2.Text = ""
    ListBox1.Clear
    ListBox2.Clear
    Dim i, j As Integer
        For i = 3 To N + 7 Step 1
        For j = 2 To N + 2 Step 1
            Cells(i, j).Clear
        Next j
    Next i
    
End Sub
 
Private Sub CommandButton5_Click()
    Dim Max, i, j As Integer
    For i = 1 To N Step 1
        If (i Mod 2) <> 0 Then
            Max = 0
            For j = 1 To N Step 1
                If A(j, i) > Max Then
                    Max = A(j, i)
                End If
            Next j
        ListBox2.AddItem "Столбец  " & i & " - " & Max
        Cells(5, 1 + i) = "Столбец  " & i & " - " & Max
        End If
    Next i
End Sub
 
Private Sub CommandButton6_Click()
    Dim K, i, j As Integer
    K = 1
    For i = 1 To N Step 1
        For j = 1 To N Step 1
            If (i < j) And (i + j <= N + 1) Then
                K = K * A(i, j)
            End If
        Next j
    Next i
    TextBox2.Text = K
    Cells(6, 2) = K
End Sub
 
Private Sub ScrollBar1_Change()
    Label3.Caption = ScrollBar1.Value
End Sub
 
Private Sub UserForm_Activate()
    ScrollBar1.Value = 5
End Sub