Sub Babulka()
'Вычислить сумму ряда 50 первых элементов ряда s=1+x/1+x2/2+x3/3+...
Dim S As Double, x As Double, y As Double, i As Long
x =  2                'здесь меняй х
S =  1  + x           's=1+x=x в нулевой степени + х в первой степени/1
y = x               'х в первой степени / 1
For i =  2  To  50 
    y = y * x       'квадрат икса, куб икса,... 50-я степень икса
    S = S + y / i   'степень икса делится на показатель степени
Next i
Debug.Print "x="; x; "S="; S    'результат
End Sub

Sub Babulka()
'Вычислить сумму ряда 1000 первых элементов ряда s=1+x+x2+x3+...
'Этот ряд является геометрической прогрессией.
Dim S As Double, x As Double, y As Double, i As Long, lim As Double
x =  0 . 5              'для проверки алгоритма аналитической формулой
S =  1  + x           's=1+x=x в нулевой степени + х в первой степени/1
y = x               'х в первой степени / 1
For i =  2  To  1000 
    y = y * x       'квадрат икса, куб икса,... i-я степень икса
    S = S + y       '/ i - закомментированная часть Сашиной задачи
Next i
lim =  1  / ( 1  - x)   'сумма БЕСКОНЕЧНОГО ряда.
Debug.Print "x="; x; "S="; S; "lim="; lim  'результат
End Sub