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

admin2019-05-14  33

问题 在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有2个标题分别是“读数据”和“统计”的命令按钮,1个名称为Text1的文本框,2个标签控件,如图3—31所示。
程序功能如下:
1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容(该文件中含有不超过800个英文单词,单词之间用1个空格隔开)显示在Text1文本框中。

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

选项

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

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

最新回复(0)