VBA. Тоже нужно разработать алгоритм той же функции, но по 2-ой и 3-ей блок-схеме

Sub Alg_1()     xN = -5: xK = 5: h = 0.1     x = xN: i = 1     Do         y = 3 * x ^ 2 - 6 * x + 5         Cells(i, 1) = x: Cells(i, 2) = y         x = x + h: i = i + 1     Loop While x <= xK End Sub Sub Alg_1()     xN = -5: xK = 5: h = 0.1     i = 1     For x = xN To xK Step h         y = 3 * x ^ 2 - 6 * x + 5         Cells(i, 1) = x: Cells(i, 2) = y         i = i + 1     Next x End Sub