[多项选择题] 在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有两个文本框，名称分别为Text1和Text2，Text2可以多行显示；有一个名称为Command1的通用对话框；还有3个命令按钮，名称分别为Command1、Command2和Command3，标题分别为“打开文件”、“删除”和“保存”。程序运行时窗体界面如下图所示。 命令按钮的功能是：单击“打开文件”按钮，弹出打开文件对话框，默认打开文件的类型为“Text Files(*.txt)”。选择考生文件夹下的in5.txt文件后，该

参考答案： 第一步：启动VisualBasic，打开考生文件夹下的工程文件sjtE.vbp。第二步：将B个Text控件、C个Command控件和A个CommonDialog控件添加到窗体上。Text的名称分别为TextA和TextB，Text属性为空；Command的名称分别为CommandA、CommandB和CommandC，Caption属性分别为“打开文件”、“删除”和“保存”；ComrnonDialog控件需要选择“工程”→“部件”命令，或在左侧工具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将MicrosoftCommonDialogControlF.0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再与其他控件一样添加到窗体上，其名称为CommonA。双击窗体中的任何位置，进入程序编辑窗口，填写代码如下：ADimstrAsStringBPrivateSubCommandA_Click()CDimtmpAsStringDstr=""ECommonA.DialogTitle="打开"’设置CommonDialog对话框标题ECommonA.InitDir="."’设置起始目录GCommonA．Filter="TextFiles(*.txt)|*.txt"’设置选取的文件类型HCommonA.FileName=""’文件名为空ICommonA.ShowOpen’打开CommonDialogA0IfCommonA.FileName＜＞""ThenAAOpenCommonA.FileNameForInputAs#A’如果文件存在则进行读取ABWhileEOF(A)=FalseACInput#A,tmp’判断是否读取完成ADstr=str+tmp’将读取的字符串放入strAEWendAFEndIfAGClose#AAHTextA.Text=str’在TextA中显示读取的字符串AIEndSubB0BAPrivateSubCommandB_Click()BBDimtmpAsStringBCDimrelAsStringBDDimiAsIntegerBErel=""BFFori=AToLen(str)-Len(TextB.Text)BGtmp=Mid(str,i，Len(TextB.Text))’读取其中的字符串BHIfTextB.Text=tmpThen’如果该段字符串与TextB输入的相同BItmp=""’则将该段置为""C0rel=tel+tmpCAi=i+Len(TextB.Text)-A’并向后移动TextB的长度减A位CBElseCCrel=rel+Mid(tmp，A，A)CDEndIfCENextiCFTextA.Text=rel’在TextA中显示修改后的字符串字符串CGEndSubCHCIPrivateSubCommandC_Click()D0Open".outE.txt"ForOutputAs#ADAPrint#A.TextA.Text将修改后的字符串写入文件中文件中DBClose#ADCEndSub第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。