Оператор цикла со счётчиком - VB

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

всем привет) помогите разобраться... дана дробь: (x+2x^2)/sinx Она должна быть равна 3660 при условие x=30,n=1 Получается дальше нужно сложить эту дробь со следующей ((x+2x^2)/sinx)+(x+2x^2+3x^3)/sin2x и так далее общая формула получается (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)
For i = 1 To n
s = s + (x + ((i + 1) * x ^ (i + 1))) / (Sin(n * (x * Pi / 180)))
Next i
Print s

это вот мой вариант...но только прибавляет 30((

никто не может помочь? пожалуйста...очень нужно

Решение задачи: «Оператор цикла со счётчиком»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim x As Single
Dim n As Single
Pi = 4 * Atn(1)
 
'x = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x", "Г‚ГўГ®Г¤ Г¤Г*Г*Г*Г»Гµ"))
'n = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ n", "Г‚ГўГ®Г¤ Г¤Г*Г*Г*Г»Гµ"))
x = 30
n = 9
sum=0
For i = 1 To n
    s = 0
    For j = 1 To i + 1
        s = s + j * x ^ j
    Next
    s = s / (Sin(i * x * Pi / 180))
    sum = sum+s
    Print "S(" & i & ") = " & s
Next
Print "Сумма  = " & sum
End Sub