ИСПОЛЬЗОВАНИЕ ФУНКЦИЙ EXCEL

As System.EventArgs) Handles_ MyBase.Load

Dim xl

As Microsoft.Office.Interop.Excel.Application
xl = CreateObject("Excel.Application")
Dim PI As Double = xl.WorksheetFunction.Pi()
Me.Text = "Pi=" & PI
End Sub

End Class

e As System.EventArgs) Handles MyBase.Load
Label1.TextAlign =

ContentAlignment.MiddleCenter
'A*X=L; X=A^(-1)*L
Dim A(,) As Double = {{1, 1, 1},
{1, 1, 0},
{0, 1, 1}}
Dim L() As Double = {6, 3, 5}
Dim oA, X As Object
Dim xl = New Excel.Application

Double = .MDeterm(A)
If Math.Abs(det_A)

< 0.01 Then
Label1.Text = "система не имеет решения, поскольку" & vbCrLf & vbCrLf & "определитель равен нулю"
Exit Sub
End If
oA = .MInverse(A)
X = .MMult(oA, .Transpose(L))
End With
Label1.Text = "Неизвестные равны" & vbCrLf & vbCrLf &
"X1=" & X(1, 1).ToString &
"; X2=" & X(2, 1).ToString &
"; X3=" & X(3, 1).ToString

End Sub
End Class