VB源码大全
答案:2 悬赏:0 手机版
解决时间 2021-04-01 12:18
- 提问者网友：鼻尖触碰
- 2021-04-01 00:41
VB源码大全
最佳答案
- 五星知识达人网友：枭雄戏美人
- 2021-04-01 01:03
这是用来球现行回归方程的
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
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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯