首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
admin
2020-04-08
41
问题
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是:
单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。
单击“统计”按钮,能够统计长度为5的单词的个数和含有小写字母“a”的单词的个数,并把统计结果依次显示在Text2、Text3文本框中。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。
编写函数found的代码。
注意:不能修改程序的其他部分和控件属性,必须通过单击窗体右上角的“×”结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(划线部分是需要填入的内容) Option Base 1 Dim
s
As String Private Sub Commandl_Click() Open App.Path&"\in5.dat"For Input As#1 Line Input#1.s Close#l Textl.Text=s End Sub Private Sub Command2_Click() If kn(s)=0 Then MsgBox"请先使用“读数据”功能!". Else ch$ ="" For k=l To Len(s) c=Mid(s,k,1) If C<>""Then ch=ch+
c
Else IfLen(ch)=5 Then m=m+l End If If found(ch,"a")Then n=n+1 End If ch="" End If Next k Text2.Text=m Text3.Text=n End If End Sub Private Function found(st As String,ch As String) As
Boolean
′*****************************考生编写*********************************** For k=1 To Len(st) a=Mid(st,k,l) If a=ch Then Found=True Exit Function End If Nxet k Found=False ′*******************************考生编写结束********************************* End Function Private Sub Form_Unload(Cancel As Integer) Open App.Path&"\out5.dat"For Output As#1 Prnt#1.Text2.Text,Text3.Text Close#l End Sub 步骤3:调试并运行程序,单击“读数据”按钮,再单击“统计”按钮,结果如图5.5所示,最后关闭程序后按题目要求存盘。 [*]
解析
Mid()函数的作用是从一个字符串中截取出指定数量的字符。对取得的字符串s的每一个字符进行遍历,若字符不为空格,则将遍历的字符进行拼接;若字符为空格,则对拼接的字符长度进行判断,若为5个字符,则长度为5的单词个数加1;再对拼接的字符是否含有“a”进行判断,若存在字符“a”,则含有字母“a”的单词个数加1。
转载请注明原文地址:https://kaotiyun.com/show/SNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于命令按钮的叙述中正确的是( )。
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
数据字典(DD)所定义的对象都包含于
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1、标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“
有两个关系R与S如下,由关系R和S得到关系T,则所使用的操作为
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommandl_Click()DimXAsIntegerX=Val(InputBox(“请输入一个整数”))
随机试题
天然气的储量仅根据千米()的稳定产量划分为高产、中产、低产三个等级。
Whenthepeopleinthatareafellupondarkdays,boththegovernmentandthepeoplefromallwalksoflifeshowedtheirconcern
关于三腔两囊管压迫止血,正确的是
背景某公司承建一规模较大的中成药制药厂,有两条同样的工艺生产线,设备由建设单位采购供应,其中6台萃取罐中的1台备用罐因途中运输不慎,内衬玻璃涂层被损,现场检验后退回制造厂返工重做,但由于制造工艺复杂,要在完工后3个月才能进场,该公司向建设单位提出甩项办理
H公司是一个高成长的公司,目前每股价格为20元,每股股利为1元,股利预期增长率为6%。公司现在急需筹集资金5000万元,有以下三个备选方案:方案1:按照目前市价增发股票250万股。方案2:平价发行10年期的长期债券。目前新发
随着经济全球化的不断推进,“标准”已成为世界的“通用语言”,更是国际贸易的“通行证”。在某种程度上,标准制定者等同于行业领军者,就像英特尔确立了中央处理器标准,从而牢牢掌握住了国际市场竞争的话语权。或许,这就是“三流企业做产品,二流企业做品牌,一流企业做标
中国建筑体系是以木结构为特色的独立的建筑艺术,在城市规划、建筑组群、单体建筑以及材料、结构等方面的艺术处理均取得辉煌的成就。传统建筑中的各种屋顶造型、飞檐翼角、斗拱彩画、朱柱金顶、内外装修及园林景物等,充分体现出中国建筑艺术的纯熟和感染力。七千年前河姆渡文
Somehousesaredesignedtobesmart.Othershavesmartdesigns.AnexampleofthesecondtypeofhousewonanAwardofExcellen
元朝由地方政府纂集的法令法规汇编是()。
Nowadays,somethinghasgoneterriblywrongwithouronce-proudAmericanwayoflife.Ithashappenedintheareaof【C1】______.
最新回复
(
0
)