阅读以下说明及Visual Basic代码,将应填入(n)处的字句写在对应栏内。[说明]下图是一个简易文本编辑器程序的运行界面:用户打开磁盘上的某个文件后,可以直接对文本进行编辑,也可以利用界面提供的按钮完成相应操作。主要操作介绍如下:(1)打开文件:打开文件对话框,其中仅显示“*.txt”类型的文件。用户选中某一文件后,其内容将呈现于界面文本框内;(2)查找:提示用户输入要查找的内容,将首次出现的查找内容以蓝色高亮标记;(3)替换:若文本框中已选中某段文本,则提示用户输入要替换的内容,在文本框中完成替换。在开发过程中,文本框名为Text1,“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。[Visual Basic代码]Dim fileName As StringDim fso As New (1), ts As Object’打开文本文件Private Sub Command1_Click()CommonDialog1.Filter = '*.txt'CommonDialog1.ShowOpenfileName =(2) ’保存所打开的文件名Set fso=CreateObjeet('Scripting.FileSystemObject')Set ts=fso.OpenTextFile(fileName, ForReading)If Not ts.AtEndOfStream ThenText1.Text =(3)End Ifts. CloseEnd Sub’保存文本文件Private Sub Command2_Click()Set ts = fso.OpenTextFile(fileName, ForWriting)(4)ts.CloseEnd Sub’查找字符串Private Sub Command3_Cliek()Dim search As String, position As Integersearch = InputBox('输入要查找的字符串:')position = InStr(Text1.Text, search) ’在文本中查找字符串If position >0 Then ’若找到指定的字符串Text1.SelStart = position - 1 ’设置选定文本的起始位置Text1.SelLength = Len(search) ’设置选定文本的长度ElseMsgBox '没有发现要查找的字符串'End IfEnd Sub’替换选中的字符串Private Sub Command4_Click()Dim object As StringIf (5) >0 Then ’若已经选中了要替换的文本object = InputBox('输入要替换的字符串:')Text1.SelText = object ’替换文本ElseMsgBox '请先选中要替换的文本!'End IfEnd Sub’退出程序Private Sub Command5_Click()EndEnd Sub
题型: