首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5vbp,各控件及其属性见窗体文件,窗体界面如图所示。 程序功能如下: (1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中; (2)单击“操作”按钮,则依次完成以
考生文件夹下有工程文件sjt5vbp,各控件及其属性见窗体文件,窗体界面如图所示。 程序功能如下: (1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量a中; (2)单击“操作”按钮,则依次完成以
admin
2019-05-21
120
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
阅读下面程序代码:PrivateSubCommand1_Click()DimtempAsIntegera=Array(2,7,4,10,0,1,8,5,3,9,6)Fori=7To4Step-1Forj=3Toi-1If
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimxAsIntegerStaticsAsIntegerx=Val(InputBox("请输入一个正整数="
窗体上有一个名称为VScrolll的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
命令按钮、单选按钮、复选框都可以通过Picture属性在控件上显示图片,但需事先设置某一属性。该属性为
现有程序如下:OptionBase1PrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i,j)=Int(Rnd*9+1)
在考生文件夹下有一个工程文件sjt4.vbp,运行情况如图所示。程序的功能是计算下列表达式的值:z=(x+2)^2+(x+3)^3+(x+4)^4+…+(x+N)^N其中N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为“计
在考生文件夹下有一个工程文件sjt4.vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Text1、Text2的两个文本框,用于接收输入的M和N(要求M<N)。单击名称为Command1、标题为“计算”的命令按钮,
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合
随机试题
珠蛋白生成障碍性贫血最常见下列哪种异常形态红细胞增多
A.利多卡因B.氯胺酮C.普鲁卡因D.盐酸丁卡因E.氟烷为吸入麻醉药的是
哪种唇色多见于实热证
百合固金汤治疗的病证是麻杏石甘汤治疗的病证是
汉译英:“加尔各答”,正确的翻译为( )。
犯罪未遂中的“犯罪未得逞”是指()。
国家往往通过调节利率对经济活动增加影响。一般认为,利息增加后带来的经济影响是:
假设在数据库表的表设计器中,字符型字段“性别”己被选中,正确的有效性规则设置是
在考生文件夹下打WORD1.docx,按照要求完成下列操作并以该文件名(WORD1.docx)保存文档。【文档开始】甲A第20轮前瞻戚务生和朱广沪无疑是国产教练中的佼佼者,就算在洋帅占主导地位的甲A,他俩也出尽风头。在他们的统领下,云
我从小就对自己没有信心,这是问题的根子。这种情绪使我受到一点点表扬都会难为情,使我怎么也说不出一个“不”字,也使我不敢向父母多要一分钱。此外,这种缺乏的情况也影响了我对钢琴的热爱。
最新回复
(
0
)