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

Слайд 2

Слайд 3

Слайд 4

Слайд 5

Public Class Form1 Private Sub Form1_Load(sender As_ System.Object, e As System.EventArgs)

Public Class Form1
Private Sub Form1_Load(sender As_ System.Object, e 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
Слайд 6

Слайд 7

Слайд 8

Слайд 9

Imports Microsoft.Office.Interop Public Class Form1 Private Sub Form1_Load(sender As System.Object, e

Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Form1_Load(sender As System.Object, 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