Как вычислить матрицу по формуле - VB

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

Вычислить матрицу А = { а_i,j }, где i,j = {1,..,7}, по формуле а_i,j = (-1)^i+j*(41sin i + 34соs j+ 24sin k) и округлить до целого значения. Найти сумму положительных соs а(4,j)/ Отсортировать квадраты а( 6,j) по возрастанию.

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

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

                            Dim a(1 To 7, 1 To 7) As Double
Dim sum As Double
Dim rad As Double
Dim m As Double
Dim bb() As Double
Dim i As Integer
Dim j As Integer
Cls
sum = 0
k = 7.95
'1
For i = 1 To 7
    For j = 1 To 7
    a(i, j) = Int(((-1) ^ (i + j)) * (41 * Sin(i) + 34 * Cos(j) + 24 * Sin(k)))
    Print a(i, j);
    Next j
    Print
Next i
  Print
'2
For j = 1 To 7
If Cos(a(4, j)) > 0 Then sum = sum + Cos(a(4, j))
Next j
Print "Сумма "; Round(sum, 2)
'3
Print
ReDim bb(1 To 7)
For i = 1 To 7
        bb(i) = a(6, i)
Next i
For i = 1 To 6 '
    For j = i + 1 To 7
        If bb(i) > bb(j) Then
           m = bb(i)
          bb(i) = bb(j)
           bb(j) = m
        End If
    Next j
Next i
'для проверки
For i = 1 To 7
 Print bb(i); "  ";
Next i
End Sub
                        