Проблема с программой в VBA

[Aleks2215]

Написал прогу:
Option Explicit
Sub Lab2()
Dim c As Single, d As Single, dx As Single, x As Single, y As Single
Dim k As Integer
c = -1
d = 1
dx = 0.1
x = -1
k = 0
metka:
cells(10 + k, 10) = x
If x <= 0 Then
y = 1 / Sin(x) + 2
End If
If (x > 0) And (x < 2) Then
y = Log(x) / Log(10) + Exp(x)
End If
If x > 2 Then
y = 2 * x ^ 2
End If
If k = 10 Then
x = 0
End If
x = x + dx
k = k + 1
cells(9, 9) = k
cells(7 + k, 4) = y
If x = d Then
GoTo metka_1
End If
GoTo metka
metka_1:
End Sub

Однако в ней почему то не срабатывает команда выхода If x = d Then
GoTo metka_1
d=1, x тоже принимает значение 1, но условие не срабатывает и счетчик идет дальше. Подскажите кто нибудь, что не так?

[Hugo121]

Похоже, что не совсем они равны:

Debug.Print d - x
If x = d Then

даёт
0,3
0,1999999
0,0999999
-1,192093E-07

[doober]

Вы же уравнения решаете,точность задавать надо

If Abs(d - x) < 0.001 Then
GoTo metka_1
End If

[Aleks2215]

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

Вы же уравнения решаете,точность задавать надо

If Abs(d - x) < 0.001 Then
GoTo metka_1
End If

Мне нужно чтобы в решении x принимал значения из ВСЕГО промежутка [-1;1], а если ставить такое условие то будет только [-1;0,9] Можно конечно задать значение d=1,1, но хотелось бы решить использую исходные данные.

[doober]

If x <= 0 Then
y = 1 / Sin(x) + 2
End If

А деление на 0 вас не смущает.Поменяйте оббъявление

dx As Currency

И вы этот ноль сразу поймаете