vb中线性拟合_vb曲线拟合

展开全部

我就给你贴出frm文件吧。其他的工程文件也贴不出。希望对你有用。

VERSION 5.00

Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"

Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"

Begin VB.Form Form1

Caption = "曲线拟合"

ClientHeight = 9330

ClientLeft = 60

ClientTop = 345

ClientWidth = 10590

Icon = "Form1.frx":0000

LinkTopic = "Form1"

ScaleHeight = 9330

ScaleWidth = 10590

StartUpPosition = 2 '屏幕中62616964757a686964616fe4b893e5b19e31333262356135心

Begin VB.CommandButton Command2

Caption = "曲线拟合"

Height = 615

Left = 720

TabIndex = 12

Top = 8280

Width = 2175

End

Begin VB.TextBox Text1

Height = 975

Left = 4200

MultiLine = -1 'True

ScrollBars = 3 'Both

TabIndex = 11

Top = 8160

Width = 6015

End

Begin VB.CommandButton Command1

Caption = "打开点文件"

Height = 495

Left = 1080

TabIndex = 9

Top = 840

Width = 1695

End

Begin VB.PictureBox Picture1

AutoRedraw = -1 'True

Height = 6000

Left = 4200

ScaleHeight = 5940

ScaleWidth = 5940

TabIndex = 7

Top = 360

Width = 6000

End

Begin VB.ComboBox Combo1

Height = 300

ItemData = "Form1.frx":030A

Left = 2040

List = "Form1.frx":032F

TabIndex = 6

Text = "6"

Top = 7320

Width = 615

End

Begin VB.Frame Frame1

Caption = "插值计算"

Height = 1215

Left = 5040

TabIndex = 0

Top = 6600

Width = 4335

Begin VB.TextBox Text2

BeginProperty Font

Name = "宋体"

Size = 10.5

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough =