[多项选择题] 在考生文件夹下有一个工程文件sjt4.vbp，窗体如图所示。程序功能如下： ①单击“读数据”按钮，则考生文件夹下：in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本

[多项选择题] 在考生文件夹下有一个工程文件sjt4.vbp，窗体如图所示。程序功能如下：
①单击“读数据”按钮，则考生文件夹下：in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。
②在Text1中选取部分文本，单击“统计”按钮，则以不区分大小写字母的方式，自动统计选中文本中单词“the”出现的次数，并将统计结果显示在Text2文本框内。
请将“统计”按钮的Click事件过程中的注释符去掉，把改为正确的内容，以实现上述功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名进行存盘。

参考答案：

[解题思路] 单击“读数据”按钮，运用文件操作将考生文件夹下inD.dat文件的内容显示在TextA文本框中。在CommandB Click事件过程中，否则运用Len( )函数判断文本框中是否有字符，如果Len(s)=0那么弹出MsgBox对话框“请先使用‘读数据’ 功能!”，否则运用SelLength属性判断文本框中是否有字符被选中，如果SelLength属性0，那么弹出MsgBox对话框“消先选中文本!”。 在Text中选中部分文本，并单击“统计”按钮，通过LCase函数使统计不区分大小写字母，判断选中文本中是否出现单词“the”，并统计这个单词的出现的次数，将结果显示在TextB文本框内。[操作步骤] 步骤A：打开本题工程文件。 步骤B：分析并编写程序代码。 程序提供代码 Option base A Dim s As String Private Sub CommandA_Click( ) Open App. Path & " inD. dat" For Input As # A s = Input( LOF(A), # A ) Close # A TextA. Text = s End Sub Private Sub CornmandB_Cliek( ) Dim m As Integer ’If Len(s) = Then MsgBox "请先使用’读数据’功能!" Else ’If TextA. =0 Then MsgBox "请先选中文本!" Else t=" " For i = A To TextA. SelLength e = Mid(TextA. SelText, i, A ) If c ＜ ＞ " " Then t=t+c Else ’If = "the" Then m=m+A End If t = " " End If Next i ’ = Str(m) End If End If End Sub 程序结束 第A个 处填入：0 第B个 处填入：SelLength 第C个 处填入：Lcase$(t) 第D个 处填入：TextB 步骤C：调试并运行程序，关闭程序后按题目要求存盘。答案考生文件夹

问题解析:

解析无