📄 二元多项式逐步回归f2.frm
字号:
Top = 3120
Width = 1335
End
Begin VB.Label lblN
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "常数项"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 1680
TabIndex = 15
Top = 3120
Width = 1455
End
Begin VB.Label lblNum
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "序号"
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 960
TabIndex = 14
Top = 3120
Width = 735
End
Begin VB.Label lblCoe
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "最终回归方程系数及t检验"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 960
TabIndex = 13
Top = 2520
Width = 7815
End
Begin VB.Label lblRR
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 1200
TabIndex = 12
Top = 2040
Width = 5415
End
Begin VB.Label lblFR
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "最终回归方程F检验结论"
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 495
Left = 240
TabIndex = 11
Top = 1560
Width = 7455
End
Begin VB.Label lbl001F
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 6360
TabIndex = 10
Top = 1080
Width = 1455
End
Begin VB.Label lbl005F
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 6360
TabIndex = 9
Top = 720
Width = 1455
End
Begin VB.Label lblCV
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 6360
TabIndex = 8
Top = 360
Width = 1455
End
Begin VB.Label lblf001
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "显著性水平为0.01的F临界值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 3000
TabIndex = 7
Top = 1080
Width = 3375
End
Begin VB.Label lblf005
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "显著性水平为0.05的F临界值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 3000
TabIndex = 6
Top = 720
Width = 3375
End
Begin VB.Label lblFC
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "最终回归方程F检验值："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 3720
TabIndex = 5
Top = 360
Width = 2655
End
End
Attribute VB_Name = "frmCalculate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'二元多项式逐步回归
Option Explicit
Dim intFileNumber As Integer, vntA As Variant
Dim intI As Integer, intJ As Integer, I As Integer, J As Integer
Dim NT As Integer, intE As Integer, intF As Integer
Dim UA As Integer, Ue As Integer
Dim sngZ As Single, sngH As Single, sngC As Single, sngF As Single
Dim sngF005 As Single, sngF001 As Single
Dim sngt005 As Single, sngt001 As Single, sngt As Single
Dim ZZ As Double, F As Double, F005 As Double, F001 As Double
Dim t005 As Double, t001 As Double
Dim Za As Double, Zyy As Double, U As Double, Q As Double
Dim w As Double, XX As Double, YY As Double
Dim EE As Double, FF As Double
Dim F1 As Double, F2 As Double
'保存文件过程
Private Sub FileSave(strName As String)
Dim intNumber As Integer
Dim vntA As Variant
intNumber = FreeFile '取得空闲的文件号
Open strName For Output As intNumber '打开文件
'保存数据
For intI = 1 To intRowAll
For intJ = 1 To intCol
Write #intNumber, txtData((intI - 1) * intCol + intJ);
Next intJ
Next intI
'保存上部标签
For intI = 1 To intCol
Write #intNumber, lblCol(intI).Caption;
Next intI
'保存左边标签
For intI = 1 To intRowAll
Write #intNumber, lblRow(intI).Caption;
Next intI
Close '关闭文件
End Sub
'求趋势面各项的形式
'I0为项的次数
'E为X的次数
'F为Y的次数
Private Sub Term(I0, E, F)
Dim a As Integer, C As Integer
a = 0
SS1:
If ((a + 1) * (a + 2)) / 2 >= I0 Then GoTo SS2:
a = a + 1: GoTo SS1
SS2:
C = (a + 1) * (a + 2) / 2 - I0
E = C: F = a - C
End Sub
Private Sub Form_Load()
intFileNumber = FreeFile '取得文件号码
Open strFileName For Input As intFileNumber '打开文件
'形成文本框数组，但不在窗体上显示
For intI = 1 To intRowAll
For intJ = 1 To intCol
Input #intFileNumber, vntA
Load txtData((intI - 1) * intCol + intJ)
txtData((intI - 1) * intCol + intJ).Text = vntA
Next intJ
Next intI
'形成上部标签，但不在窗体上显示
For intI = 1 To intCol
Input #intFileNumber, vntA
Load lblCol(intI)
lblCol(intI).Caption = vntA
Next intI
'形成左边标签，但不在窗体上显示
For intI = 1 To intRowAll
Input #intFileNumber, vntA
Load lblRow(intI)
lblRow(intI).Caption = vntA
Next intI
Close
lblF.Visible = True: lblNum(0).Visible = False
lblN(0).Visible = False: lblC(0).Visible = False
lbltV(0).Visible = False: lbltR(0).Visible = False
lblFC.Visible = False: lblCV.Visible = False
lblf005.Visible = False: lbl005F.Visible = False
lblf001.Visible = False: lbl001F.Visible = False
lblFR.Visible = False: lblRR.Visible = False
lblCC.Visible = False: lblCR.Visible = False
lblCoe.Visible = False: lblTT.Visible = False
lblt005.Visible = False: lblt001.Visible = False
Line1.Visible = False
If Key = 3 Then cmdSaveR.Visible = False
End Sub
'计算
Private Sub cmdCalculate_Click()
Dim EE As Double, FF As Double, FFF As Double
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -