Дяденьки программисты, помогите программульку крохотульку на Qbasic написать! - VB

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

Вычислить сумму первых 50 - первых элементов ряда s=s+1+x+x2/2+x3/3+...
x2 =это икс в квадрате
x3=это иск в кубе и так далее
Я учусь в 11 классе школы и просто пропустил занятия, а училка - старая бабулька сказала , что мне трояк по информатике поставит. Вот. Папа ругать будет если эту задачку ей не сдам.
Заранее спасибо.

Решение задачи: «Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!»

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

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