VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线（类似y=ax+b）.并把这个方程计算并显示出来.希望把流程也介绍一下（一开始建立什么控件,如何使用控件）.本人

来源：学生作业帮助网编辑：六六作业网时间：2024/12/23 00:10:53

VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线（类似y=ax+b）.并把这个方程计算并显示出来.希望把流程也介绍一下（一开始建立什么控件,如何使用控件）.本人VB最小二乘法拟

VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线（类似y=ax+b）.并把这个方程计算并显示出来.希望把流程也介绍一下（一开始建立什么控件,如何使用控件）.本人
VB最小二乘法拟合直线
输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线（类似y=ax+b）.并把这个方程计算并显示出来.希望把流程也介绍一下（一开始建立什么控件,如何使用控件）.本人比较菜,望高手不吝赐教!

VB最小二乘法拟合直线输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线（类似y=ax+b）.并把这个方程计算并显示出来.希望把流程也介绍一下（一开始建立什么控件,如何使用控件）.本人
稍等好吗?
好了,但愿没有耽误你!代码如下（注意不用任何控件即可）：
Private Sub Form_click()
Dim N As Integer,U() As Double,I As Integer
Dim A As Single,B As Single
Form1.Cls
Print "数据：";
N = Val(InputBox("原始数据个数","输入",7))
If N = 0 Then Print " + ";
Print B; "x"
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.Caption = "最小二乘法拟合程序"
Print
Print "本程序执行的顺序为："
Print "1、输入数据数量；"
Print "3、逐个输入各组数据；"
Print "2、输出拟合公式."
Print
Print "特别说明：本程序不用任何控件!只要把窗口拉的足够大就行了."
Print
Form1.Print "单击窗体开始..."
End Sub
已经运行过.