3.2Вікно редактора VBA та вікно форми

3.2 Вікно редактора VBA та вікно форми

VBA код проекту

Private Sub CommandButton1_Click()

n = Val(TextBox1.Text)

a = Val(TextBox2.Text)

b = Val(TextBox3.Text)

eps = Val(TextBox4.Text)

y1 = Exp(a - a * a) / Abs(a)

y2 = Exp(b - b * b) / Abs(b)

s1 = 0

25: s2 = (y1 + y2) / 2

x = a

h = (b - a) / n

n1 = n - 1

For i = 1 To n1

x = x + h

y = Exp(x - x * x) / Abs(x)

s2 = s2 + y

Next i

s2 = s2 * h

If Abs(s1 - s2) > eps Then

s1 = s2

n = 2 * n

GoTo 25

Else

TextBox5.Text = s2

End If

End Sub

3.3 Результат роботи програми

Дата добавления: 2015-11-04