Получить таблицу и найти количество отрицательных значений функции - VB

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

Получить таблицу и найти количество отрицательных значений функции f(x) = при изменении x на отрезке [-2;2] с шагом h=0.01 Не подскажите правильно ли?

                    Листинг программы
                
 
                        
                          
                    
Option Strict On
Imports System.Math
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, h, x, y As Double
Dim i, k, n As Integer
 
a = CDbl(TextBox1.Text)
b = CDbl(TextBox2.Text)
h = CDbl(TextBox3.Text)
 
k = CInt((b - a) / h) + 1
x = a
n = 0
For i = 1 To k
 
If x > 1 Then
y = Exp(-1 / (2 * x))
Else
If x < 0 Then
y = 2 * Sin(x) ^ 3 - 1
Else
y = Cos(x ^ 2)
End If
End If
ListBox1.Items.Add(CStr(x))
ListBox2.Items.Add(CStr(y))
 
x = x + h
 
If y < 0 Then n = n + 1
Next
TextBox4.Text = CStr(n)
End Sub
 
End Class

Решение задачи: «Получить таблицу и найти количество отрицательных значений функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub cmdStart_Click()
  Dim fXn As Single
  Dim fYn As Single
  Dim sTemp As String
  Dim iNegY As Integer
  '
  sTemp = ""
  iNegY = 0
  For fXn = -2 To 2.01 Step 0.01
    fYn = fFX(fXn)
    sTemp = sTemp + "X=" + Trim$(Str$(fXn)) + " Y=" + Trim$(Str$(fYn))
    sTemp = sTemp + Chr$(13) + Chr$(10)
    If fYn < 0 Then
      iNegY = iNegY + 1
    End If
  Next fXn
  sTemp = sTemp + Chr$(13) + Chr$(10)
  sTemp = sTemp + Chr$(13) + Chr$(10)
  sTemp = sTemp + "Количество отрицательных значений функции " + Trim$(Str$(iNegY))
  sTemp = sTemp + Chr$(13) + Chr$(10)
  txtResult.Text = sTemp
End Sub