vb語(yǔ)言程序設(shè)計(jì)-vb第8章電子講稿-文庫(kù)吧資料
2025-05-31 15:28本頁(yè)面
【正文】 Close 1 End Sub 3. Input 格式： Input(字符數(shù)， 文件號(hào) ) 示例： A$ =Input(20, 1) 順序文件的缺點(diǎn)是不能快速地存取所需的數(shù)據(jù)，也不容易進(jìn)行數(shù)據(jù)的插入、刪除和修改等工作，因此對(duì)于經(jīng)常要修改數(shù)據(jù)或取出文件中個(gè)別數(shù)據(jù)，均不適合使用，但對(duì)于數(shù)據(jù)變化不大，每次使用時(shí)又需要從頭往后順序地進(jìn)行讀寫(xiě)，它還是不失為一種好的文件結(jié)構(gòu) 隨機(jī)文件中每一個(gè)記錄定長(zhǎng)，并設(shè)置記錄號(hào)，記錄號(hào)從1開(kāi)始。寫(xiě)入第 2個(gè)記錄 Close 1 Open For Input As 1 Line Input 1, x$ 39。寫(xiě)入第 1個(gè)記錄 Print 1, a。文件未結(jié)束時(shí)，循環(huán) Input 1, x Print x, k = k + 1 If k Mod 4 = 0 Then Print 39。每行顯示 4個(gè)數(shù)。存入 Close 1 Open For Input As 1 Input 1, c, d$ 39。 打開(kāi)文件時(shí)，文件指針指向文件中的第 1個(gè)記錄，以后每讀取一個(gè)記錄，指針就向前推進(jìn)一次。通常， Input用來(lái)讀出 Write寫(xiě)入的記錄內(nèi)容，而 Line Input用來(lái)讀出 Print寫(xiě)入的記錄內(nèi)容 1. Input語(yǔ)句 一般格式： Input 文件號(hào)，變量名表 功能：從指定文件中讀出一個(gè)記錄。其輸出數(shù)據(jù)格式與 Print方法在窗體上輸出格式相似。字段之間通過(guò)逗號(hào)隔開(kāi) 2. Print語(yǔ)句 格式： Print 文件號(hào) [，表達(dá)式表 ] 作用與 Write一樣。存完 1個(gè)記錄后清空 = = 39。給字符串加上雙引號(hào) 在最后一個(gè)字符寫(xiě)入后，插入一個(gè)回車(chē)換行符 (Chr(13) + Chr(10)) 示例： Write 1, Good Afternoon, 1998 順序文件 把 1～ 50的 50個(gè)整數(shù)，以及這些數(shù)中能被 7整除的數(shù)分別存入兩個(gè)文件中，文件名為 num1和 num2，文件存放在 VB缺省文件夾下 Private Sub Form_Load() Open For Output As 1 Open For Output As 2 For i = 1 To 50 Write 1, i If i Mod 7 = 0 Then Write 2, i Next i Close 1, 2 Unload Me End Sub 說(shuō)明： 50個(gè)記錄，而 中能被 7整除的若干個(gè)記錄 例 把 1～ 50各數(shù)及能被 7整除的數(shù)分別存入兩個(gè)文件中 在例 ，存放了若干個(gè)能被 7整除的數(shù)，現(xiàn)要求再加入 51～ 200范圍內(nèi)能被 7整除的數(shù) 程序代碼如下 ： Private Sub Form_Load() Open For Append As 1 For i = 51 To 200 If i Mod 7 = 0 Then Write 1, i Next i Close 1 Unload Me End Sub 例 在 51～ 200范圍內(nèi)能 被 7整除的數(shù) 輸入某小組 5名學(xué)生的成績(jī) (表 )，存放在“我的文檔” (C:\My Documents)文件夾下的新建順序文件 設(shè)計(jì)步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 例 建立學(xué)生成績(jī)順序文件 (2) 設(shè)置事件過(guò)程 Form_Load()： Command1_Click()： 接收錄入信息，并以一個(gè)記錄存入文件中 Command2_Click()： 關(guān)閉文件和結(jié)束程序運(yùn)行 Private Sub Form_Load() Open “C:\my documents\“ For Output As 1 End Sub Private Sub Command1_Click() Dim num As String * 6, name As String * 8, score As Integer num = name =
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1