Вычисление гиперболического косинуса через ряды - VB

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

Здравствуйте! Помогите написать код для вычисления гиперболического косинуса через ряды с указанной точностью. Заранее спасибо!

Решение задачи: «Вычисление гиперболического косинуса через ряды»

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

                            Option Explicit
 
Private Sub Form_Load()
    Dim x As Single, y As Single
    
    AutoRedraw = True
    Scale (-10, 10)-(10, -10)
    Line (ScaleLeft, 0)-Step(ScaleWidth, 0)
    Line (0, ScaleTop)-Step(0, ScaleHeight)
    For x = ScaleLeft To ScaleLeft + ScaleWidth Step 0.001
 
        Me.Line -(x, cosh(x))
        
    Next
    
End Sub
 
Private Function cosh(ByVal x As Single, Optional ByVal e As Single = 0.0001) As Single
    Dim i As Long, f As Single, cx As Single, l As Single
    cosh = 1: f = 1: cx = 1
    Do
        i = i + 2: f = f * (i - 1) * i: cx = cx * x * x: l = cx / f
        cosh = cosh + l
    Loop While Abs(l) > e
End Function
                        