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

　　在窗體上畫(huà)一個(gè)文本框，其名稱(chēng)為T(mén)ext1，初始內(nèi)容為空白， 并設(shè)置成多行顯示格式;然后再畫(huà)兩個(gè)命令按鈕，其名稱(chēng)分別為Command1和Command2，標(biāo)題分別為“顯示”和“保存”，如圖所示，編寫(xiě)適當(dāng)?shù)氖录�過(guò)程。程序運(yùn)行后，如果單擊“顯示”命令按鈕，則讀取考生文件夾下的in5.txt文件， 并在文本框中顯示出來(lái)， 該文件是一個(gè)用隨機(jī)存取方式建立的文件，共有5個(gè)記錄，要求按記錄號(hào)順序顯示全部記錄，每個(gè)記錄一行;如果單擊“保存”命令按鈕，則把所有記錄保存到考生文件夾下的順序文件out5.txt中。

　　隨機(jī)文件in5.txt中的每個(gè)記錄包括3個(gè)字段，分別為姓名、性別和年齡，其名稱(chēng)和長(zhǎng)度分別為：

　　Name 字符串 8

　　Sex 字符串 4

　　Age Integer

　　其類(lèi)型定義為：

　　Private Type StudInfo

　　Name As String * 8

　　Sex As String * 4

　　Age As Integer

　　End Type

　　要求：

　　1)文件out5.txt以順序存取方式建立和保存。

　　2)存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sjt5.vbp，窗體文件名為sjt5.frm。

　　解題思路：

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

　　在該窗體上畫(huà)一個(gè)文本框控件，通過(guò)其屬性窗口將名稱(chēng)設(shè)為T(mén)ext1，文本內(nèi)容(Text屬性)設(shè)為空，多行(MultiLine屬性)設(shè)為T(mén)rue。畫(huà)二個(gè)命令按鈕控件，通過(guò)其屬性窗口將名稱(chēng)分別設(shè)為Command1、Command2，標(biāo)題(Caption屬性)分別設(shè)為“顯示”、“保存”。

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

　　Private Sub Command1_Click()

　　Dim RecNum As Long

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

　　RecNum = 1

　　Do While Not EOF(1)

　　Get #1, RecNum, Stud

　　Text1.Text = Text1.Text & Stud.Name

　　Text1.Text = Text1.Text & Stud.Sex

　　Text1.Text = Text1.Text & Str(Stud.Age)

　　Text1.Text = Text1.Text + vbCrLf

　　RecNum = RecNum + 1

　　Loop

　　Close 1

　　End Sub

　　單擊“保存”按鈕(即運(yùn)行Click事件過(guò)程)，在該Click事件過(guò)程中加入語(yǔ)句：

　　Private Sub Command2_Click()

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

　　Print #1, Text1.Text

　　Close 1

　　End Sub

　　聲明部分定義一個(gè)存放“姓名”、“性別”和“年齡”紀(jì)錄的結(jié)構(gòu)，具體內(nèi)容：

　　Private Type StudInfo

　　Name As String * 8

　　Sex As String * 4

　　Age As Integer

　　End Type

　　在聲明部分還定義一個(gè)結(jié)構(gòu)變量，其語(yǔ)句：

　　Dim Stud As StudInfo

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

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

　　相關(guān)推薦：

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

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

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