VERSION 5.00
Begin VB.Form frmFileName 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "多元線性回歸"
   ClientHeight    =   4065
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5670
   LinkTopic       =   "Form1"
   ScaleHeight     =   4065
   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     =   "結(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
'多元線性回歸文件窗體
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 intCol >= 2 Then
        For intI = 2 To intCol          '空轉(zhuǎn)，讀*****
            Input #intFileNumber, strData
        Next intI
    End If
    n = intRow: m = intCol - 1
'重新定義自變量數(shù)組
    ReDim x(1 To n, 1 To m)
'重新定義因變量數(shù)組
    ReDim y(1 To n)
'保存回歸系數(shù)數(shù)組和工作單元
    ReDim b(0 To m), a(1 To m, 1 To m)
'重新定義t檢驗(yàn)值數(shù)組
    ReDim t(1 To m)
    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ù)
            If intJ = intCol Then y(intI) = Val(strData) _
                Else x(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