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

　　在考生文件夾下有文件in5.txt，文件中有幾行漢字。請在Form1 的窗體上畫一個文本框，名稱為Text1，能顯示多行;再畫一個命令按鈕，名稱為C1，標題為“存盤”。編寫適當?shù)氖录�過程，使得在加載窗體時，把in5.txt文件的內(nèi)容顯示在文本框中， 然后在文本的最前面手工插入一行漢字：計算機等級考試，(如圖所示)。 最后單擊“存盤”按鈕，把文本框中修改過的內(nèi)容存到文件out5.txt中。

　　*注意：

　　只能在最前面插入文字，不能修改原有文字。文件必須存放在考生文件夾下，以sjt5.vbp為文件名存儲工程文件，以sjt5.frm為文件名存儲窗體文件。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，創(chuàng)建一個Form1窗體。

　　在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設(shè)為Text1，多行(MultiLine屬性)設(shè)為True。畫一個命令按鈕控件，通過其屬性窗口將名稱設(shè)為C1，標題(Caption屬性)設(shè)為“存盤”。

　　加載窗體(即運行窗體的Load事件過程)，在該Load事件過程中加入語句：

　　Private Sub Form_Load()

　　Open App.Path & "\in5.txt" For Input As #1

　　Text1.Text = ""

　　Do While Not EOF(1)

　　Line Input #1, a$

　　Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10)

　　Loop

　　Close #1

　　End Sub

　　單擊“存盤”按鈕(即運行Click事件過程)，在該Click事件過程中加入語句：

　　Private Sub C1_Click()

　　Open App.Path & "\out5.txt" For Output As #1

　　Print #1, Text1.Text

　　Close #1

　　End Sub

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

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

　　相關(guān)推薦：

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

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

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