首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若干个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
admin
2020-04-08
61
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click() Dima&,s&,k& s=1 a=2 Fork=2To10
如果把Text1文本框的MousePointer属性设置为2(把鼠标光标设置为十字),则
有如下过程:Subproc()DimchAsStringOpen"file1.txt"ForInputAs#1Open"file1_bak.txt"ForOutputAs#2DoWhi
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
关于MDI窗体下列说法正确的是()。
以下能够设置控件焦点的方法是( )。
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是()。
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是()。
随机试题
SLE患者最易受累的脏器是
《执业兽医管理办法》适用于在中华人民共和国境内从事()活动的兽医人员
工程建设国家标准的制定程序主要包括以下几个阶段()。
某企业进行人力资源需求与供给预测。经过调查研究与分析,确认本企业的销售额(万元)和所需销售人员数量(人)成一元线性正相关关系,并根据过去10年的统计资料建立了一元线性回归预测模型Y=a+bX,其中:X代表销售额,Y代表销售人数,回归系数a=52,b=0.0
立法、行政、司法的“三权分立”思想是由()提出的。
一副对联的上下联之间,内容应当相关,____________上下联各写一个不相关的事物,两者不能照映、贯通、呼应,____________不能算一副合格的对联,____________不能算作对联。依次填入画横线部分最恰当的一项是()。
在考生文件夹下完成如下简单应用:(1)建立一个满足下列要求的表单文件tab。①表单中包含一个页框控件Pageframel,该页框含有3个页面:Pagel、Page2、Page3,三个页面的标题依次为“学生”、“课程”和“成绩”。
有如下程序:#includeusingnamespacestd;intmain(){intsum=0;for(inti=0;i
ThehistoryofresponsestotheworkoftheartistSandroBotticelli(1444-1510)suggeststhatwidespreadappreciationbycritic
Losingajobornotbeingabletofindonealmostalwaysbringsunwelcomechanges.Ifyou’velostajob,thefirstfeelingisof
最新回复
(
0
)