Вычислить значение выражения и нарисовать блок-схему - VB

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

задали контрольную, мучаюсь.....необходимо вычислить в Visual Basic значение выражения: a(a-n)(a-2n)...(a-n2), n2-это n в квадрате. Где a-это действительные числа, а n-натуральные.И нарисовать блок-схему.Кому не сложно, помогите, пожалуста!!!!Заранее благодарна

Решение задачи: «Вычислить значение выражения и нарисовать блок-схему»

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

                            Private Sub Form_Load()
Dim a As Double, n As Integer, P As Variant, i As Integer
a = 5: n = 4: P = a
For i = 1 To n
    P = P * (a - i * n)
Next
MsgBox P
End Sub
                        