vb語(yǔ)言程序設(shè)計(jì)-vb第8章電子講稿(文件)
【正文】 FSO采用面向?qū)ο蟮木幊谭椒ǎ峁┝艘徽讓?duì)文件系統(tǒng)進(jìn)行管理和操作的屬性、方法和事件 。設(shè)置焦點(diǎn) End Sub ④ 編寫(xiě)“增加”按鈕的 Click事件過(guò)程 Private Sub Command2_Click() If Cheno() Then Exit Sub = = Val() Put 1, reo, sal End Sub ⑤ 編寫(xiě)“清除”按鈕的 Click事件過(guò)程 Private Sub Command3_Click() If Cheno() Then Exit Sub If reo LOF(1) / Len(sal) Then MsgBox 無(wú)此記錄 Exit Sub End If = 39。記錄號(hào) Put 1, reo, sal 39。 i。定義一個(gè) numval類(lèi)型的變量nv 39。寫(xiě)入第 2個(gè)記錄 Close 1 Open For Input As 1 Line Input 1, x$ 39。文件未結(jié)束時(shí)，循環(huán) Input 1, x Print x, k = k + 1 If k Mod 4 = 0 Then Print 39。存入 Close 1 Open For Input As 1 Input 1, c, d$ 39。通常， Input用來(lái)讀出 Write寫(xiě)入的記錄內(nèi)容，而 Line Input用來(lái)讀出 Print寫(xiě)入的記錄內(nèi)容 1. Input語(yǔ)句 一般格式： Input 文件號(hào)，變量名表 功能：從指定文件中讀出一個(gè)記錄。字段之間通過(guò)逗號(hào)隔開(kāi) 2. Print語(yǔ)句 格式： Print 文件號(hào) [，表達(dá)式表 ] 作用與 Write一樣。給字符串加上雙引號(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)用程序的用戶(hù)界面和設(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 En
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1