Напишите пожалуйста блок-схему этой программы

[ilfat11]

Private Sub Command1_Click()
Dim s, a As Double
Dim k As Integer
Picture1.Cls
Picture2.Cls
Picture1.Print "  k     a(k)       s(k)"
s = 0
For k = 1 To 10
    a = 1 / ((k ^ 2) + 3 * k + 4)
    s = s + a
    Picture1.Print k; "  "; Format(a, "00.00000"); "    "; Format(s, "00.00000")
Next k
Picture2.Print Format(s, "00.000")
End Sub

[Stanislav]

Сообщение от ilfat11

Private Sub Command1_Click()
Dim s, a As Double
Dim k As Integer
Picture1.Cls
Picture2.Cls
Picture1.Print " k a(k) s(k)"
s = 0
For k = 1 To 10
a = 1 / ((k ^ 2) + 3 * k + 4)
s = s + a
Picture1.Print k; " "; Format(a, "00.00000"); " "; Format(s, "00.00000")
Next k
Picture2.Print Format(s, "00.000")
End Sub

если бы код писали вы - смогли бы блок схему нарисовать значит код сперт, так еще хочешь на халяву и блок схему. во фрилансе ветка есть, плати и тебе нарисуют все что угодно