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

　　在窗體上畫一個文本框，其名稱為Text1，初始內容為空白， 并設置成多行顯示格式;然后再畫兩個命令按鈕，其名稱分別為Command1和Command2，標題分別為“顯示”和“保存”，如圖所示，編寫適當的事件過程。程序運行后，如果單擊“顯示”命令按鈕，則讀取考生文件夾下的in5.txt文件， 并在文本框中顯示出來， 該文件是一個用隨機存取方式建立的文件，共有5個記錄，要求按記錄號順序顯示全部記錄，每個記錄一行;如果單擊“保存”命令按鈕，則把所有記錄保存到考生文件夾下的順序文件out5.txt中。

　　隨機文件in5.txt中的每個記錄包括3個字段，分別為姓名、性別和年齡，其名稱和長度分別為：

　　Name 字符串 8

　　Sex 字符串 4

　　Age Integer

　　其類型定義為：

　　Private Type StudInfo

　　Name As String * 8

　　Sex As String * 4

　　Age As Integer

　　End Type

　　要求：

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

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

　　解題思路：

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

　　在該窗體上畫一個文本框控件，通過其屬性窗口將名稱設為Text1，文本內容(Text屬性)設為空，多行(MultiLine屬性)設為True。畫二個命令按鈕控件，通過其屬性窗口將名稱分別設為Command1、Command2，標題(Caption屬性)分別設為“顯示”、“保存”。

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

　　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

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

　　Private Sub Command2_Click()

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

　　Print #1, Text1.Text

　　Close 1

　　End Sub

　　聲明部分定義一個存放“姓名”、“性別”和“年齡”紀錄的結構，具體內容：

　　Private Type StudInfo

　　Name As String * 8

　　Sex As String * 4

　　Age As Integer

　　End Type

　　在聲明部分還定義一個結構變量，其語句：

　　Dim Stud As StudInfo

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

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

　　相關推薦：

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

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

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