VERSION 5.00
Begin VB.Form frmFileName 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "多項式逐步回歸"
   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         =   "結束"
      Height          =   375
      Left            =   4920
      TabIndex        =   7
      ToolTipText     =   "結束程序運行"
      Top             =   3480
      Width           =   615
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "確定"
      Height          =   375
      Left            =   4080
      TabIndex        =   6
      ToolTipText     =   "選擇好文件并給出行數和列數后單擊"
      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         =   "數據文件全名"
      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         =   "選擇數據文件"
      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         =   "選擇驅動器"
      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
'多項式逐步回歸文件窗體
Option Explicit
Dim intI As Integer, intJ As Integer
Dim intFileNumber As Integer            '文件號
Dim strData As String                   '臨時保存數據
Dim blnTitle As Boolean                 '是否有標題
Dim blnRowLabel As Boolean              '是否有行標
Dim blnColLabel As Boolean              '是否有列標

Private Sub Form_Load()
    File1.Pattern = "*.dat"             '只顯示數據文件
    Me.Width = 5760
End Sub

'選擇目錄
Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

'選擇驅動器
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

'確定數據文件
Private Sub File1_Click()
    txtFile.Text = Dir1.Path & "\" & File1.FileName
End Sub

'確定，給出文件名和行數、列數后單擊
Private Sub cmdOK_Click()
    strFileName = txtFile.Text          '文件名
    intFileNumber = FreeFile            '取得空閑的文件號碼
    Open strFileName For Input As intFileNumber
    Input #intFileNumber, strData       '讀列數
    intCol = Val(strData)               '取得列數
    If intCol >= 2 Then
        For intI = 2 To intCol          '空轉，讀*****
            Input #intFileNumber, strData
        Next intI
    End If
    Input #intFileNumber, strData       '讀行數
    intRow = Val(strData)               '取得行數
    If intRow <> 2 Then
        MsgBox "行數不等于2，請檢查數據！"
        End
    End If
    If intCol >= 2 Then
        For intI = 2 To intCol          '空轉，讀*****
            Input #intFileNumber, strData
        Next intI
    End If
'重新定義變量數組
    ReDim XY(1 To intRow, 1 To intCol)  'intRow = 2, intCol為數據點數
    Input #intFileNumber, strData       '讀總行數
    intRowAll = Val(strData)            '取得總行數
    If intCol >= 2 Then
        For intI = 2 To intCol          '空轉，讀*****
            Input #intFileNumber, strData
        Next intI
    End If
    blnTitle = False: blnRowLabel = False: blnColLabel = False
'優先考慮標題
    If intRowAll > intRow + 3 Then blnTitle = True      '有標題
'其次考慮行標
    If intRowAll > 2 * intRow + 3 Then
        blnRowLabel = True                              '有行標
        ReDim strRowLabel(1 To intRow)                  '重新定義行標數組
    End If
'最后考慮列標
    If intRowAll > 2 * intRow + 4 Then
        blnColLabel = True                              '有列標
        ReDim strColLabel(1 To intCol)                  '重新定義列標數組
    End If
    If blnTitle Then
        Input #intFileNumber, strData                   '讀標題
        strLabelName = strData                          '保存標題
        If intCol >= 2 Then
            For intI = 2 To intCol                      '空轉，讀*****號
                Input #intFileNumber, strData
            Next intI
        End If
    End If
    If blnRowLabel Then
        For intI = 1 To intRow
            Input #intFileNumber, strData               '讀行標題
            If intCol >= 2 Then
                For intJ = 2 To intCol                  '空轉，讀*****號
                    Input #intFileNumber, strData
                Next intJ
            End If
        Next intI
    End If
    If blnColLabel Then
        For intI = 1 To intCol                          '讀列標題
            Input #intFileNumber, strData
        Next intI
    End If
    For intI = 1 To intRow
        For intJ = 1 To intCol
            Input #intFileNumber, strData               '讀數據
            XY(intI, intJ) = Val(strData)
        Next intJ
    Next intI
    Close
    frmCalculate.Visible = True
End Sub

'結束運行
Private Sub cmdExit_Click()
    Unload Me
    End
End Sub