VB Вычисление суммы ряда

[LenZab]

З а д а н и е . Вычислить сумму S, прекращая суммирование, когда
очередной член станет меньше eps=10-4 , при изменении аргумента x
в указанном диапазоне [a,b] с шагом h. Для проверки в каждой точке
вычислить также и функцию y=f(x), представляющую собой анали-
тическое выражение ряда.
S=Сумма(2i+1)x^i Y=(1+x)/(1+x)^2 a=0 b=0.9 h=0.05
Программа в принципе составлена только немогу понять почему сумма ряда не сходиться. Помогите!!!