[问答题] 在考生文件夹下有一个工程文件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，打开考生文件夹下的工程文件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 String2 Private Sub Command1_Click()3 Dim tmp As String4 str=""5 Common1.DialogTitle=“打开” ’设置CommonDialog对话框标题6 Common1.InitDir="." ’设置起始目录7 Common1.Filter=“Text Files(*.txt)|*.txt” ’设置选取的文件类型8 Common1.FileName="" ’文件名为空9 Common1.ShowOpen ’打开CommonDialog10 If Common1.FileName＜＞""Then11 Open Common1.FileName For Input As #1 ’如果文件存在则进行读取12 While EOF(1)=False13 Input #1，tmp ’判断是否读取完成14 str=str+tmp ’将读取的字符串放入str15 Wend16 End If17 Close #118 Text1.Text=str ’在Text1中显示读取的字符串10 End Sub2021 Private Sub Command2 Click()22 Dim tmp As String23 Dim rel As String24 Dim i As Integer25 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+tmp31 i=i+Len(Text2.Text)-1 ’并向后移动Text2的长度减1位32 Else33 rel=rel+Mid(tmp，1，1)34 End If35 Next i36 Text1.Text=rel ’在Text1中显示修改后的字符串字符串37 End Sub3839 Private Sub Command3_Click()40 Open".out5.txt"For Output As#141 Print #1，Text1.Text ’将修改后的字符串写入文件中文件中42 Close #143 End Sub第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。

问题解析:

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