大家好，我是小華，我來為大家解答以上問題。VB源碼網(wǎng)站，vb源碼很多人還不知道，現(xiàn)在讓我們一起來看看吧！

1、這是用來球現(xiàn)行回歸方程的 Option Explicit Public c As Integer, xi As Single, sumxy As Single, yi As Single, sumx2 As Single, sumx As Single, sumy As Single, ii As Integer Public xba As Single, yba As Single, b As Double, a As Single Private Sub Command1_Click() Text1.Text = "" Text2.Text = "" Static i As Integer xi = Val(Text1.Text) yi = Val(Text2.Text) sumxy = sumxy + xi * yi sumx = sumx + xi sumy = sumy + yi sumx2 = sumx2 + xi * xi i = i + 1 ii = i End Sub Private Sub Command2_Click() xba = sumx / ii yba = sumy / ii b = Round((sumxy - ii * xba * yba) / (sumx2 - ii * xba ^ 2), 4) a = Round(yba - b * xba, 4) Label3.Caption = "y=" & a & "+" & b & "x" End Sub 。

本文到此講解完畢了，希望對大家有幫助。