Найти произведение положительных cos(a(1,j) - VB

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

Пожалуйста помогите найти ошибку в коде 1.Вычислить матрицу A=(a(i,j)), где (i,j)=(1...7) по формуле a(i,j)=(-1)^(i+j)*(25cosi+35sinj+39cosk) 2.Найти произведение положительных cos(a(1,j)) 3. Отсортировать квадраты a(7,j) по возрастанию Только второй пункт совсем никак не решается. Помогите пожалуйста

Option Base 1
Private Sub Command1_Click()
    Text2.Text = ""
    Text3.Text = ""
    Label1.Caption = "Среднеарифметическое = "
    
    Dim a(7, 7) As Double
    Dim pow As Double
    
    Dim k As Double
    k = Text1.Text
        
    ' заполняем матрицу а(7,7) согласно формуле '
    For i = 1 To 7
        For j = 1 To 7
            pow = (-1) ^ (i + j)
            a(i, j) = CInt(pow * (25 * Cos(i) + 35 * Sin(j) + 39 * Cos(k)))
            Text4.Text = Text4.Text & a(i, j) & " "
        Next j
        Text4.Text = Text4.Text & vbCrLf
    Next i
    
    Dim buf, h, rez As Double
    Dim b As Boolean, rzs As String
    b = False
    For j = 1 To 7
        buf = Cos(a(1, j))
        If buf > 0 Then
            h = h * buf
        b = True
             End If
    Next j
    rez = Round(h, 3)
    rzs = CStr(rez)
            If b Then Label1.Caption = rzs 

    '---------------------------------------------'
    
    ' вывод массива a(5, j)'
    For j = 1 To 7
        Text3.Text = Text3.Text & a(5, j) & vbCrLf
    Next j
    '---------------------------------------------'
    
    Dim max As Integer
    mas = 0
    
    buf = 0
    Dim a2(7) As Integer
    ' формируем квадрат массива "а" '
    For j = 1 To 7
        a2(j) = a(7, j) ^ 2
    Next j
    
    '  '
    For i = 1 To 7 - 1
        For j = 1 To 7 - i
 
            If (a2(j) > a2(j + 1)) Then
                buf = a2(j)
                a2(j) = a2(j + 1)
                a2(j + 1) = buf
            End If
        Next j
    Next i

    ' вывод результата сортировки '
    For i = 1 To 7
        Text2.Text = Text2.Text & a2(i) & vbCrLf
    Next i
End Sub

Я думаю,что ошибка где-то здесь

Dim buf, h, rez As Double
    Dim b As Boolean, rzs As String
    b = False
    For j = 1 To 7
        buf = Cos(a(1, j))
        If buf > 0 Then
            h = h * buf
        b = True
             End If
    Next j
    rez = Round(h, 3)
    rzs = CStr(rez)
            If b Then Label1.Caption = rzs

Решение задачи: «Найти произведение положительных cos(a(1,j)»

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

                            Option Explicit
Option Base 1
Private Sub Command1_Click()
 
    Dim a(7, 7) As Double, a2(7) As Double, k As Double, pow As Double
    Dim buf As Double, h As Double
    Dim b As Boolean, i As Integer, j As Integer
    
    Text2.Text = "": Text3.Text = "": Text4.Text = ""
    Label1.Caption = "Произведение положительных Cos(a(1,j)) = "
    k = Text1.Text
 
        
    ' заполняем матрицу а(7,7) согласно формуле '
    For i = 1 To 7
        For j = 1 To 7
            pow = (-1) ^ (i + j)
            a(i, j) = Round(pow * (25 * Cos(i) + 35 * Sin(j) + 39 * Cos(k)), 2)
            Text4.Text = Text4.Text & a(i, j) & vbTab
        Next j
        Text4.Text = Text4.Text & vbCrLf
    Next i
 
 
    ''''''''''
    h = 1
    For j = 1 To 7
        buf = Cos(a(1, j))
        If buf > 0 Then
            h = h * buf
            b = True
        End If
    Next j
    If b Then Label1.Caption = Label1.Caption & Round(h, 3) Else Label1.Caption = "Положительных Cos(a(1,j)) нет"
    '---------------------------------------------'
    ' вывод массива a(5, j)'
    For j = 1 To 7
        Text3.Text = Text3.Text & a(5, j) & vbCrLf
    Next j
    '---------------------------------------------'
    ' формируем квадрат массива "а" '
    For j = 1 To 7
        a2(j) = Round(a(7, j) ^ 2, 2)
    Next j
    '  '
    For i = 1 To 7
        For j = 1 To 7 - i
            If (a2(j) > a2(j + 1)) Then
                buf = a2(j)
                a2(j) = a2(j + 1)
                a2(j + 1) = buf
            End If
        Next j
    Next i
    ' вывод результата сортировки '
    For i = 1 To 7
        Text2.Text = Text2.Text & a2(i) & vbCrLf
    Next i
End Sub
                        