Page 165 - 4192

Програмний код:
Function SUM(n, m, z, a) Private Sub
As Single Command1_Click()
Dim S As Single Dim x, y, L As Single
Dim i As Integer x = Val(Text1)
S = 0 y = Val(Text2)
For i = n To m
L = SUM(1, 10, x, 2) +
S = S + z / (i * (i + a) ^ 2) SUM(3, 7, y, -1)
Next i Text3 = L
SUM = S End Sub
End Function Private Sub
Command2_Click()
End
End Sub

Рисунок 10.6 – Розроблений інтерфейс та
результат виконання програми

Приклад. Сформувати масиви Z,Y елементи яких
обраховуються за наступною формулою:

164