首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5vbp,各控件及其属性见窗体文件,窗体界面如图所示。 程序功能如下: (1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中; (2)单击“操作”按钮,则依次完成以
考生文件夹下有工程文件sjt5vbp,各控件及其属性见窗体文件,窗体界面如图所示。 程序功能如下: (1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中; (2)单击“操作”按钮,则依次完成以
admin
2019-05-21
25
问题
考生文件夹下有工程文件sjt5vbp,各控件及其属性见窗体文件,窗体界面如图所示。
程序功能如下:
(1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中;
(2)单击“操作”按钮,则依次完成以下两个任务。
任务一:自动统计in5.dat文件(文件中有若干单词,单词之间由一个空格隔开,无其他字符)中单词的个数,并将其值显示在Text1文本框内;
任务二:删除in5.dat文件中的所有定冠词the,并将其个数显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出,请完善“操作”按钮Click事件过程(有一段程序需考生自行编写,另有一处需将注释符去掉,把?改为正确内容),以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,程序须按原文件名存盘。
在结束程序运行之前,必须单击“操作”按钮运行,且必须用窗体右上角的关闭按钮结束程序,否则将影响最终成绩。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(画线部分是需要填入的内容) Dim a As String Private Sub Commandl_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 num As Integer Dim m As Integer,t_num As Integer 统计单词个数 ’******************
sp=Split(a," ")
num=UBound(sp)+1
Text1.Text=Bum ’****************** ’删除定冠词 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:调试并运行程序,单击“读数据”按钮,再单击“操作”按钮,结果如图5.8所示,最后关闭程序后按题目要求存盘。 [*]
解析
单击“读数据”按钮,运用文件操作将考生文件夹下in5.dat文件的内容存入变量a中。在Command2_Click()事件中,运用Split()函数把a中的内容以空格分割,得到一个全是单词的一维数组,下标从0开始。UBound()函数可以得到一个数组的下标,该下标加1即为该数组的长度。InStr()函数是字符串匹配函数,例如,InStr(s1,s2),在字符串s1中查找s2的位置,若找到,则返回s2字符串的第一个字符在s1中的位置,找不到则返回0。Left()和Mid()都是字符串截取函数,Left(s,m-1)+Mid(s,m+4)的作用是把已经查到的单词“the”从该字符串中删除,最后把查到的单词“the”的个数显示在text2中。
转载请注明原文地址:https://kaotiyun.com/show/aHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Form1的窗体上添加一个名称为Image1的图像框,有边框,并可以自动调整装入图片的大小以适应图像框的尺寸;再添加三个命令按钮,名称分别为Command1、Command2、Command3,标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程序,单击窗体,输出结果是
以下关于控件数组的叙述中,错误的是
软件设计中模块划分应遵循的准则是
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有一个计时器和两个命令按钮。计时器Timer1的初始状态为不可用;2个命令按钮的初始标题分别是“演示”和“退出”。请添加一个名称为Label1,且能根据标题内容自动调整大小的标签,其标题为“Visual
要想不使用Shift或Ctrl键就能在列表框中同时选择多个项目,则应把该列表框的MuhiSdect属性设置为
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
有下面程序代码:PrivateSubCommand1_Click()DimsignAsIntegersign=13a=1b=2Fork=1To5c=a+sign*ba=bb=cPrintc;sign=-signNe
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。其功能是单击“输入数据”按钮,则可输入一个整数n(要求:8≤n≤12);单击“计算”按钮,则计算1!+2!+3!…+n!的值,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到
随机试题
高血压脑出血好发于女口下哪些部位()
化妆品标签应注明
《中华人民共和国渔业法》规定:在鱼、虾、蟹洄游通道建闸、筑坝,对渔业资源有严重影响的,()应当建造过鱼设施或者采取其他补救措施。
有形席位和无形席位之间的本质的区别是在证券交易所是否有实际工作位置。( )
作为中国旅游业标志的“马踏飞燕”是()青铜器,1969年出土于甘肃武威。
根据以下文字资料,回答问题。2006年与2002年末相比,全社会主要运输方式完成客运量由1608150万人增加到2024158万人,年均增长5.9%;旅客周转量由14126亿人公里增加到19197亿人公里,年均增长8.0%;货运量由1482737万吨增
“人有知学,则有力矣。”这句强调知识作用的话出自()。(2014年)
下列是关于关系数据模型和关系表的说法:Ⅰ.关系数据模型以集合论为基础表示和处理数据Ⅱ.关系数据模型同时支持非过程化语言和过程化语言直接存取数据Ⅲ.“createtable…”语句用于定义关系表的结构及数据完整性约束
A、 B、 C、 A
HenryFordExperimentingwithhouseholdobjectscanoftengetyoungpeopleintrouble,butforoneintelligent,inquisitive
最新回复
(
0
)