??
字號:
Width = 5415
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 = 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 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 = 6360
TabIndex = 8
Top = 360
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 = 3000
TabIndex = 7
Top = 1080
Width = 3375
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 = 3000
TabIndex = 6
Top = 720
Width = 3375
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 = 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
Private Sub Form_Load()
Label1.Visible = False: Label2.Visible = False: Label3.Visible = False
Label4.Visible = False: Label9.Visible = False
lblFA.Visible = False: lbl005F.Visible = False: lbl001F.Visible = False
lblB(0).Visible = False: lblV(0).Visible = False: lblT(0).Visible = False
lbl005(0).Visible = False: lbl001(0).Visible = False: lblR(0).Visible = False
cmdContinue.Visible = False
End Sub
'計算
Private Sub cmdCalculate_Click()
Dim F As Double, F1 As Double, F2 As Double
Dim sngF As Single, sngH 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
Dim UA As Integer, Ue As Integer
Dim I As Integer, J As Integer
n = intCol '數據點數
If txtN.Text = "" Then
MsgBox "必須鍵入最高冪次！"
Exit Sub
End If
m = Val(txtN.Text) '最高冪次
ReDim b(0 To m) '保存回歸系數數組
ReDim t(1 To m) 't檢驗值數組
ReDim xMy(1 To n, 1 To m + 1)
For I = 1 To n
For J = 1 To m
xMy(I, J) = XY(1, I) ^ J '變換自變量為乘冪
Next J
xMy(I, m + 1) = XY(2, I) '保存因變量
Next I
If txtF1.Text = "" Or txtF2.Text = "" Then
MsgBox "必須給定引入F和剔出F！"
Exit Sub
End If
F1 = Val(txtF1.Text): F2 = Val(txtF2.Text)
If F1 < F2 Then
MsgBox "引入F不能小于剔出F！"
Exit Sub
End If
If F1 = 0 And F2 = 0 Then MsgBox "F1 = F2 = 0 引入全部變量。不作t檢驗"
Label1.Visible = True: Label2.Visible = True: Label3.Visible = True
Label4.Visible = True: Label9.Visible = True
lblFA.Visible = True: lbl005F.Visible = True: lbl001F.Visible = True
lblB(0).Visible = True: lblV(0).Visible = True: lblT(0).Visible = True
lbl005(0).Visible = True: lbl001(0).Visible = True: lblR(0).Visible = True
StrdM xMy, F1, F2, F, L, b, t '建立回歸方程并求F值和t值
sngF = F
lblFA.Caption = Str(sngF)
UA = L: Ue = n - L - 1
PF_DIST UA, Ue, 0.05, F005 '計算顯著性為0.05的F臨界值
PF_DIST UA, Ue, 0.01, F001 '計算顯著性為0.01的F臨界值
sngF005 = F005: sngF001 = F001
lbl005F.Caption = Str(sngF005): lbl001F.Caption = Str(sngF001)
If F <= F005 Then lblDA = "總的來看，自變量對因變量的影響不顯著"
If F > F005 And F <= F001 Then lblDA = "總的來看，自變量對因變量的影響顯著"
If F > F001 Then lblDA = "總的來看，自變量對因變量的影響特別顯著"
If m > 20 Then MsgBox "只顯示前20個自變量的情況"
PT_DIST Ue, 0.05 / 2, t005 '計算顯著性為0.05的t臨界值
PT_DIST Ue, 0.01 / 2, t001 '計算顯著性為0.01的t臨界值
sngt005 = t005: sngt001 = t001
lblB(0).Caption = "b" & " 0"
lblV(0).Caption = Str(b(0))
sngH = lblB(0).Height
'使用標簽顯示檢驗結果
For I = 1 To m
Load lblB(I): Load lblV(I): Load lblT(I)
Load lbl005(I): Load lbl001(I): Load lblR(I)
lblB(I).Move lblB(0).Left, lblB(0).Top + I * sngH
lblB(I).Caption = "b" & Str(I)
lblB(I).Visible = True
lblV(I).Move lblV(0).Left, lblV(0).Top + I * sngH
lblV(I).Caption = Str(b(I))
lblV(I).Visible = True
lblT(I).Move lblT(0).Left, lblT(0).Top + I * sngH
lblT(I).Caption = Str(t(I))
lblT(I).Visible = True
lbl005(I).Move lbl005(0).Left, lbl005(0).Top + I * sngH
lbl005(I).Visible = True
lbl001(I).Move lbl001(0).Left, lbl001(0).Top + I * sngH
lbl001(I).Visible = True
lblR(I).Move lblR(0).Left, lblR(0).Top + I * sngH
lblR(I).Visible = True
lbl005(I).Caption = sngt005
lbl001(I).Caption = sngt001
If t(I) <= t005 Then lblR(I) = "不顯著"
If t(I) > t005 And t(I) <= t001 Then lblR(I) = "顯著"
If t(I) > t001 Then lblR(I) = "特別顯著"
If F1 = 0 Or F2 = 0 Then
lblT(I).Caption = "*****": lblR(I).Caption = "*****"
lbl005(I).Caption = "*****": lbl001(I).Caption = "*****"
End If
Next I
cmdContinue.Visible = True
End Sub
'繼續
Private Sub cmdContinue_Click()
Unload Me
frmContinue.Visible = True
End Sub
'退出
Private Sub cmdExit_Click()
Unload Me
frmFileName.Visible = True
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -