阅读以下说明及Visual Basic代码，将应填入(n)处的字句写在对应栏内。

[说明]

下图是一个简易文本编辑器程序的运行界面：

用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下：

(1)打开文件：打开文件对话框，其中仅显示“*.txt”类型的文件。用户选中某一文件后，其内容将呈现于界面文本框内；

(2)查找：提示用户输入要查找的内容，将首次出现的查找内容以蓝色高亮标记；

(3)替换：若文本框中已选中某段文本，则提示用户输入要替换的内容，在文本框中完成替换。

在开发过程中，文本框名为Text1，“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。

[Visual Basic代码]

Dim fileName As String

Dim fso As New (1), ts As Object

’打开文本文件

Private Sub Command1_Click()

CommonDialog1.Filter = "*.txt"

CommonDialog1.ShowOpen

fileName =(2) ’保存所打开的文件名

Set fso=CreateObjeet("Scripting.FileSystemObject")

Set ts=fso.OpenTextFile(fileName, ForReading)

If Not ts.AtEndOfStream Then

Text1.Text =(3)

End If

ts. Close

End Sub

’保存文本文件

Private Sub Command2_Click()

Set ts = fso.OpenTextFile(fileName, ForWriting)

(4)

ts.Close

End Sub

’查找字符串

Private Sub Command3_Cliek()

Dim search As String, position As Integer

search = InputBox("输入要查找的字符串:")

position = InStr(Text1.Text, search) ’在文本中查找字符串

If position ＞0 Then ’若找到指定的字符串

Text1.SelStart = position - 1 ’设置选定文本的起始位置

Text1.SelLength = Len(search) ’设置选定文本的长度

Else

MsgBox "没有发现要查找的字符串"

End If

End Sub

’替换选中的字符串

Private Sub Command4_Click()

Dim object As String

If (5) ＞0 Then ’若已经选中了要替换的文本

object = InputBox("输入要替换的字符串:")

Text1.SelText = object ’替换文本

Else

MsgBox "请先选中要替换的文本!"

End If

End Sub

’退出程序

Private Sub Command5_Click()

End

End Sub