Найти сумму ряда - VB (59092)

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

Помогите разобратся с задачкой. Вот само задание:

Private Sub Command1_Click()
n = Text1.Text

a = Text2.Text
j = Text4.Text
s1 = 0
For i = 1 To n
s1 = s1 + n
Next
s2 = 1
For j = 1 To i
s2 = s2 * j
Next
s3 = 1
For s3 = 1 To i
s3 = s3 * i
Next
P = a * s1 * (s3 + s2 * 2 ^ (i - 2))
Print P
Text3.Text = P
Label3.Visible = True
End Sub
 
Private Sub Command2_Click()
End
End Sub

Препод сказал что решение не верно и слишком много команд "Next". Заранее спасибо!

Решение задачи: «Найти сумму ряда»

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

                            Function q(a As Double, n As Integer) As Double
Dim i As Integer, j As Integer, f As Double
f = 1
For i = 1 To n
  f = f * i
  q = q + a * (f + f * 2 ^ (i - 2))
Next i
End Function
                        