Прошу пояснить, объяснить и подправить код табулирования функции

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, x, y, h As Single
        Dim z As Integer
        Dim Graf As Graphics = PictureBox1.CreateGraphics
        Graf.Clear(Me.BackColor)
        a = HScrollBar1.Value
        b = TrackBar1.Value
        h = NumericUpDown1.Value
        z = 10 : x = a
        Do While x <= b
            y = Math.Log(x) = (3x+10)- Math.Cos(x))
            y = (3x + 10) - Math.Cos(x))
            Graf.DrawString(Format(x, "0.000") & " " & Format(y, "0.000"), Label1.Font, Brushes.Green, 25, z)
            z = z + 10
            x = x + h
        Loop
    End Sub
    Private Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll
        Label5.Text = HScrollBar1.Value
    End Sub
    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        Label7.Text = TrackBar1.Value
    End Sub
End Class

 y = Math.Log(3 * x + 10) * Math.Cos(2 * x)

ListBox1.Items.Add(Format(x, "0.000") & "   " & Format(y, "0.000"))

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim a, b, x, y, h As Single
        Dim z, n As Integer
        Dim Graf As Graphics = PictureBox1.CreateGraphics
        Graf.Clear(Me.BackColor)
        ListBox1.Items.Clear()
        a = HScrollBar1.Value
        b = TrackBar1.Value
        If b < a Then
            TrackBar1.Value = HScrollBar1.Value + 1
            b = TrackBar1.Value
        End If
        h = NumericUpDown1.Value
        z = 10 : x = a : n = 0
        Do While x <= b
            y = Math.Log(3 * x + 10) * Math.Cos(2 * x)
            Graf.DrawString(Format(x, "0.000") & "   " & Format(y, "0.000"), Label1.Font, Brushes.Green, 25, z)
            ListBox1.Items.Add(Format(x, "0.000") & "   " & Format(y, "0.000"))
 
            DataGridView1(0, n).Value = Format(x, "0.000")
            DataGridView1(1, n).Value = Format(y, "0.000")
            n += 1
            z = z + 10
            x = x + h
        Loop
    End Sub
    Private Sub HScrollBar1_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs) Handles HScrollBar1.Scroll
        Label5.Text = HScrollBar1.Value
    End Sub
    Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As EventArgs) Handles TrackBar1.Scroll
        Label7.Text = TrackBar1.Value
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DataGridView1.ColumnCount = 2 'число столбцов
        DataGridView1.RowCount = 100 'число строк
        NumericUpDown1.Minimum = 1
        TrackBar1.Maximum = 100
        HScrollBar1.Maximum = 101
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox1.Font = New Font(FontFamily.GenericMonospace, 9)
    End Sub
    Private Sub Solution_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As Double = NumericUpDown1.Value
        Dim b As Double = NumericUpDown2.Value
        Dim h As Double = NumericUpDown3.Value
        Dim n As Integer = (b - a) / h + 1
        Dim v As Double
        TextBox1.Clear()
        For i = 1 To n
            v = Math.Log10(3 * a + 10) * Math.Cos(2 * a)
            TextBox1.AppendText(Format(a, "0.0").PadRight(10) & Format(v, "0.0") & vbCrLf)
            a += h
        Next
    End Sub
End Class