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