vb.net编写线性回归方程

下面是一个简单的VB.NET程序，用于计算线性回归方程：

Sub LinearRegression(X() As Double, Y() As Double)
    Dim sumX As Double = 0
    Dim sumY As Double = 0
    Dim sumXY As Double = 0
    Dim sumX2 As Double = 0
    Dim n As Integer = X.Length

    For i As Integer = 0 To n - 1
        sumX += X(i)
        sumY += Y(i)
        sumXY += X(i) * Y(i)
        sumX2 += X(i) ^ 2
    Next

    Dim slope As Double = (n * sumXY - sumX * sumY) / (n * sumX2 - sumX ^ 2)
    Dim intercept As Double = (sumY - slope * sumX) / n

    Console.WriteLine("y = {0:f4}x + {1:f4}", slope, intercept)
End Sub

这个程序需要两个数组作为输入，一个是自变量X，另一个是因变量Y。它会计算出回归方程的斜率和截距，并将结果输出到控制台。你可以根据需要将其修改为更适合你的应用程序的形式。