【正文】 ut 1, lastrec + 1, da Close 1 Call Form_Load Text1(0).SetFocus End Sub 第 11章 文件、驅(qū)動器和文件夾 編寫 “ 刪除 ” 命令按鈕 Command3的 Click事件代碼： Private Sub Command3_Click() Dim lastrec As Integer reum = + 1 Open For Random As 1 Len = Len(da) 39。 打開臨時隨機文件 Open For Random As 2 Len = Len(da) 39。 打開隨機數(shù)據(jù)文件 lastrec = LOF(2) / Len(da) For n = 1 To lastrec 第 11章 文件、驅(qū)動器和文件夾 If n reum Then Get 2, n, da Put 1, , da Else Get 2, n, da With da Text1(0).Text = .xh Text1(1).Text = .xm Text1(2).Text = .xb Text1(3).Text = .sx Text1(4).Text = .yw 第 11章 文件、驅(qū)動器和文件夾 Text1(5).Text = .wy End With End If Next Close 1 Close 2 Kill Name As Call Form_Load Text1(0).SetFocus End Sub 第 11章 文件、驅(qū)動器和文件夾 編寫 “ 結(jié)束 ” 命令按鈕 Command4的 Click事件代碼： Private Sub Command4_Click() Unload Me End Sub 編寫列表框 List1的 Click事件代碼： Private Sub List1_Click() If 1 Then = True Else 第 11章 文件、驅(qū)動器和文件夾 = False End If End Sub 程序運行結(jié)果如圖 。 第 11章 文件、驅(qū)動器和文件夾 圖 學生成績管理運行結(jié)果 第 11章 文件、驅(qū)動器和文件夾 訪問二進制文件 1. 創(chuàng)建和打開二進制文件 打開和創(chuàng)建一個二進制文件都是用同一個 Open語句來實現(xiàn)的 ， 其格式如下： Open〈 文件名 〉 For Binary As〈 文件號 〉 第 11章 文件、驅(qū)動器和文件夾 2. 讀寫二進制文件 讀文件操作是從已打開的文件的某個位置開始 ，讀取一定長度的數(shù)據(jù) 。 寫文件操作是在已打開的二進制文件的指定位置寫入字節(jié) 。 一個二進制文件被打開后 ， 可以用 Get語句來讀取數(shù)據(jù) ， 用 Put 語句在任何位置寫入字節(jié) 。 其格式為 Get 〈 文件號 〉 ,〈 字節(jié)數(shù) 〉 ,〈 變量名 〉 Put 〈 文件號 〉 ,〈 字節(jié)數(shù) 〉 ,〈 變量名 〉 第 11章 文件、驅(qū)動器和文件夾 3. 關(guān)閉二進制文件 為防止數(shù)據(jù)信息丟失 ， 在使用完二進制文件后要立刻關(guān)閉它們 。 關(guān)閉二進制文件用 Close語句 ， 格式如下： Close 〈 文件號 〉 〈 文件號 〉 是要關(guān)閉文件的文件號 ， 如果省略它 ，則所有已打開的文件都將被關(guān)閉 。 第 11章 文件、驅(qū)動器和文件夾 【 例 118】 編寫程序，建立一個二進制文件，然后用 Seek函數(shù)返回各項數(shù)據(jù)的位置。 設(shè)計步驟如下： (1) 在窗體上建立 3個命令按鈕，其標題 Caption屬性分別為 “ 建立文件 ” 、 “ 返回位置 ” 和 “ 退出 ” 。 (2) 編寫事件代碼。 “ 建立文件 ” 命令按鈕Command1的 Click事件代碼為 第 11章 文件、驅(qū)動器和文件夾 Private Sub Command1_Click() Dim stuname As String * 10 FileName = InputBox(輸入文件名： , 二進制文件使用示例 ) Open FileName For Binary As 1 Do stuname = InputBox(請輸入學生的姓名： , 二進制文件使用示例 ) Put 1, , stuname resp$ = InputBox(繼續(xù)輸入嗎 ？ (Y/N), 二進制文件使用示例 ) Loop While UCase$(resp) = Y Close 1 第 11章 文件、驅(qū)動器和文件夾 End Sub “返回位置 ” 命令按鈕 Command2的 Click事件代碼為 Private Sub Command2_Click() Dim stuname As String * 10 FileName = InputBox(輸入文件名： , 二進制文件使用示例 ) Open FileName For Binary As 1 flen = LOF(1) For i = 1 To flen Step 10 Get 1, , stuname x = Seek(1) 第 11章 文件、驅(qū)動器和文件夾 Print stuname, x Next i Close 1 End Sub “退出 ” 命令按鈕 Command3的 Click事件代碼為 Private Sub Command3_Click() Unload Me End Sub 第 11章 文件、驅(qū)動器和文件夾 圖 二進制文件示例 第 11章 文件、驅(qū)動器和文件夾 習 題 十 一 在順序文件中 ， 使用 Output方式打開一個已存在的順序文件時 ， 將會發(fā)生什么情況 ？ 在順序文件中 ， 使用 Append方式寫文件時 ，將會發(fā)生什么情況 ？ 順序文件和隨機文件在讀寫過程中有何區(qū)別 ？ 使用文件系統(tǒng)控件制作一個簡易的文本瀏覽器 。 第 11章 文件、驅(qū)動器和文件夾 通過鍵盤輸入數(shù)據(jù)，將包括學號、姓名、性別、數(shù)學、英語、電子等學生成績數(shù)據(jù)輸入到一個順序文件中 ()。 創(chuàng)建簡單的文本編輯器。在窗體上創(chuàng)建 4個命令按鈕 (“新建 ” 、 “ 打開 ” 、 “ 保存 ” 、 “ 退出 ” )、一個公共對話框和一個文本框。在文本框中顯示 “ 新建 ” 或 “ 打開 ” 的文本內(nèi)容。 第 11章 文件、驅(qū)動器和文件夾 創(chuàng)建簡單的文本編輯器 ， 其功能要求如下： (1) 可以通過 “ 文件系統(tǒng)控件 ” 選擇文件的路徑 ，也可以輸入文件的路徑 。 (2) 可以讀取所選擇的文件 ， 也可以將文本框中編輯的文件保存到磁盤上 。 在題 ， 使得當目錄不存在時可以創(chuàng)建一個新的目錄 。 通過鍵盤輸入數(shù)據(jù) ， 將包括學號 、 姓名 、 性別 、 數(shù)學 、 英語 、 電子等學生成績數(shù)據(jù)輸入到一個隨機文件中 ()。 第 11章 文件、驅(qū)動器和文件夾 從 ， 將其中需要補考的學生數(shù)據(jù)存入一個新文件 ()中 。 從 ， 分別在列表框中顯示單科需要補考的學生名單 。 從 ， 將其中獲獎學金的學生數(shù)據(jù)存入一個新文件 ()中 。 評獎學金的條件是：每門課程成績均在 85分以上或 3門課程總分在 270分以上 。 從 ， 在列表框中顯示獲獎學金學生的各科成績 。 第 11章 文件、驅(qū)動器和文件夾 編寫應(yīng)用程序 ， 功能如下： (1) 建立一個隨機文件 ， 管理某單位的職工情況 。其中每個記錄由工作證號 、 姓名 、 性別 、 工資 、 工作日期組成 ， 可以向此文件添加新記錄 。 (2) 可以修改 、 刪除記錄 。 (3) 可以按記錄瀏覽所有職工的情況 。 (4) 可以按姓名查找 ， 并顯示找到的記錄 。 (5) 可以按工作證號查找 ， 并顯示找到的記錄 。