VBASIC

[Eugen111]

Составить укрупненный алгоритм, написать программу и выписать значение матрицы С, согласно вариантам представленным в таблице.

A(N-2,N-2)
B(N-2,N-2)
K=SG(A)
L=MAXG(B)
С=(K*B *A)+L*A

В строке:  C(i, j) = (K * B(i, j) * A(i, j)) + L * A(i, j)
выдает ошибку. Почему? Что не так? или у меня вся программа не верна.

Private Sub Command1_Click()
n = Val(Text1)
ReDim A(n, n), B(n, n), C(n, n)

Rem ввод массивов A и B
k1 = 1
For i = 1 To n
For j = 1 To n
A(i, j) = k1
B(i, j) = k1
k1 = k1 + 1
Next j, i

Rem вычисление K=Sg(A)
For i = 1 To n
Sg = Sg + A(i, i)
Next i
K = Sg
Label2 = Str(K)


Rem вычислить L=maxg(B)
For i = 1 To n
If MaxG < A(i, i) Then
MaxG = A(i, i)
End If
Next i
L = MaxG
Label4 = Str(L)


Rem вычисление С
For i = 1 To n
For j = 1 To n
C(i, j) = (K * B(i, j) * A(i, j)) + L * A(i, j)
Next j, i
For i = 1 To n
For j = 1 To n
Label3 = Label3 + Str(Format(C(i, j), "###.###"))
Next j
Label3 = Label3 & vbLf
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.