[多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个文本框，名称分别为Text1和Text2，Text2可以多行显示；有一个名称为Command1的通用对话框；还有3个命令按钮

[多项选择题] 在考生文件夹下有一个工程文件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，打开考生文件夹下的工程文件sjtE.vbp。 第二步：将B个Text控件、C个Command控件和A个CommonDialog控件添加到窗体上。Text的名称分别为TextA和TextB，Text属性为空；Command的名称分别为CommandA、CommandB和CommandC，Caption属性分别为“打开文件”、“删除”和“保存”；ComrnonDialog控件需要选择“工程”→“部件”命令，或在左侧工具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将Microsoft CommonDialog Control F.0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再与其他控件一样添加到窗体上，其名称为CommonA。双击窗体中的任何位置，进入程序编辑窗口，填写代码如下： A Dim str As String B Private Sub CommandA_Click( ) C Dim tmp As String D str="" E CommonA. DialogTitle="打开" ’设置CommonDialog对话框标题 E CommonA. InitDir="." ’设置起始目录 G CommonA．Filter="Text Files(*.txt)|*.txt" ’设置选取的文件类型 H CommonA. FileName="" ’文件名为空 I CommonA. ShowOpen ’打开CommonDialog A0 If CommonA. FileName＜＞""Then AA Open CommonA. FileName For Input As#A ’如果文件存在则进行读取 AB While EOF(A)=False AC Input#A, tmp ’判断是否读取完成 AD str=str+tmp ’将读取的字符串放入str AE Wend AF End If AG Close #A AH TextA. Text=str ’在TextA中显示读取的字符串 AI End Sub B0 BA Private Sub CommandB_Click( ) BB Dim tmp As String BC Dim rel As String BD Dim i As Integer BE rel="" BF For i=A To Len(str)-Len(TextB. Text) BG tmp=Mid(str, i，Len(TextB.Text)) ’读取其中的字符串 BH If TextB. Text=tmp Then ’如果该段字符串与TextB输入的相同 BI tmp="" ’则将该段置为"" C0 rel=tel+tmp CA i=i+Len(TextB. Text)-A ’并向后移动TextB的长度减A位 CB Else CC rel=rel+Mid(tmp，A，A) CD End If CE Next i CF TextA. Text=rel ’在TextA中显示修改后的字符串字符串 CG End Sub CH CI Private Sub CommandC_Click( ) D0 Open". outE. txt" For Output As#A DA Print #A. TextA. Text 将修改后的字符串写入文件中文件中 DB Close#A DC End Sub 第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。

问题解析:

本题主要考查数据的输入输出。