vb語言程序設(shè)計(jì)-vb第8章電子講稿-文庫吧
2025-04-26 15:28 本頁面
【正文】 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 說明： 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é)生的成績 (表 )，存放在“我的文檔” (C:\My Documents)文件夾下的新建順序文件 設(shè)計(jì)步驟如下： (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 例 建立學(xué)生成績順序文件 (2) 設(shè)置事件過程 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 = score = Val() Write 1, num, name, score 39。存入記錄 = 39。存完 1個(gè)記錄后清空 = = 39。設(shè)置焦點(diǎn) End Sub Private Sub Command2_Click() Close 1 End End Sub 程序運(yùn)行完成后，用 Windows記事本來打開該順序文件，即可看到存入的文件內(nèi)容 說明： 在顯示的文件內(nèi)容中，字符串 (學(xué)號(hào)、姓名 )兩邊的引號(hào)是系統(tǒng)自動(dòng)加入的。字段之間通過逗號(hào)隔開 2. Print語句 格式： Print 文件號(hào) [，表達(dá)式表 ] 作用與 Write一樣。將一個(gè)或多個(gè)表達(dá)式的值寫到與文件號(hào)相關(guān)的順序文件中。其輸出數(shù)據(jù)格式與 Print方法在窗體上輸出格式相似。 示例： Print 1,num,name,score ?對(duì)應(yīng)按區(qū)格式 Print 1,num； name； score ?對(duì)應(yīng)緊湊格式 先用 Input方式打開文件，然后采用 Input或 Line Input語句從文件中讀出數(shù)據(jù)。通常， Input用來讀出 Write寫入的記錄內(nèi)容，而 Line Input用來讀出 Print寫入的記錄內(nèi)容 1. Input語句 一般格式： Input 文件號(hào)，變量名表 功能：從指定文件中讀出一個(gè)記錄。變量個(gè)數(shù)和類型應(yīng)該與要讀取的記錄所存儲(chǔ)的數(shù)據(jù)一致。 打開文件時(shí)，文件指針指向文件中的第 1個(gè)記錄，以后每讀取一個(gè)記錄，指針就向前推進(jìn)一次。如果要重新從文件的開頭讀數(shù)據(jù)，則先關(guān)閉文件后打開 順序文件的讀出操作 程序代碼如下： Private Sub Form_Load() Show Open For Output As 1 a = 123 : b$ = “ABCD Write 1, a, b$ 39。存入 Close 1 Open For Input As 1 Input 1, c, d$
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1