【文章內(nèi)容簡(jiǎn)介】
39。讀出 Close 1 Print c, d$ End Sub 123 ABCD 例 一個(gè)存取數(shù)據(jù)的示例 已知文件“ ”中存放一批能被 7整除的數(shù) (見(jiàn)例 及例 ),現(xiàn)要求把這些數(shù)顯示出來(lái)。每行顯示 4個(gè)數(shù)。 Private Sub Form_Load() Show k = 0 Open For Input As 1 Do While Not EOF(1) 39。文件未結(jié)束時(shí),循環(huán) Input 1, x Print x, k = k + 1 If k Mod 4 = 0 Then Print 39。每顯示 4個(gè)數(shù)后換行 Loop Close 1 End Sub 例 從文件 “ ”中讀取數(shù)據(jù) 從文件 (見(jiàn)例 )中讀出 5個(gè)學(xué)生的資料,顯示在列表框中,并求出平均分 (1) 創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象屬性 例 從文件 5個(gè)學(xué)生的資料 (2)編寫(xiě)程序代碼 功能要求: 單擊“查詢”按鈕時(shí),則打開(kāi)文件后讀取文件中所有記錄內(nèi)容,并顯示在列表框 List1中,計(jì)算得到的平均分顯示在文本框 Text1中 Private Sub Command1_Click() Dim n As String, m As String, s As Integer Dim x As String, t As Integer Open C:\my documents\ For Input As 1 t = 0 For i = 1 To 5 Input 1, n, m, s x = n + Space(2) + m + Str(s) x : t = t + s Next i Close 1 = t / 5 End Sub 2. Line Input語(yǔ)句 格式: Line Input 文件號(hào),字符型變量 功能:從打開(kāi)的順序文件中讀出一個(gè)記錄,即一行信息 例 Print語(yǔ)句和 Line Input語(yǔ)句配合使用的示例 Private Sub Form_Load() Show Open For Output As 1 a = 123 : b$ = ABCD Print 1, a, b$ 39。寫(xiě)入第 1個(gè)記錄 Print 1, a。 b$ 39。寫(xiě)入第 2個(gè)記錄 Close 1 Open For Input As 1 Line Input 1, x$ 39。讀出第 1個(gè)記錄 Print x$ Line Input 1, x$ 39。讀出第 2個(gè)記錄 Print x$ 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)始。 存取記錄時(shí),只要說(shuō)明所需記錄的編號(hào),系統(tǒng)就以此算出記錄所在位置,然后加以寫(xiě)入或讀出 初步認(rèn)識(shí) 例 建立一個(gè)隨機(jī)文件,文件中包含 10個(gè)記錄,每個(gè)記錄由一個(gè)數(shù) (1至 10)的平方、立方和開(kāi)方根三個(gè)數(shù)值組成, 隨機(jī)文件 (1) 通過(guò) Type...End Type語(yǔ)句定義記錄類型,程序代碼如下: Private Type Numval Squre As Integer Cube As Long Sqroot As Single End Type (2)利用某一過(guò)程 (本例采用事件過(guò)程 Form_Load)來(lái)完成該隨機(jī)文件的存取操作,程序代碼如下: Dim nv As numval 39。定義一個(gè) numval類型的變量nv