【正文】 * 8, score As Integer num = name = score = Val() Write 1, num, name, score 39。文件未結(jié)束時(shí)，循環(huán) Input 1, x Print x, k = k + 1 If k Mod 4 = 0 Then Print 39。記錄號(hào) Put 1, reo, sal 39。 當(dāng)通過(guò) Dim定義一個(gè)變量 (如 nv)為一個(gè)記錄類(lèi)型 Numval時(shí)，該變量也就包含該類(lèi)型的多個(gè)數(shù)據(jù)項(xiàng)，以后可通過(guò) 、 (2) 指定 Random類(lèi)型打開(kāi)文件，記錄定長(zhǎng)，打開(kāi)文件后，就可以存或取任一個(gè)記錄 (3)分別通過(guò) Get和 Put語(yǔ)句，并指定記錄號(hào)進(jìn)行讀一個(gè)記錄或存一個(gè)記錄 一定要建立好記錄與記錄號(hào)之間的關(guān)系 1. 讀語(yǔ)句 格式： Get 文件號(hào)［，記錄號(hào)］，變量 功能：從一個(gè)隨機(jī)文件中讀出指定記錄到一個(gè)變量 2. 格式： Put 默認(rèn)情況下，記錄號(hào)編號(hào)為上一次使用的記錄號(hào)加 1 存取操作 建立一個(gè)有 5名職工工資信息的隨機(jī)文件，其中包括職工的職工號(hào) (從 001開(kāi)始 )、姓名及工資三種數(shù)據(jù)。每行顯示 4個(gè)數(shù)。如果是，函數(shù)值為真值，否則為假值。存入記錄 = 39。每顯示 4個(gè)數(shù)后換行 Loop Close 1 End Sub 例 從文件 “ ”中讀取數(shù)據(jù) 從文件 (見(jiàn)例 )中讀出 5個(gè)學(xué)生的資料，顯示在列表框中，并求出平均分 (1) 創(chuàng)建應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 例 從文件 5個(gè)學(xué)生的資料 (2)編寫(xiě)程序代碼 功能要求： 單擊“查詢(xún)”按鈕時(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。存入記錄 Next i Close 1 End End Sub (1)創(chuàng)建應(yīng)用程序的用戶(hù)界面 (2)設(shè)置對(duì)象屬性 例 對(duì)職工工資信息進(jìn)行查詢(xún)、增、改、除等操作 來(lái)自 中國(guó)最大的資料庫(kù)下載 (3)編寫(xiě)程序代碼 ① 在標(biāo)準(zhǔn)模塊 Module1中定義記錄類(lèi)型和建立一個(gè)通用過(guò)程 Type salary name As String * 8 salary As Long End Type Public sal As salary, reo As Integer 39。 號(hào)記錄 :, , , Next i Close 1 End Sub 運(yùn)行結(jié)果： 第 2號(hào)記錄 4 8 第 6號(hào)記錄 36 216 第 10號(hào)記錄 100 1000 進(jìn)行隨機(jī)文件存取操作，大致包括以下一些內(nèi)容： (1) 在打開(kāi)文件進(jìn)行隨機(jī)訪(fǎng)問(wèn)之前，使用 Type…End Type 語(yǔ)句定義一個(gè) 記錄類(lèi)型 (如 Numval)，該類(lèi)型包括多個(gè)數(shù)據(jù)項(xiàng)，并與文件中記錄應(yīng)包括的域一致。讀出