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

admin2020-02-27  22

问题  在考生文件夹下有一个工程文件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
0

最新回复(0)