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

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

　　在考生文件夾下有一個(gè)工程文件sjt5.vbp和隨機(jī)文件in5.txt，文件中的每個(gè)記錄包括3個(gè)字段，分別為姓名、電話號(hào)碼和郵政編碼，其名稱、類型和長(zhǎng)度分別為：

　　Name 字符串 8

　　Tel 字符串 10

　　Post Long

　　窗體中有一個(gè)文本框和兩個(gè)命令按鈕。程序運(yùn)行后，如果單擊“讀入并顯示記錄”命令按鈕， 則從考生文件夾下的in5.txt文件中讀入所有記錄并顯示在文本框中(每條記錄占一行，數(shù)據(jù)項(xiàng)的順序是姓名、電話、郵編，見圖，可使用符號(hào)常量vbCrLf表示回車換行);若單擊“保存”按鈕則把文本框中的內(nèi)容存入out5.txt文件中。

　　要求：

　　1

　　1)編寫“讀入并顯示記錄”按鈕的Click過程。

　　2)在文本框中把所有字母改為大寫字母(可以手工修改)。

　　3)單擊“保存”按鈕把修改后的文本框內(nèi)容存盤，否則無成績(jī)!( 過程已給出，不能修改)。 最后以原文件名將程序存放在考生文件夾下。

　　解題思路：

　　啟動(dòng)Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt5.vbp，相應(yīng)的窗體文件名為sjt5.frm。

　　由于所提供的窗體程序不完整，需添加事件過程。

　　單擊“讀入并顯示記錄”按鈕(即運(yùn)行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub Command1_Click()

　　'考生應(yīng)編寫的程序

　　Open App.Path & "\in5.txt" For Random As #1 Len = Len(pal)

　　For i = 1 To 5

　　Get #1, i, pal

　　Text1.Text = Text1.Text & pal.Name

　　Text1.Text = Text1.Text & pal.Tel

　　Text1.Text = Text1.Text & Str(pal.Post)

　　Text1.Text = Text1.Text + vbCrLf

　　Next

　　Close 1

　　End Sub

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

　　請(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í)間及入口匯總