在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有2个标题分别是“读数据"和“统计”的命令按钮,1个名称为Text1的文本框,2个标签控件,如图3.31所示。 程序功能如下: 1)单击“读数据”按钮,则将考生文件夹下in5.dat文件

admin2018-09-19  22

问题 在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有2个标题分别是“读数据"和“统计”的命令按钮,1个名称为Text1的文本框,2个标签控件,如图3.31所示。
    程序功能如下:
    1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容(该文件中含有不超过800个英文单词,单词之间用1个空格隔开)显示在Text1文本框中。
1*]
    2)单击“统计”按钮,则自动统计Text1中所有5字母单词的个数,并显示在右下角的Label1标签中。
    “读数据”按钮的Click事件过程已经给出,“统计”按钮的Click事件过程不完整,函数GetWords的功能是从字符串s中分离出每个单词,依次放入数组words的数组元素中,返回值为单词的总数目。
    要求:
    1)请将程序中的注释符去掉,把?改为正确的内容;
    2)补全“统计”按钮Click事件过程中的代码,以实现上述程序功能。
    注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“统计”,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。

选项

答案步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: GetWords=m m=GetWords(17extl.Text,ch) ’----------考生编写的程序代码从这里开始 k=0 For i=1 To m If Len(ch(i))=5 Then k=k+1 End If Next i Label1.Caption=k ’-----------考生编写的程序代码到这里结束 步骤2:按键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。

解析 题目要求统计字符串数组里面长度等于5的字符串数量,可以使用循环变量数组,依次判断每个元素的长度是否为5,如果为5则统计变量加1,循环结束后得到统计结果,最后显示在标签里面。
    第一个“?”处是补充函数返回值,在GetWords函数中变量m在每次检测到单词后增加1,可知m保存了单词数量统计,因此函数的返回值为m;第二个“?”处是补充函数的入参,根据题目要求在这里统计文本框内容里面的单词数量。
转载请注明原文地址:https://jikaoti.com/ti/GHm0FFFM
0

最新回复(0)