VB 最小二乘法拟合直线Private Sub Form_click()Dim N As Integer, U() As Double, I As IntegerDim A As Single, B As SingleForm1.ClsPrint “数据： “;N = Val(InputBox(“原始数据个数“, “输入“, 7)If N = 0 Then Print “ + “;Print B; “x“End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Caption = “最小二乘法拟合程序“PrintPrint “本程序执行的顺序为：“Print “1、输入数据数量；“Print “3、逐个输入各组数据；“Print “2、输出拟合公式。“PrintPrint “特别说明：本程序不用任何控件！只要把窗口拉的足够大就行了。“PrintForm1.Print “单击窗体开始.“End Sub
