2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp，窗体如图所示。程序功能如下： ①单击“读数据”按钮，则考生文件夹下in4．dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。 ②在Text1中选取部分文本，单击“统计”按钮，

在考生文件夹下有一个工程文件sjt4．vbp，窗体如图所示。程序功能如下： ①单击“读数据”按钮，则考生文件夹下in4．dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。 ②在Text1中选取部分文本，单击“统计”按钮，

admin2015-08-12  63
问题 在考生文件夹下有一个工程文件sjt4．vbp，窗体如图所示。程序功能如下：
    ①单击“读数据”按钮，则考生文件夹下in4．dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。
    ②在Text1中选取部分文本，单击“统计”按钮，则以不区分大小写字母的方式，自动统计选中文本中单词“the”出现的次数，并将统计结果显示在Text2文本框内。
请将“统计”按钮的Click事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述功能。
    *注意：考生不得修改窗体文件中已经存在的控件和程序，最后将程序按原文件名进行存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件。 步骤2：分析并编写程序代码。 程序提供代码如下： option Base 1 Dim s Ad string Private Sub Command1_C3ick() Open App．Path&"＼in4?dat"For Input As #1 s=Input(LOF(1)，#1) Close#1 Text1．Text=s End Sub Private Sub Command2_Click() Dim m As Integer ’If Len(s)=?Then MsgBox"请先使用‘读数据’功能!" Else ’If Text1．?=0 Then MsgBox"请先选中文本!" Else t="" For i=1 To Text1．SelLength c=Mid(Text1．SelText，i，1) If c＜＞""Then t=t+c Else ’If?="the" Then m=m+1 End If t="" End If Next i ’?=Str(m) End If End If End Sub 参考答案： 第1个?处填入：0 第2个?处填入：SelLength 第3个?处填入：kase$(t) 第4个?处填入：Text2 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 单击“读数据”按钮，运用文件操作将考生文件夹下in4．dat文件的内容显示在Text1文本框中。在Command2_Click事件过程中，否则运用Len()函数判断文本框中是否有字符，如果Len(s)=0那么弹出MsgBox对话框“请先使用‘读数据’功能!”，否则运用SelLength属性判断文本框中是否有字符被选中，如果SelLength属性0，那么弹出MsgBox对话框“请先选中文本!”。
    在Text中选中部分文本，并单击“统计”按钮，通过LCase函数使统计不区分大小写字母，判断选中文本中是否出现单词“the”，并统计这个单词的出现的次数，将结果显示在Text2文本框内。
转载请注明原文地址:https://kaotiyun.com/show/bSQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)