首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp,各控件及其属性见窗体文件,窗体界面如图所示。 程序功能如下: (1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中; (2)单击“操作”按钮.则依次完成以下两个任务。
考生文件夹下有工程文件sjt5.vbp,各控件及其属性见窗体文件,窗体界面如图所示。 程序功能如下: (1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中; (2)单击“操作”按钮.则依次完成以下两个任务。
admin
2020-06-30
38
问题
考生文件夹下有工程文件sjt5.vbp,各控件及其属性见窗体文件,窗体界面如图所示。
程序功能如下:
(1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中;
(2)单击“操作”按钮.则依次完成以下两个任务。
任务一:自动统计in5.dat文件(文件中有若干单词,单词之间由一个空格隔开,无其他字符)中单词的个数,并将其值显示在Text1文本框内;
任务二:删除in5.dat文件中的所有定冠词the,并将其个数显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出,请完善“操作”按钮Click事件过程(有一段程序需考生自行编写,另有一处需将注释符去掉,把?改为正确内容),以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,程序须按原文件名存盘。
在结束程序运行之前,必须单击“操作”按钮运行,且必须用窗体右上角的关闭按钮结束程序,否则将影响最终成绩。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(画横线部分是需要填入的内容) Dim a As String Private Sub Command1_Click() Open App.Path&"\in5.dat"For Input As#1 a=Input(LOF(1),#1) Close#1 End Sub Private Sub Command2_Click() Dim s As String Dim Bum As Integer Dim m As Integer,t_num As Integer ’统计单词个数 ’******************************
sp=Split(a," ")
num=UBound(sp)+1
Textl.Text=num ’****************************** ’删除定冠词 s=LCase(Trim(a)) m=InStr(s,"the") Do While m>0 t_num=t_num+1 s=
Left(s,m-1)
+Mid(s,m+4) m=InStr(s,”the”) Loop Text2.Text=t_num End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path&"\out5.dat"For Output As#1 Print#1,Text1.Text,Text2.Text Close#1 End Sub 步骤3:调试并运行程序,单击“读数据”按钮,冉单击“操作”按钮,最后关闭程序后按题目要求存盘。
解析
单击“读数据”按钮,运用文件操作将考生文件夹下in5.dat文件的内容存入变量a中。在Command2_Click()事件中,运用Split()函数把a中的内容以空格分割,得到一个全是单词的一维数组,下标从0开始。UBound()函数可以得到一个数组的下标,该下标加1即为该数组的长度。InStr()函数是字符串匹配函数,例如,InStr(s1,s2),在字符串s1中查找s2的位置,若找到,则返回s2字符串的第一个字符在sl中的位置,找不到则返回0。Left()和Mid()都是字符串截取函数,Left(s,m-1)+Mid(s,m+4)的作用是把已经查到的单词“the”从该字符串中删除,最后把查到的单词“the”的个数显示在text2中。
转载请注明原文地址:https://kaotiyun.com/show/LFHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体中有一个名为Command1的命令按钮,并编写有以下代码。程序执行时,单击命令按钮,输出的结果为()。PublicSubProcl(nAsInteger,ByValmAsInteger)n=nMod10:
在设计窗体时双击窗体的任何地方,可以打开的窗口是
下列有语法错误的赋值语句是
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>D)Ord>c的值是()。
以下能在窗体Forml的标题栏中显示“VisualBasic窗体”的语句是
在窗体画一名为CommonDialog1,则下列与CommonDialogl.ShowOpen方法等效的语句是
以下关于控件的叙述中,正确的是
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
某系统结构图如下图所示该系统结构图的深度是
将E-R图转换到关系模式时,实体与联系都可以表示成()。
随机试题
控制结构图中,表示模块问数据传递的是()
月经来潮后,子宫内膜再生来自下列哪项
阴道出血量与全身症状不成正比胎先露下降受阻,出现病理缩复环
劳动力市场均衡是()。
下列各项中,属于融资租赁标准的有()。
2020年12月初,某企业“应收账款”科目借方余额为300万元,相应的“坏账准备——应收账款”科目贷方余额为20万元,本月应收账款实际发生坏账6万元。2020年12月31日经减值测试,该企业应补提“坏账准备——应收账款”11万元。假定不考虑其他因素,202
甲公司计划出售一项固定资产,该固定资产于2×16年6月30日被划分为持有待售固定资产,公允价值为370万元,预计处置费用为5万元。该固定资产购买于2×9年12月11日,原值为1000万元,预计净残值为零,预计使用寿命为10年,采用年限平均法计提折旧,该固定
在中国,从来没有一条河被寄托了这么多的感情,黄河在被尊为“母亲”时,也被赋予了太多的历史_____________。黄河流经晋陕峡谷到达吉县境内,水面一下子从400多米宽收缩为50余米,《书·禹贡》中只用八个字:“盖河漩涡,如一壶然。”壶口瀑布的_____
资料显示,2003年全球研发投入700强企业高度密集于哪四个行业?从研发经费投入最多的2家公司占行业总投入的比重数据看,行业投入经费高度集中于大型公司的是()
Nosoonershecanreceivethesumofmoneythanshecameupwithanideaofhowthemoneyshouldbespent.
最新回复
(
0
)