Вычислить функцию, используя ее разложение в степенной ряд

    Dim x As Single, y As Single
    Dim n As Integer
    Const e = 0.001
    
    For x = -1 To 1 Step 0.1
        y = 0
        n = 1
        y = -x
        Do While Abs(y) - Abs(Round(Log(1 - x), 4)) <= e
            n = n + 1
            y = -(x ^ n) / n + y
        Loop
        Print Round(x, 4); Round(y, 4)
    Next x

Private Sub Command1_Click()
Form1.Cls
   Dim x As Single, y As Single
    Dim n As Long
    Const e = 0.001
    y = 0
    For x = -1 To 1 Step 0.1
        n = 1
        y = -x
        Do While Abs(Abs(y) - Abs(Log(1 - x))) >= e
            n = n + 1
            y = -(x ^ n) / n + y
            DoEvents
        Loop
        Print Round(x, 4); Round(y, 4); Round(Log(1 - x), 4)
        y = 0
    Next x
End Sub

    x = 0.2
    Const e = 0.001
    
    j = 1
    n = 2
    fac = 1
    sum = x
 
    Do While Abs(sum) - Abs(Sin(x)) >= e
        For i = 1 To j
            fac = fac * i
        Next i
      
        sum = sum + (-1) ^ (n - 1) * (x ^ (2 * n - 1)) / fac
        j = j + 2
        n = n + 1
        fac = 1   
    Loop

    Const e = 0.001
  For x = 0 To 10
    i = 1
    fac = 1
    Sum = 0
   c = 1
    Do
      sum1 = Sum
        Sum = Sum + c * (x ^ i) / fac
        c = -c
        i = i + 2
        fac = fac * i * (i - 1)
    Loop While Abs(Sum - sum1) >= e
    Print "Sin("; x; ")="; Sum
  Next x