注意：下面出現的“考生文件夾”均為%USER%

　　在考生的文件夾下有一個工程文件sjt5.vbp，相應的窗體文件為sjt5.frm。

　　在窗體上有兩個命令按鈕，其名稱分別為Command1和Command2，標題分別為“寫文件”和“讀文件”，如圖1所示。 其中“寫文件”命令按鈕事件過程用來建立一個通信錄，以隨機存取方式保存到文件t5.txt中;而“讀文件”命令按鈕事件過程用來讀出文件t5.txt中的每個記錄，并在窗體上顯示出來。通信錄中的每個記錄由3個字段組成，結構如下：

　　姓名(Name) 電話(Tel) 郵政編碼(Pos)

　　LiuMingliang (010)62781234 100082

　　...... ...... ......

　　各字段的類型和長度為：

　　姓名(Name)： 字符串 15

　　電話(Tel)： 字符串 15

　　郵政編碼(Pos) 長整型(Long)

　　程序運行后，如果單擊“寫文件”命令按鈕，則可以隨機存取方式打開文件t5.txt，并根據提示向文件中添加記錄，每寫入一個記錄后，都要詢問是否再輸入新記錄，回答“Y”(或“y”)則輸入新記錄，回答“N”(或“n”)則停止輸入;如果單擊“讀文件”命令按鈕，則可以隨機存取方式打開文件t5.txt，讀出文件中的全部記錄，并在窗體上顯示出來， 如圖2所示。該程序不完整，請把它補充完整。

　　要求：

　　1)去掉程序中的注釋符，把程序中的 ?改為正確的內容，使其能正確運行，但不能修改程序中的其他部分。

　　2)文件t5.txt中已有3個記錄(如圖2所示)，請運行程序，單擊“寫文件”命令按鈕，向文件t5.txt中添加以下兩個記錄(全部采用西文方式)：

　　LiDaqing (027)87348765 430065

　　ChenQingshan (022)26874321 300120

　　3)運行程序，單擊“讀文件”命令按鈕，在窗體上顯示全部記錄(共5個)。

　　4)用原來的文件名保存工程文件和窗體文件。

　　解題思路：

　　啟動Visual Basic系統，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，在命令按鈕的Private Sub Command1_Click()事件過程中，有三處地方需要修改。

　　1) 將語句

　　'RecNum = ?

　　改為

　　RecNum = RecNum + 1

　　2) 將語句

　　'Put #1, ?

　　改為

　　Put #1, RecNum, Pers

　　3) 將語句

　　'Loop While UCase(asp) ?

　　改為

　　Loop While UCase(asp) <> "N"

　　由于所提供的窗體程序不完整，在命令按鈕的Private Sub Command2_Click()事件過程中，有二處地方需要修改。

　　1) 將語句

　　'RecNum = ?

　　改為

　　RecNum = LOF(1) / Len(Pers)

　　2) 將語句

　　'Get #1, ?

　　改為

　　Get #1, i, Pers

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt5.vbp、sjt5.frm、sjt5.frx、sjt5.vbw

　　請把這些文件復制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運行。

　　相關推薦：

　　2012年計算機等考四級數據庫工程師備考筆記匯總

　　2012年計算機等級考試二級VB重點知識匯總

　　2012年下半年計算機等級考試報名時間及入口匯總