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

第一步：启动VisualBasic，打开考生文件夹下的工程文件sjt5.vbp。

第二步：将2个Text控件、3个Command控件和1个CommonDialog控件添加到窗体上。Text的名称分别为Text1和Text2，Text属性为空；Command的名称分别为Command1、Command2和Command3，Caption属性分别为“打开文件”、“删除”和“保存”；CommonDialog控件需要选择“工程”→“部件”命令，或在左侧工具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将MicrosoftCommonDialogControl6.0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再与其他控件一样添加到窗体上，其名称为Common1。双击窗体中的任何位置，进入程序编辑窗口，填写代码如下：

1DimstrAsString

2PrivateSubCommand1_Click()

3DimtmpAsString

4str=""

5Common1.DialogTitle=“打开”’设置CommonDialog对话框标题

6Common1.InitDir="."’设置起始目录

7Common1.Filter=“TextFiles(*.txt)|*.txt”’设置选取的文件类型

8Common1.FileName=""’文件名为空

9Common1.ShowOpen’打开CommonDialog

10IfCommon1.FileName＜＞""Then

11OpenCommon1.FileNameForInputAs#1’如果文件存在则进行读取

12WhileEOF(1)=False

13Input#1，tmp’判断是否读取完成

14str=str+tmp’将读取的字符串放入str

15Wend

16EndIf

17Close#1

18Text1.Text=str’在Text1中显示读取的字符串

10EndSub

20

21PrivateSubCommand2Click()

22DimtmpAsString

23DimrelAsString

24DimiAsInteger

25rel=""

26Fori=iToLen(str)-Len(Text2.Text)

27tmp=Mid(str，i，Len(Text2.Text))’读取其中的字符串

28IfText2.Text=tmpThen’如果该段字符串与Text2输入的相同

29tmp=""’则将该段置为""

30rel=rel+tmp

31i=i+Len(Text2.Text)-1’并向后移动Text2的长度减1位

32Else

33rel=rel+Mid(tmp，1，1)

34EndIf

35Nexti

36Text1.Text=rel’在Text1中显示修改后的字符串字符串

37EndSub

38

39PrivateSubCommand3_Click()

40Open".out5.txt"ForOutputAs#1

41Print#1，Text1.Text’将修改后的字符串写入文件中文件中

42Close#1

43EndSub

第三步：程序编写完毕，调试正确后，运行并将结果保存，最后以原文件名保存到考生文件夹下。