MS-Exel, VBA. составить процедуру-функцию построения матрицы.

[Elly_Dorian]

Вот задание( непонятная буква N это С)
[ATTACH]1653[/ATTACH]
Что не правильно? Выдает ошибку

Код: Выделить всё

option explicit
option base 1
function G(C As variant) as variant
Dim n as integer , i as integer, j as integer
Dim R() As double
n=application.count(C )
ReDim R(n,n)
For i=1 to n
For j=1 to n
if i<=j+2 Then 
R(i,j)=Sin(C(i))*C(j)
Else 
R(i,j)=C(i-j)-C(i)
End if 
Next j
Next i 
G=R
End Function