首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
admin
2020-04-08
45
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
下列控件中,没有Caption属性的是( )。
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
设窗体上有2个框架,每个框架中有若干个单选按钮,下面叙述中正确的是()。
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Commandl的命令按钮,要求当执行
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
(1)在考生文件夹下有一个工程文件sjt3.vbp(相应的窗体文件名为sjt3.frm),在窗体上添加一个名称为Listl的列表框和一个名称为Textl的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
以下关于VB对象属性的叙述中,错误的是
窗体上有一个名称为Text1的文本框,一个名称为CD1的通用对话框,一个标题为“打开文件”的命令按钮,如图所示。命令按钮的单击事件过程如下:PrivateSubCommand1_Click()CD1.ShowOpenOpen
随机试题
A、义齿弹跳B、义齿摘戴困难C、恶心、唾液增多D、粘膜广泛压痛E、咬合时基牙酸痛、敏感卡臂尖过长、抵住邻牙
患者,男,32岁。秋月受风,干咳无痰,咽鼻干燥,恶寒发热,头痛无汗,舌苔薄白少津,脉浮。治疗宜
A.外关、风池B.内关、合谷C.内关、下关D.太溪、行间E.内庭、侠溪
2005年6月5日,1988年7月21日出生的高中一年级学生小龙,因寰宇公司的公交车司机张某紧急刹车而受伤,花去若干医疗费。2006年2月小龙伤愈继续上学,写了授权委托书给其父李某,让他代理其提起诉讼。李某以正当的诉讼参加人的身份于2006年3月对寰宇公司
国际咨询工程师联合会(FIDic)《生产设备和设计——施工合同条件》对不可抗力的定义如下:不可抗力是指某种特殊事件或情况,()。只要满足上述条件的因素就属于不可抗力。
下列特种设备安装过程监督检验的一般程序中,正确的是()。
人民群众之所以是历史的创造者,其根本的原闪在于()。
毛公鼎铭文长达497个字,是目前最长的青铜器铭文。()
在一次数学考试中,第14题和第15题为选做题.规定每位考生必须且只须在其中选做一题.设4名考生选做这两题的可能性均为设这4名考生中选做第15题的学生数为ξ个,求ξ的分布列及数学期望.
在SOLServer2008中,某数据库用户User在此数据库中具有对于表数据的查询和更改权限。现要收回User对于T表的数据更改权,下述是实现该功能的语句,请补全该语句。_______UPDATEONTFROMUser。
最新回复
(
0
)