📄 一元线性f2.frm
字号:
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 10
Top = 4200
Width = 3615
End
Begin VB.Label lblDA
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 = 240
TabIndex = 9
Top = 3720
Width = 5055
End
Begin VB.Label Label4
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 = 0
TabIndex = 8
Top = 3120
Width = 5295
End
Begin VB.Label lbl001A
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 = 3840
TabIndex = 7
Top = 2640
Width = 1455
End
Begin VB.Label lbl005A
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 = 3840
TabIndex = 6
Top = 2160
Width = 1455
End
Begin VB.Label lblFA
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 = 3840
TabIndex = 5
Top = 1680
Width = 1455
End
Begin VB.Label Label3
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 = 120
TabIndex = 4
Top = 2640
Width = 3735
End
Begin VB.Label Label2
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 = 120
TabIndex = 3
Top = 2160
Width = 3735
End
Begin VB.Label Label1
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 = 120
TabIndex = 2
Top = 1680
Width = 3735
End
End
Attribute VB_Name = "frmCalculate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'一元线性回归
Option Explicit
Private Sub Form_Load()
'使窗体上的一些控件不可视
cmdContinue.Visible = False
Label1.Visible = False: Label2.Visible = False: Label3.Visible = False
Label4.Visible = False: Label5.Visible = False: Label6.Visible = False
Label7.Visible = False: Label8.Visible = False: Label9.Visible = False
lblF.Visible = False: lblFA.Visible = False: lblFB.Visible = False
lblDA.Visible = False: lblDB.Visible = False
lbl005A.Visible = False: lbl001A.Visible = False
lbl005B.Visible = False: lbl001B.Visible = False
End Sub
'计算
Private Sub cmdCheck_Click()
Dim F As Double, t As Double
Dim sngF As Single, sngt As Single
Dim F005A As Double, F001A As Double
Dim sngF005A As Single, sngF001A As Single
Dim F005B As Double, F001B As Double
Dim sngF005B As Single, sngF001B As Single
Dim M1 As Integer, M2 As Integer
Dim m As Integer, p As Integer, n As Integer
Dim UA As Integer, UB As Integer, Ue As Integer
'使窗体上的一些控件可视
Label1.Visible = True: Label2.Visible = True: Label3.Visible = True
Label4.Visible = True: Label5.Visible = True: Label6.Visible = True
Label7.Visible = True: Label8.Visible = True: Label9.Visible = True
lblF.Visible = True: lblFA.Visible = True: lblFB.Visible = True
lblDA.Visible = True: lblDB.Visible = True
lbl005A.Visible = True: lbl001A.Visible = True
lbl005B.Visible = True: lbl001B.Visible = True
Linear x, y, b0, b1, F, t '建立回归方程并求F值和t值
lblF.Caption = "Y = " & Str(b0) & " + " & Str(b1) & " * X"
sngF = F: sngt = t
lblFA.Caption = Str(sngF): lblFB.Caption = Str(sngt)
m = UBound(x, 1)
UA = 1: Ue = m - 2
PF_DIST UA, Ue, 0.05, F005A '计算显著性为0.05的F临界值
PF_DIST UA, Ue, 0.01, F001A '计算显著性为0.01的F临界值
sngF005A = F005A: sngF001A = F001A
lbl005A.Caption = Str(sngF005A): lbl001A.Caption = Str(sngF001A)
If F <= F005A Then lblDA = "回归方程线性关系不显著"
If F > F005A And F <= F001A Then lblDA = "回归方程线性关系显著"
If F > F001A Then lblDA = "回归方程线性关系特别显著"
PT_DIST Ue, 0.05 / 2, F005B '计算显著性为0.05的t临界值
PT_DIST Ue, 0.01 / 2, F001B '计算显著性为0.01的t临界值
sngF005B = F005B: sngF001B = F001B
lbl005B.Caption = Str(sngF005B): lbl001B.Caption = Str(sngF001B)
If t <= F005B Then lblDB = "回归系数不显著大于0"
If t > F005B And t <= F001B Then lblDB = "回归系数显著大于0"
If t > F001B Then lblDB = "回归系数特别显著大于0"
cmdCheck.Visible = False
cmdContinue.Visible = True
End Sub
'继续
Private Sub cmdContinue_Click()
Unload Me
frmContinue.Visible = True
End Sub
'退出
Private Sub cmdExit_Click()
Unload Me
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -