VB源码网站（vb源码）

大家好，我是小华，我来为大家解答以上问题。VB源码网站，vb源码很多人还不知道，现在让我们一起来看看吧！

1、这是用来球现行回归方程的 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 。

本文到此讲解完毕了，希望对大家有帮助。