Разложить, используя ряд Тейлора; найти сумму - VB

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

Уважаемые посетители форума, прошу Вас о помощи. Разложить с помощью ряда Тейлора Дано: x и n Найти: S (сумму всех элементов)

Решение задачи: «Разложить, используя ряд Тейлора; найти сумму»

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

                            Private Sub Form_Click()
x = 1.3 'InputBox("X=")
n = 10 'InputBox("N=")
k = 1
For i = 1 To 10
  s = s + k * (x - 1) ^ i / i
  k = -k
Next i
MsgBox "Ряд Тейлора(" & x & ") = " & s & vbCrLf & "Логарифм(" & x & ") = " & Log(x)
End Sub
                        