2012年計(jì)算機(jī)二級(jí)VB上機(jī)試題及解題思路第七套

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　在考生的文件夾下有一個(gè)工程文件sjt5.vbp，相應(yīng)的窗體文件為sjt5.frm。

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

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

　　LiuMingliang (010)62781234 100082

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

　　各字段的類型和長度為：

　　姓名(Name)： 字符串 15

　　電話(Tel)： 字符串 15

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

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

　　要求：

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

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

　　LiDaqing (027)87348765 430065

　　ChenQingshan (022)26874321 300120

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

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

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為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

　　請(qǐng)把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt5.vbp文件并運(yùn)行。

　　相關(guān)推薦：

　　2012年計(jì)算機(jī)等考四級(jí)數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計(jì)算機(jī)等級(jí)考試二級(jí)VB重點(diǎn)知識(shí)匯總

　　2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總