MS-Exel, VBA. составить процедуру-функцию построения матрицы.
Добавлено: 15 май 2013, 21:07
Вот задание( непонятная буква N это С)
[ATTACH]1653[/ATTACH]
Что не правильно? Выдает ошибку
[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