情景一：班里组织的一次模拟法庭活动，小李准备当一回法官，而老师却安排小李演被告的角色，小李正在犹豫，你认为他应该……

（1）你的正确做法：___________________________________________________________；

（2）理由：___________________________________________________________________。

情景二：七年级同学们的周末作业是：跟妈妈学厨艺、多陪陪长辈聊天。

（1）老师布置这项作业的用意是：_______________________________________________；

（2）如果是我，我的亲情作业是：_______________________________________________。

情景三：王倩的公司组织员工开展了一次中外青年联欢活动。活动现场，有一个外籍男生与王倩碰面时，王倩为表示友好，伸出手要与他握手，想不到对方却张开手臂要与她拥抱，王倩好尴尬，借故走开，外籍男生很纳闷。

（1）王倩的正确做法是：_______________________________________________________；

（2）因为：___________________________________________________________________。

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

用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下： (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.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. 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 Integer search = 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 String If (5) ＞0 Then’若已经选中了要替换的文本 object = InputBox("输入要替换的字符串:") Text1.SelText = object ’替换文本 Else MsgBox "请先选中要替换的文本!" End IfEnd Sub’退出程序Private Sub Command5_Click() EndEnd Sub