2. 计算机
  3. 在考生文件夹下有一个工程文件sjt5．vbp，其窗体中有一个名称为Text1的文本框，两个标题分别是“读数据”和“统计”的命令按钮。请添加一个名称为Label1、标题为“同时含有字母t、h、e的单词数为”的标签；再添加一个名称为Text2，初始文本为空的文

在考生文件夹下有一个工程文件sjt5．vbp，其窗体中有一个名称为Text1的文本框，两个标题分别是“读数据”和“统计”的命令按钮。请添加一个名称为Label1、标题为“同时含有字母t、h、e的单词数为”的标签；再添加一个名称为Text2，初始文本为空的文

admin2020-02-27  35
问题  在考生文件夹下有一个工程文件sjt5．vbp，其窗体中有一个名称为Text1的文本框，两个标题分别是“读数据”和“统计”的命令按钮。请添加一个名称为Label1、标题为“同时含有字母t、h、e的单词数为”的标签；再添加一个名称为Text2，初始文本为空的文本框，如图所示。程序功能如下：
  ①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容(其中仅含有字母和空格)显示在Text1文本框中。
  ②单击“统计”按钮，则以不区分大小写字母的方式，自动统计Text1文本内容中同时含有t、h、e三个字母的单词的个数(如the、there和whatever都属于满足条件的单词)，并将统计结果显示在Text2文本框内。
    “读数据”按钮的Click事件过程已经给出，请将“统计”按钮的Click事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“统计”，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
选项
答案【操作步骤】 步骤1：打开本题工程文件，添加1个名称为Label1、标题为"同时含有字母t、h、e的单词数为"的标签；再添加1个名称为Text2，初始内容为空的文本框。 步骤2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim s As String Private Sub Command1_Click() Open App.Path & "\in5.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() ’ If Len(s) = ? Then 　　 MsgBox "请先使用"读数据"功能！" Else 　　 t = "" 　　 For i = 1 To Len(s) 　　　　c = Mid(s, i, 1) ’　If ? <> " " Then 　　　　　t = t + c 　　　　Else ’ ? = LCase(t) 　　　　　If InStr(x, "t") <> 0 And InStr(x, "h") <> 0 And InStr(x, "e") <> 0 Then ’　 m = ? 　　　　　End If 　　　　　t = "" 　　　　End If 　　 Next i 　　 Text2.Text = m End If End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 第1个？处填入：0 第2个？处填入：c 第3个？处填入：x 第4个？处填入：m + 1 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/UjTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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