line of best fit

Module Module1
    Public Structure training
        Dim y As Single
        Dim x As Single
    End Structure
    Sub Main()
        Console.ReadLine()
        Dim derivitive(1) As Single
        Dim training(10000) As training
        For i = 0 To 10000
            training(i).y = 0.5 * i + 0.3
            training(i).x = i
        Next
        derivitive(1) = AverageGradient(training)
        derivitive(0) = AverageConstant(derivitive(1), training)
        Console.WriteLine(derivitive(1) & "x+" & derivitive(0))
        Console.ReadLine()
    End Sub
    Function AverageGradient(ByVal training() As training) As Single
        Dim totalGraidient As Single = 0
        Dim miss As Integer = 0
        For i = 0 To training.GetLength(0) - 2
            totalGraidient = totalGraidient + (training(i).y - training(i + 1).y) / (training(i).x - training(i + 1).x)
            miss = miss + 1
        Next
        AverageGradient = totalGraidient / miss
    End Function
    Function AverageConstant(ByVal gradient As Single, ByVal trainting() As training) As Single
        Dim totalConstant As Single
        For i = 0 To trainting.GetLength(0) - 1
            totalConstant = totalConstant + (trainting(i).y - gradient * i)
        Next
        AverageConstant = totalConstant / (trainting.GetLength(0))
    End Function
End Module