三、綜合應用題

　　【知識點播】LOF 函數可返回一個用 Open 語句打開的文件的大小，該大小以字節為單位，返回值為 Long 數據類型。

　　【審題分析】本題源程序設計思路：在"文件寫入"命令按鈕的單擊事件過程中，先用 Open 語句打開考生文件夾下的隨機文件 dw1.dat，并通過計算得到隨機文件現有記錄數，存入變 RecNum;然后在 Do 循環中，為自定義數據類型變 Pers 的各元素賦值， 用 Put 語句將該變 的值寫入打開的隨機文件中(記錄號為 RecNum+1)，并通過輸入對 話框詢問是否要再輸入新記錄，Do 循環以輸入對話框中返回值為"Y"(或"y")作為循環條件。

　　在 "文件讀出"命令按鈕的單擊事件過程中，先用 Open 語句打開考生文件夾下的隨機 文件 dw1.dat，并通過計算得到隨機文件現有記錄數，存入變 RecNum;然后利用 For 循環語句(初值為 1，終值為 RecNum 的值)，用 Get 語句讀入隨機文件中相應記錄號的記錄，賦值給變 Pers，并將變 Pers 各元素的值用 Print 方法顯示在窗體上。

　　【操作步驟】

　　步驟 1：打開考生文件中的本題工程文件 vbsj5.vbp，在代碼編輯窗口，去掉程序中的注釋符"’"，將問號"?"改為正確的內容。

　　步驟 2：按要求將文件保存至考生文件夾中。

　　編輯推薦：

　　2014年上半年計算機等級考試報名時間及入口專題

　　各地2014年計算機等級考試費用匯總

　　2014年計算機等級考試時間