Проблема с задачкой

[Джиган]

Ребята вот такая вот задачка, совершенно не понимаю почему получается тот или иной ответ при вводе k. Пожалуйста, помогите разобраться, прокомментируйте каждую строчку и переменную, что и за чем!? Заранее благодарен)))

Sub p8()
Dim x As Integer, i As Integer, k As Integer, p As Long
k = InputBox("Введи k")
x = 2
p = 1
For i = 1 To k
p = p * k
x = x + 2
Next i
MsgBox ("произведение=" & p)
End Sub

[VadikV]

потому что цикл будет повторяться в зависимости от введенного к.
строки с х не понятные. они нигде не участвуют. зачем они нужны?

[IgorGO]

комментарий простой:
программа получает от пользователя значение К, а потом вычисляет К! (это факториал) и выводит его сообщением на экран.
параллельно х увеличивается с начального значения 2, на 2, К раз.