在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个文本框，名称分别为Text1和Text2，Text2可以多行显示；有一个名称为Command1的通用对话框；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。
命令按钮的功能是：单击“打开文件”按钮，弹出打开文件对话框，默认打开文件的类型为“Text Files(*.txt)”。选择考生文件夹下的in5.txt文件后，该文件中的内容显示在Text1中；单击“删除”按钮，程序将把Text1中的所有与Text2中相同的字符串删除，并将结果显示在Text1中；单击“保存”按钮，把Text1中的内容存入考生文件夹下的out5.txt文件中。在窗体中已经给出了部分程序。
要求：请去掉程序中的注释符，把程序中的改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。编写“删除”按钮的Click事件过程，最后把修改后的文件按原文件名存盘。
注意：考生不得修改已有的程序和控件的属性，必须对考生文件夹下的in5.txt文件进行转换，并把转换结果通过“保存”按钮存入考生文件夹下的out5.txt文件中，否则无成绩。
参考答案：
第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt5.vbp。
第二步：将2个Text控件、3个Command控件和1个CommonDialog控件添加到窗体上。Text的名称分别为Text1和Text2，Text属性为空；Command的名称分别为Command1、Command2和Command3，Caption属性分别为“打开文件”、“删除”和“保存”；CommonDialog控件需要选择“工程”→“部件”命令，或在左侧工具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将Microsoft Common Dialog Control 6.0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再与其他控件一样添加到窗体上，其名称为Common1。双击窗体中的任何位置，进入程序编辑窗口，填写代码如下：
1 Dim str As String
2 Private Sub Command1_Click()
3 Dim tmp As String
4 str=""
5 Common1.DialogTitle=“打开” ’设置CommonDialog对话框标题
6 Common1.InitDir=".\" ’设置起始目录
7 Common1.Filter=“Text Files(*.txt)|*.txt” ’设置选取的文件类型
8 Common1.FileName="" ’文件名为空
9 Common1.ShowOpen ’打开CommonDialog
10 If Common1.FileName＜＞""Then
11 Open Common1.FileName For Input As #1 ’如果文件存在则进行读取
12 While EOF(1)=False
13 Input #1，tmp ’判断是否读取完成
14 str=str+tmp ’将读取的字符串放入str
15 Wend
16 End If
17 Close #1
18 Text1.Text=str ’在Text1中显示读取的字符串
10 End Sub
20
21 Private Sub Command2 Click()
22 Dim tmp As String
23 Dim rel As String
24 Dim i As Integer
25 rel=""
26 For i=i To Len(str)-Len(Text2.Text)
27 tmp=Mid(str，i，Len(Text2.Text)) ’读取其中的字符串
28 If Text2.Text=tmp Then ’如果该段字符串与Text2输入的相同
29 tmp="" ’则将该段置为""
30 rel=rel+tmp
31 i=i+Len(Text2.Text)-1 ’并向后移动Text2的长度减1位
32 Else
33 rel=rel+Mid(tmp，1，1)
34 End If
35 Next i
36 Text1.Text=rel ’在Text1中显示修改后的字符串字符串
37 End Sub
38
39 Private Sub Command3_Click()
40 Open".\out5.txt"For Output As#1
41 Print #1，Text1.Text ’将修改后的字符串写入文件中文件中
42 Close #1
43 End Sub
第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。
解析：
本题主要考查数据的输入输出。