直线拟合原代码.docVIP

Form1 Private Sub Command1_Click() 显示第二个窗体 Form1.Hide Form2.Show Form3.Hide zxnh = MsgBox(你必须完全输入所选的项目! Chr(10) Chr(13) _ 否则程序将会出错!, 48, 直线拟合) End Sub Private Sub Command2_Click() 结束程序 End End Sub 使第二个窗体的文本框按照第一个窗体给出的数据组数显示 Private Sub Option1_Click() Form2.Label6.Enabled = False Form2.Label7.Enabled = False Form2.Label8.Enabled = False Form2.Label9.Enabled = False Form2.Label10.Enabled = False For n = 6 To 10 Form2.Text1(n).Enabled = False Form2.Text1(n).BackColor = H8000000F Form2.Text2(n).Enabled = False Form2.Text2(n).BackColor = H8000000F Next End Sub Private Sub