首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
admin
2020-04-08
47
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
用语句Open"C:\teac.txt"ForInputAs#1打开文件后,就可以编程序
下列控件中,没有Caption属性的是( )。
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
通用对话框Filter属性的作用是
以下能够设置控件焦点的方法是( )。
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
支持子程序调用的数据结构是( )。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
随机试题
机会成本是指()
女,60岁,间歇性右上腹疼痛10年,疼痛向右肩放射,近一周再发右上腹疼痛。查体:右上腹可扪及10cm×8cm包块,张力高,局部压痛、反跳痛,腹肌紧张。行上腹部磁共振平扫及MRCP检查提示胆囊颈结石并胆囊炎。磁共振的禁忌证不包括下列
男性,26岁,农民,5天来发热、畏寒,1天来头痛、呕吐2次,于8月15入院,T39.6℃,球结膜充血,颈有抵抗,腹股沟淋巴结肿大,有压痛,腓肠肌有压痛,尿蛋白(++)。诊断应考虑
企业在确定组织结构类型时所需考虑的因素有()。
下列选项中,符合房地产经纪人执业资格考试报名条件的是()。
影子汇率换算系数越高,外汇的影子价格越高,产品是可外贸货物的项目效益较高,评价结论会()出口方案。同时外汇的影子价格较高时,项目引进投入物的方案费用较高,评价结论会()引进方案。
单位日常工作中,有些事情时间紧急但不是很重要,有些事情非常重要但不是很紧急。你处理这些事情时会怎么做?
对于一个长度为n的任意表进行排序,至少需要进行的比较次数是()。
加强网络文化建设和管理,充分发挥互联网在我国社会主义文化建设中的重要作用,有利于
Haveyouseenthismovie?Itisreallyworth(see)______.
最新回复
(
0
)