📄 趋势面分析f2.frm
字号:
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 3360
TabIndex = 15
Top = 120
Width = 1455
End
Begin VB.Label lblt001
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 6480
TabIndex = 14
Top = 1920
Width = 1215
End
Begin VB.Label lblt005
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 6480
TabIndex = 13
Top = 1680
Width = 1215
End
Begin VB.Label lbltR
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "t检验结论"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 7800
TabIndex = 12
Top = 1440
Width = 975
End
Begin VB.Label lbltV
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "t检验值"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 5160
TabIndex = 11
Top = 1440
Width = 1215
End
Begin VB.Label lblC
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 3360
TabIndex = 10
Top = 1440
Width = 1815
End
Begin VB.Label lblN
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "常数项"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 2160
TabIndex = 9
Top = 1440
Width = 1215
End
Begin VB.Label lblF
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "趋势面方程系数及t检验"
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 1920
TabIndex = 8
Top = 960
Width = 4935
End
Begin VB.Label lblNotice
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "趋势面次数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 1200
TabIndex = 7
Top = 360
Width = 1575
End
Begin VB.Label lblCol
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "lblCol"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 2520
TabIndex = 6
Top = 0
Visible = 0 'False
Width = 615
End
Begin VB.Label lblRow
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "lblRow"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Index = 0
Left = 1800
TabIndex = 5
Top = 0
Visible = 0 'False
Width = 735
End
End
Attribute VB_Name = "frmCalculate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'趋势面分析的计算窗体
Dim intI As Integer, intJ As Integer
Dim N0 As Integer, NT As Integer
Dim ZZ As Double, sngZ As Single
Dim sngH As Single, sngC As Single
Dim intE As Integer, intF As Integer
Dim F As Double, sngF As Single
Dim F005 As Double, F001 As Double
Dim sngF005 As Single, sngF001 As Single
Dim t005 As Double, t001 As Double
Dim sngt005 As Single, sngt001 As Single, sngt As Single
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 UA As Integer, Ue As Integer, I As Integer, J As Integer
'保存文件过程
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()
Dim vntA As Variant
cmdSaveR.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
lblt005.Visible = False: lblt001.Visible = False
lblTT.Visible = False: Line1.Visible = False
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -