Page 119 - 4192

Програмний код:
Private Sub Command1_Click()
Dim x, E, z As Single
Dim i, n, F As Integer
x = Val(Text1)
E = Val(Text2)
n = 0
Do
F = 1
n = n + 1
For i = 1 To n
F = F * i
Next i
z = z + x ^ n / F
Loop While x ^ n / F > E
Text3 = Format(z, "0.000")
End Sub
Private Sub Command2_Click()
End
End Sub

Рисунок 6.3 – Схема алгоритму

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

118