VB6拟合直线

来源：百度知道 编辑：UC知道 时间：2024/09/22 18:31:02
我要用 Text1(0)到Text1(9) 与 Text2(0)到Text2(9)
两个数组中的数据拟合一条直线,显示在图片框里面
并将直线的方程显示在Text3里面,求高手告知完整的代码!
要完整的代码!
谢谢啊
成功了还会加分
就是以Text2的数据对Text1的数据作图!
有坐标刻度显示

Private Sub Command1_Click()
r10 = 0.765 '十个数时的相关系数
For i = 0 To 9
sxp = sxp + Val(Text1(i).Text) '求x的总和
syp = syp + Val(Text2(i).Text) '求y的总和
sxyp = sxyp + Val(Text1(i).Text) * Val(Text2(i).Text) '求x*y的总和
sx2p = sx2p + Val(Text1(i).Text) ^ 2 '求x的平方的总和
sy2p = sy2p + Val(Text2(i).Text) ^ 2 '求y的平方的总和
Next
xp = sxp / 10 '求x的平均值
yp = syp / 10 '求y的平均值
xyp = sxyp / 10 '求x*y的平均值
x2p = sx2p / 10 '求x的平方的平均值
y2p = sy2p / 10 '求y的平方的平均值
r = (xyp - xp * yp) / Sqr((x2p - xp ^ 2) * (y2p - yp ^ 2)) '求这十个数的相关系数
If Abs(r) < r10 Then '如果相关系数比r10小 说明他不是线性相关
MsgBox ("不符合线性相关")
GoTo tc
End If
b = (xyp - xp * yp) / (x2p - xp ^ 2) '求b的值
a = yp - b * xp '求a的值

For i = 0 To 9
bc =