Программный код по блок-схеме, цикл в цикле ? - VB

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

Помогите пожалуйста написать программный код по блок-схеме .

Решение задачи: «Программный код по блок-схеме, цикл в цикле ?»

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

                            Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim a() As Integer
Dim s As Integer
Dim sa As Single
txta.Text = ""
n = InputBox("n=")
ReDim a(n) As Integer
For i = 1 To n
a(i) = InputBox("a=" & CStr(i))
txta.Text = txta.Text & CStr(a(i)) & ", "
Next i
p = 1
For i = 1 To n
p = p * (a(i) - b * (n - i + 1))
Next i
txtp.Text = CStr(p)
 
End Sub
                        