Оператор цикла с параметром

[cudalover]

Нужна ваша помощь!

Никак не могу разделаться с каверзной лабой, в ней три задания, два я сделал, а в одном все время что-то не так, вроде все уже подлатал, но все равно ошибка, вот задание и код :


Для функции
Программно найти самую левую на интервале [-2;2] (с точностью 0,1) точку, в которой значение функции принимает отрицательное значение, и самую правую точку на том же интервале, в которой значение функции принимает положительное значение

Private Sub Command1_Click ()
Dim x As Double
Dim y As Double
Dim foundo As Boolean
Dim foundp As Boolean
For x = -2 To 2 Step 0.1
y = 0
If y > -2 And y<0 Then
foundo = True
Print "Самая левая точка с отриц. значением функции", Round(x, 1), y
Exit For
End If
Next x
For x = -2 To 2 Step 0.1
y = x - 1
If y<2 And y>0 Then
foundp = True
Print "Самая правая точка с полож. значением функции", Round(x, 1), y
Exit For
End If
Next x
If Not foundo Then Print "Нет точки с отрицательным значением функции"
If Not foundp Then Print "Нет точки с положительным значением функции"
End Sub


ошибка во втором цикле:
For x = -2 To 2 Step 0.1
y = x - 1
If y<2 And y>0 Then
foundp = True
Print "Самая правая точка с полож. значением функции", Round(x, 1), y
Exit For
End If
Next x

1) шаг не тот, нужен другой величины;
2) нужно чтобы проверять начинало с двух, как это сделать?

[cudalover]

И еще я вставлял код с отступами, а форум убрал пробелы)))

[cudalover]

Помогите хоть чем-нибудь, я уже все перепробовал, а мне эту лабу надо сдать. И оператор нужен не с параметром а с постусловием!