Приближенное значение бесконечной суммы в VBA

[RitaToporita]

Всем привет. У меня возникла проблема в написании программы, при запуске вылетает ошибка "overflow". Помогите исправить, пожалуйста
Screenshot_7.png

Private Sub calc_Click()
Dim x As Double, eps As Double, sum As Double
Dim a As Double
Dim n As Long
n = 2
k = 3

x = CDbl(txtX.Text)
t = x / 2
a = t
sum = a
eps = CDbl(txtEps.Text)
  If x > 1 Then
MsgBox " x должен быть меньше 1 !", vbCritical
Exit Sub
  End If
Sheets(1).Cells(1, 2).Value = x
Sheets(1).Cells(1, 4).Value = eps
Sheets(1).Cells(k, 1).Value = 1
Sheets(1).Cells(k, 2).Value = a
Sheets(1).Cells(k, 3).Value = sum
k = 4

  Do
a = a * t
sum = sum + a / n

Sheets(1).Cells(k, 1).Value = n
Sheets(1).Cells(k, 2).Value = a / n
Sheets(1).Cells(k, 3).Value = sum

k = k + 1
n = n + 1
  Loop Until Abs(a / (n - 1)) <= eps
lbSum = " Сумма ряда=" & sum & vbNewLine & " F(" & x & ")=" & log(x) & vbNewLine & " n=" & n

End Sub

[Utkin]

Ну так процессор до стольки считать не умеет

[RitaToporita]

вот как.. помочь сможешь?)

[Aleksandr H.]

условие выхода с цикла (34 строка) верное? а в степень растет, а n инкременируется. Вряд ли частное будет меньше епсилона

[RitaToporita]

то чувство, когда осталось 5 часов до экзаменаXD
Может я неправильно формулу составила, не знаю даже.,
Loop Until Abs(a / (n - 1)) <= eps на счет этой строки я особенно сомневаюсь)

[Аватар]

Начать с того, что сам ряд в условии не верно описан.
Дальше - значение t с какого перепугу x/2?
x > 1 - а как насчет равно 1?

а в степень растет, а n инкременируется. Вряд ли частное будет меньше епсилона

Почему же? a < 1 - числитель -> 0, знаменатель -> к восьмерке перевернутой