Курсовая работа: Разработка программного модуля для вычисления интеграла

For i = 1 To n

x = a + h * i

ListBox1.AddItem x

i2 = i2 + h * (f(x) + f(a + h * (i - 1))) / 2

ListBox1.List(i, 1) = i2

Next i

Loop While (Abs(i1 - i2) < 0.005)

End With

Trap = i2

End Function

Public Function Simp(a As Double, b As Double) As Double ' нахождение интеграла методом Симпсона

n = 2

i2 = 0

h = 0.1

With ListBox2

.ColumnCount = 2

.ColumnWidths = "30;30"

.AddItem "x"

.List(0, 1) = "Результат"

Do

n = n * 2

h = (b - a) / n

i1 = i2

i2 = 0

For i = 0 To n

x = a + h * i

.AddItem x

If (i = 0 Or i = n) Then

i2 = i2 + f(x) * (b - a) / (3 * n)