|
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; просмотров: 34 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
| | DuPont is a Fortune 500 company with R&D investment of $2.1 billion, revenue of $36 billion and operations in more than 90 countries. DuPont brings world-class science and engineering through |