Задача на оператор цикла со счётчиком

[DontStopMe!]

Всем привет)
по Visual Basic 6.0
Не могу разобраться...
дана дробь:

(x+2x^2)/sinx

Она должна быть равна 3660 при условие x=30,n=1
Получается дальше нужно сложить эту дробь со следующей

((x+2x^2)/sinx)+(x+2x^2+3x^3)/sin2x

и так далее
общая формула получается

x+(n+1)*x^(n+1)

и всё это делённое на sin(nx)

Вот когда я так делаю...получается что он результат на 30 прибавляет(

Не знаю,что можно сделать,чтобы он так не делал(

вот моё решение...можете исправить?

Dim x As Single
Dim n As Single
x = Val(InputBox("Ââåäèòå x", "Ââîä äàííûõ"))
n = Val(InputBox("Ââåäèòå n", "Ââîä äàííûõ"))
Pi = 4 * Atn(1)
p = i - 1
For i = 1 To n
s = s + (x + (i + 1) * x ^ (i + 1))/(Sin(n*(x * Pi / 180)))
Print s
Next i
Print s

если не трудно...буду благодарен)

[Hacker19_90]

не совсем понял, но мб как-то так?

s = 0;
k = x;
For i = 1 To (n - 1) Step 1
    s = (s + (k + (i+1)*x^(i+1))/sin(i*x));
    k = k + (i+1)*x^(i+1);
Next i;

[DontStopMe!]

Почему вы не хотите помочь?
Я уже не знаю как написать формулу...ничего не выходит...либо 30ку накручивает...либо билеберду считает((

[DontStopMe!]

Не-а всё равно не то

Что вам именно не понятно?
Давайте объясняю

[DontStopMe!]

он всё равно 30ку накручивает

[Hacker19_90]

он всё равно 30ку накручивает

А должен сколько?

[DontStopMe!]

Ну получается вот в первой дроби он правильно считает...
А вот вторую,он прибавляет к правильному числу ещё 30
Там при x=30,n=2...должно получится 82830..а получается 82860

[DontStopMe!]

никак не получится да?