?? 多項(xiàng)式逐步回歸f1.frm
字號(hào):
VERSION 5.00
Begin VB.Form frmFileName
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "多項(xiàng)式逐步回歸"
ClientHeight = 3975
ClientLeft = 60
ClientTop = 345
ClientWidth = 5670
LinkTopic = "Form1"
ScaleHeight = 3975
ScaleWidth = 5670
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox txtFile
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Left = 120
TabIndex = 9
Top = 3000
Width = 5415
End
Begin VB.CommandButton cmdExit
Caption = "結(jié)束"
Height = 375
Left = 4920
TabIndex = 7
ToolTipText = "結(jié)束程序運(yùn)行"
Top = 3480
Width = 615
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Height = 375
Left = 4080
TabIndex = 6
ToolTipText = "選擇好文件并給出行數(shù)和列數(shù)后單擊"
Top = 3480
Width = 615
End
Begin VB.FileListBox File1
Appearance = 0 'Flat
Height = 1470
Left = 120
TabIndex = 2
Top = 1080
Width = 2655
End
Begin VB.DirListBox Dir1
Appearance = 0 'Flat
Height = 2190
Left = 3000
TabIndex = 1
Top = 360
Width = 2415
End
Begin VB.DriveListBox Drive1
Appearance = 0 'Flat
Height = 300
Left = 120
TabIndex = 0
Top = 360
Width = 2655
End
Begin VB.Label Label5
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "數(shù)據(jù)文件全名"
ForeColor = &H80000008&
Height = 255
Left = 1320
TabIndex = 8
Top = 2760
Width = 3015
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "選擇數(shù)據(jù)文件"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 5
Top = 840
Width = 2535
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "選擇目錄"
ForeColor = &H80000008&
Height = 255
Left = 3000
TabIndex = 4
Top = 120
Width = 2415
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "選擇驅(qū)動(dòng)器"
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 3
Top = 120
Width = 2655
End
End
Attribute VB_Name = "frmFileName"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'多項(xiàng)式逐步回歸文件窗體
Option Explicit
Dim intI As Integer, intJ As Integer
Dim intFileNumber As Integer '文件號(hào)
Dim strData As String '臨時(shí)保存數(shù)據(jù)
Dim blnTitle As Boolean '是否有標(biāo)題
Dim blnRowLabel As Boolean '是否有行標(biāo)
Dim blnColLabel As Boolean '是否有列標(biāo)
Private Sub Form_Load()
File1.Pattern = "*.dat" '只顯示數(shù)據(jù)文件
Me.Width = 5760
End Sub
'選擇目錄
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
'選擇驅(qū)動(dòng)器
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
'確定數(shù)據(jù)文件
Private Sub File1_Click()
txtFile.Text = Dir1.Path & "\" & File1.FileName
End Sub
'確定，給出文件名和行數(shù)、列數(shù)后單擊
Private Sub cmdOK_Click()
strFileName = txtFile.Text '文件名
intFileNumber = FreeFile '取得空閑的文件號(hào)碼
Open strFileName For Input As intFileNumber
Input #intFileNumber, strData '讀列數(shù)
intCol = Val(strData) '取得列數(shù)
If intCol >= 2 Then
For intI = 2 To intCol '空轉(zhuǎn)，讀*****
Input #intFileNumber, strData
Next intI
End If
Input #intFileNumber, strData '讀行數(shù)
intRow = Val(strData) '取得行數(shù)
If intRow <> 2 Then
MsgBox "行數(shù)不等于2，請(qǐng)檢查數(shù)據(jù)！"
End
End If
If intCol >= 2 Then
For intI = 2 To intCol '空轉(zhuǎn)，讀*****
Input #intFileNumber, strData
Next intI
End If
'重新定義變量數(shù)組
ReDim XY(1 To intRow, 1 To intCol) 'intRow = 2, intCol為數(shù)據(jù)點(diǎn)數(shù)
Input #intFileNumber, strData '讀總行數(shù)
intRowAll = Val(strData) '取得總行數(shù)
If intCol >= 2 Then
For intI = 2 To intCol '空轉(zhuǎn)，讀*****
Input #intFileNumber, strData
Next intI
End If
blnTitle = False: blnRowLabel = False: blnColLabel = False
'優(yōu)先考慮標(biāo)題
If intRowAll > intRow + 3 Then blnTitle = True '有標(biāo)題
'其次考慮行標(biāo)
If intRowAll > 2 * intRow + 3 Then
blnRowLabel = True '有行標(biāo)
ReDim strRowLabel(1 To intRow) '重新定義行標(biāo)數(shù)組
End If
'最后考慮列標(biāo)
If intRowAll > 2 * intRow + 4 Then
blnColLabel = True '有列標(biāo)
ReDim strColLabel(1 To intCol) '重新定義列標(biāo)數(shù)組
End If
If blnTitle Then
Input #intFileNumber, strData '讀標(biāo)題
strLabelName = strData '保存標(biāo)題
If intCol >= 2 Then
For intI = 2 To intCol '空轉(zhuǎn)，讀*****號(hào)
Input #intFileNumber, strData
Next intI
End If
End If
If blnRowLabel Then
For intI = 1 To intRow
Input #intFileNumber, strData '讀行標(biāo)題
If intCol >= 2 Then
For intJ = 2 To intCol '空轉(zhuǎn)，讀*****號(hào)
Input #intFileNumber, strData
Next intJ
End If
Next intI
End If
If blnColLabel Then
For intI = 1 To intCol '讀列標(biāo)題
Input #intFileNumber, strData
Next intI
End If
For intI = 1 To intRow
For intJ = 1 To intCol
Input #intFileNumber, strData '讀數(shù)據(jù)
XY(intI, intJ) = Val(strData)
Next intJ
Next intI
Close
frmCalculate.Visible = True
End Sub
'結(jié)束運(yùn)行
Private Sub cmdExit_Click()
Unload Me
End
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -