3. 综合应用（1小题，计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt，文件中的每个记录包括3个字段，分别为姓名、电话号码和邮政编码，其名称、类型和长度分别为：

　　Name 字符串 8

　　Tel 字符串 10

　　Post Long

　　窗体中有一个文本框和两个命令按钮。程序运行后，如果单击“读入并显示记录”命令按钮， 则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中（每条记录占一行，数据项的顺序是姓名、电话、邮编，见图，可使用符号常量vbCrLf表示回车换行）；若单击“保存”按钮则把文本框中的内容存入out5.txt文件中。

　　要求：

　　1

　　1）编写“读入并显示记录”按钮的Click过程。

　　2）在文本框中把所有字母改为大写字母（可以手工修改）。

　　3）单击“保存”按钮把修改后的文本框内容存盘，否则无成绩！（ 过程已给出，不能修改）。 最后以原文件名将程序存放在考生文件夹下。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

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

　　单击“读入并显示记录”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub Command1_Click()

　　'考生应编写的程序

　　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

　　请把这些文件复制到c:/wexam/26990001中，然后打开sjt5.vbp文件并运行。