Табулирование функции на отрезке [а, b] с шагом h - VB (61355)

Формулировка задачи:

Помогите разобраться почему в первой колонке в значении х не целые значения после значения -1,1

Option Explicit
Dim a As Double, b As Double, h As Double, e As Double, s As Double
Dim q As Double, n As Double, x As Double, y As Double
Function f(x)
f = Log(1 / (2 + 2 * x + x ^ 2))
End Function
Private Sub Command1_Click()
Picture3.Cls
Picture4.Cls
Picture5.Cls
a = Val(Text1.Text)
b = Val(Text2.Text)
h = Val(Text3.Text)
e = 40 ^ (-5)
s = 0
 For x = a To b Step h
      y = f(x): s = 0
      For n = 1 To 50000
          q = (-1) ^ n * ((1 + x) ^ (2 * n)) / n
          s = s + q
          If Abs(q) < e Then Exit For
      Next n
      Picture5.Print s
      Picture3.Print x
      Picture4.Print y
Next x
End Sub
 
Private Sub Command2_Click()
End
End Sub

Решение задачи: «Табулирование функции на отрезке [а, b] с шагом h»

textual
                            Листинг программы 
                        
                                For a# = -2 To -0.1 Step 0.1
        
        Debug.Print Round(a#, 1) ' округление при печати до одной цифры после точки
        
    Next a#