Нужна помощь в VBA

[pennywhite]

Нужна помощь в VBA: Есть блок-схема. Все проде бы просто, но не получается зациклить программу, т. е. надо, наверное, вписать всякие "Loop", "do", "While", но я не знаю, куда. Вот текст программы

Option Explicit

Dim a As Integer

Dim b As Integer

Dim e As Single

Dim n As Integer

Dim h As Single

Dim i As Integer

Dim x0 As Single

Dim x1 As Single

Dim x2 As Single

Dim y0 As Single

Dim y1 As Single

Dim y2 As Single

Dim S As Single

Dim I1 As Single

Dim I2 As Single

Sub lab_rab_1()

a = 1

b = 2

e = 10 ^ (-6)

I1 = 0

n = 4

h = (b - a) / 4



I2 = 0

i = 2



x2 = a + i * h

x1 = x2 - h

x0 = x1 - h

y0 = (x0 + 1.2) * Sin(x0 / 2)

y1 = (x1 + 1.2) * Sin(x1 / 2)

y2 = (x2 + 1.2) * Sin(x2 / 2)

S = y0 + 4 * y1 + y2

I2 = I2 + S

If i < n Then

i = i + 2



Else

I2 = I2 * (h / 3)

End If

Exit Do

If Abs(I1 - I2) < e Then MsgBox I2

Else

I1 = I2

n = n * 2

h = h / 2

End If



End Sub

и блок-схема



И еще одна задачка: нужно вывести все корни уравнения; если корней больше трех (как раз мой случай), то вывести первые три. Как это сделать? Текст

Option Explicit

Dim a As Single

Dim b As Single

Dim c As Single

Dim e As Single

Dim y1 As Single

Dim y2 As Single

Sub lab_rab_2()

a = InputBox("Введите нижний предел")

b = InputBox("Введите верхний предел")

e = 10 ^ (-6)

y1 = 1.2 - Log(a) - 4 * Cos(2 * a)

Do

c = (a + b) / 2

y2 = 1.2 - Log(c) - 4 * Cos(2 * c)

If Abs(y2) > e Then

If y1 * y2 > 0 Then

a = c

Else

b = c

End If

Else

MsgBox (c)

Exit Do

End If

Loop

End Sub





Если кто поможет, буду безмерно благодарна.