Вычислить значение выражения - VB (59555)

Формулировка задачи:

Вычислить двумя способами: используя стандартную функцию и формулу разложения в ряд Написать нужно на VB6

Решение задачи: «Вычислить значение выражения»

textual
                            Листинг программы 
                        

                            Private Function tSin(ByVal X As Single, Optional ByVal Iter As Long = 5) As Single
    Static f As Single, sx As Single
    If Iter Then
        tSin = tSin + tSin(X, Iter - 1)
        f = f * (Iter * 2) * (Iter * 2 + 1): sx = sx * X * X
        tSin = tSin + IIf(Iter And 1, -1, 1) / f * sx
    Else: f = 1: tSin = X: sx = X
    End If
End Function
                        