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

admin2018-10-29  30

问题 在考生文件夹下有一个工程文件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=1 To m If Len(ch(i))=5 Then k=k+1 End If Next i Label1.Caption=k ’-------考生编写的程序代码到这里结束 步骤2:按<F5>键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。

解析
转载请注明原文地址:https://jikaoti.com/ti/WGm0FFFM
0

最新回复(0)