Рисунок 6. Окно программы.

В окне программы расположены исходные данные в элементе управления Label, результат (элемент управления Label), таблицы значений на элементе управления ListBox и кнопка «Вычислить».

3 Реализация программного модуля

3.1 Код программы

Dim n As Integer 'количество делений отрезка

Dim i As Integer 'счетчик итераций

Dim i1 As Double 'переменная для нахождения интеграла

Dim i2 As Double 'переменная для нахождения интеграла

Dim x As Double 'значение аргумента

Dim h As Double 'шаг

Private Sub UserForm_Initialize()

Application.Visible = False 'делаем Excel невидимым

End Sub

Private Sub CommandButton1_Click()

Label3.Caption = Trap(0, 1) 'вычисление интеграла методом трапеции

Label5.Caption = Simp(0, 1) 'вычисление интеграла методом Симпсона

End Sub

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

n = 2

i2 = 0

h = 0.1

With ListBox1

.ColumnCount = 2

ListBox1.AddItem "x"

ListBox1.ColumnWidths = "30;30"

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

Do

n = n * 2

h = (b - a) / n

i1 = i2