Помогите с заданием по информатике, сам я явно не справляюсь

Дело в том, что задание надо решить с помощью оператора цикла, а в формуле присутствует i. Как я понял требуется 2 цикла для i и всего остального, но как это записать в коде я без понятия. У меня выходит что у i значение не меняется, а должно ...

Dim i, d As Integer
Dim P, k As Double
k = CDbl(TextBox1.Text)
d = CInt(TextBox2.Text)
P = 1 ' Инициализируем произведение
For i = 1 To d
P = P * Sin(i ^ 2 + k ^ 2) * Cos(k * i)
Next
TextBox3.Text = CStr(P)
End Sub

Правельноли я все понял?