Построить таблицу и найти наименьшее значение функции y=f (x)

Option Strict On 
Option Explicit On 
Imports System.Math 
Public Class Form1
 'Функция ввода исходн. данных из TextBox 
 Function vvod(ByVal T As TextBox) As Double 
 Return Val(T.Text) 
 End Function 
 'Процедура форматированного вывода результата в TextBox 
 Sub vivod(ByVal Z As Double, ByVal T As TextBox) 
 T.Text = Format(Z, "00.0000") 
 End Sub 
 'Процедура форматированного вывода результата в ListBox 
Sub vivodList(ByVal Z As Double, ByVal LB As ListBox)
 LB.Items.Add(Format(Z, "00.0000")) 
End Sub 
 'Процедура вывода целого результата в TextBox 
Sub vivodint(ByVal Z As Integer, ByVal T As TextBox) 
T.Text = CStr(Z) 
End Sub 
 'Функция вычисления значения ф-ции 
Public Function Fun(ByVal x As Double) As Double
 Return х+1/х
End Function  
 'Процедура решения задачи
 Public Sub RegCikl(ByVal a As Double, ByVal b As Double,  ByVal h As Double, ByRef max As Double, ByRef min As Double, ByRef n1 As Integer, ByRef n2 As Integer) 
 Dim i As Integer, n AsInteger, y As Double, x As Double 
 n = CInt((b - a) / h + 1) 'число точек таблицы 
 vivodint(n, TextBox15) 
 x = a : n1 = 0 : n2 = 0 
 max = Double.MinValue : min = Double.MaxValue 
 For i = 1 To n 
 y = Fun(x) 
 If y > max Then
 max = y
 End If 
 If y < min Then
 min = y 
End If 
 If y > 0 Then 
n1 = n1 + 1
 End If 
 If y < 0 Then
 n2 = n2 + 1
 End If 
 vivodList(x, ListBox1) : vivodList(y, ListBox2) 
x = x + h 
 Next 
end sub
 Private Sub Button2_Click(ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles Button2.Click 
 End 
End Sub 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 Dim nn1 As Integer, nn2 As Integer 
Dim mm1 As Double, mm2 As Double
 Dim a As Double, b As Double, h As Double 
 a = vvod(TextBox8) 
b = vvod(TextBox9)
 h = vvod(TextBox10) 
 RegCikl(a, b, h, mm1, mm2, nn1, nn2) 'вызов проц. реш.задачи
 vivod(mm1, TextBox11) 
vivod(mm2, TextBox12)
 vivodint(nn1, TextBox13) 
vivodint(nn2, TextBox14) 
 End Sub 
EndClass

Public Class Form1
    Private Function Res(ByVal a As Double, ByVal b As Double, ByVal x As Double) As Double
        Dim Result As Double = 0
        Dim TempMax As Double = 0
        'Выбор по значению x
        'Если x<2
        If x < 2 Then
            Result = a * Math.Sin(x) + b * Math.Cos(x)
            Return Result
            'Если x>3
        ElseIf x > 3 Then
            If x ^ 3 > Math.E ^ x Then
                If x ^ 3 > 10 ^ 3 Then
                    Result = x ^ 3
                    Return Result
                End If
            Else
                Result = Math.Max(Math.E ^ x, 10 ^ 3)
            End If
            Return Result
        Else
            'Остальные значения x
            TempMax = Math.Max(a ^ x, x ^ 3)
            If Math.Sin(x) / x < TempMax Then
                If Math.Sin(x) / x < Math.Log(x) ^ (2 * x) Then
                    Result = Math.Sin(x) / x
                    Return Result
                End If
            Else
                Result = Math.Min(TempMax, Math.Log(x) ^ (2 * x))
            End If
            Return Result
        End If
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As String = InputBox("Введите значение a")
        Dim b As String = InputBox("Введите значение b")
        Dim x As String = InputBox("Введите значение x")
        Dim Result As Double = 0
        Result = Res(CDbl(a), CDbl(b), CDbl(x))
        MsgBox("Результат: " & Result)
    End Sub
End Class

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Min As Double = F(0.1)
        For N As Double = 0.1 To 1.5 Step 0.1
            TextBox1.Text &= "x=" & N & vbTab & "y=" & Format(F(N), "0.00") & vbCrLf
            If Min > F(N) Then Min = F(N)
        Next
        TextBox1.AppendText("__________" & vbCrLf & "Minimum: " & Min)
    End Sub
    Function F(ByVal x As Double) As Double
        Return x + 1 / x
    End Function