首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有2个标题分别是“读数据”和“统计”的命令按钮,1个名称为Text1的文本框,2个标签控件,如图3-31所示。 程序功能如下: 1)单击“读数据”按钮,则将考生文件夹下in5.dat文
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有2个标题分别是“读数据”和“统计”的命令按钮,1个名称为Text1的文本框,2个标签控件,如图3-31所示。 程序功能如下: 1)单击“读数据”按钮,则将考生文件夹下in5.dat文
admin
2018-10-29
54
问题
在考生文件夹下有一个工程文件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://kaotiyun.com/show/jCFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下能够设置控件焦点的方法是( )。
以下关于文件的叙述中,错误的是( )。
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
设窗体的名称为Form1,标题为Win,则窗体的MouseDown事件过程的过程名是( )。
设有如下通用过程:PublicFunctionFun(xStrAsString)AsString DimtStrAsString,strLAsInteger tStr="" strL=Len(xStr) i=strL
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer() StaticflagA
对于列表框控件List1,能够表示当前被选中列表项内容的是( )。
以下关于VB文件的叙述中,错误的是( )。
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性,该属性为
随机试题
金融创新增强了货币供给的()。
空心阴极灯常采用脉冲供电方式。()
商品零售业的经营周期明显要比制造业短,说明商品零售业的营运能力比制造业好。
容易诱发慢性肝炎患者肝昏迷的药物有()。
企业可以将不同类型的经济业务合并在一起,这样可以形成复合会计分录。()
与果断性相对立的意志品质是
根据不同的意识水平迁移可以分为
Thread类的方法中,toString()方法的作用是()
Advertiserstendtothinkbigandperhapsthisiswhythey’realwayscominginforcriticism.Theircriticsseemtoresentthem
Tracingmissingpersonscantakemuchpatientdetectivework.Butaspecialkindof"privateeye"cantracethemissingancestor
最新回复
(
0
)