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