Matrica

Public Sub Integral_1()

 Dim Ai(1 To 4, 1 To 1) As Single

 Dim Ti(1 To 4, 1 To 1) As Single

 Dim Xi(1 To 4, 1 To 1) As Single

 Dim FXi(1 To 4, 1 To 1) As Double

 Dim AiFXi(1 To 4, 1 To 1) As Double

 Dim nA As Single

 Dim nB As Single

 Dim nS As Double

 Dim i As Integer

 nS = 0

 For i = 1 To 4

  Ai(i, 1) = Sheets("èíòåãðàë").Cells(2 + i, 2)

  Ti(i, 1) = Sheets("èíòåãðàë").Cells(2 + i, 3)

  nA = Sheets("èíòåãðàë").Cells(3, 8)

  nB = Sheets("èíòåãðàë").Cells(3, 9)

  Xi(i, 1) = (nA + nB) / 2 + (nB - nA) / 2 * Ti(i, 1)

  Sheets("èíòåãðàë").Cells(2 + i, 4) = Xi(i, 1)

  FXi(i, 1) = (0.5 * Xi(i, 1) + 2) / Sqr(Xi(i, 1) ^ 2 + 1)

  Sheets("èíòåãðàë").Cells(2 + i, 5) = FXi(i, 1)

  AiFXi(i, 1) = Ai(i, 1) * FXi(i, 1)

  Sheets("èíòåãðàë").Cells(2 + i, 6) = AiFXi(i, 1)

  nS = nS + AiFXi(i, 1)

 Next

 nS = nS * (nB - nA) / 2

  Sheets("èíòåãðàë").Cells(3, 10) = nS

End Sub