Dim a(10, 10) As Double
Dim i As Integer, j As Integer
'Работа с матрицей
n = 10
sub primer()
For i = 1 To n
For j = 1 To n
a(i,j)=(-1)^i*(2+j*fact(i,j))
...
end Sub
function fact(i as integer,j as integer) As integer
Как объявлять матрицу и как с ней работать