作业帮 > 综合 > 作业

VB最小二乘法拟合直线

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/04/27 22:10:00
VB最小二乘法拟合直线
输入几个点的横坐标和纵坐标,用最小二乘法拟合出直线(类似y=ax+b).并把这个方程计算并显示出来.希望把流程也介绍一下(一开始建立什么控件,如何使用控件).本人比较菜,望高手不吝赐教!
VB最小二乘法拟合直线
稍等好吗?
好了,但愿没有耽误你!代码如下(注意不用任何控件即可):
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
已经运行过.