首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若于个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若于个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
admin
2020-08-10
34
问题
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若于个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是:
单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。
单击“统计”按钮,能够统计长度为5的单词的个数和含有小写字母“a”的单词的个数,并把统计结果依次显示在Text2、Text3文本框中。
要求:
(1)去掉程序中的注释符,把程序中的?改为正确的内容。
(2)编写函数found的代码。
注意:不能修改程序的其他部分和控件属性,必须通过单击窗体右上角的“×”结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
Mid( )函数的作用是从一个字符串中截取出指定数量的字符。对取得的字符串S的每一个字符进行遍历,若字符不为空格,则将遍历的字符进行拼接;若字符为空格,则对拼接的字符长度进行判断,若为5个字符,则长度为5的单词个数加1;再对拼接的字符是否含有“a”进行判断,若存在字符“a”,则含有字母“a”的单词个数加1。 第1个?处对字符串s进行定义;第2个?处对字符进行拼接;第3个?处由于在Ⅱ结构处调用,则返回值应为布尔值。 考生编写的found( )函数的作用是,两个参数字符串st 和字符串ch,判断ch是否在st中,若在st中,则返回Tree,否则返回False:对字符串st进行遍历,若遍历出来的字符串等于字符串ch,则返回Tree并结束Function过程,否则返回False。 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 Option Base 1 Dim s As String Private Sub Command1_Click( ) Open App.Path&“\in5.dat”For Input As#1 Line Input#1,s Close#1 Text1.Text=s End Sub Private Sub Command2_Click( ) If Len(s)=0 Then MsgBox“请先使用“读数据”功能!” Else ch $=“” For k=1 To Len(s) c=Mid(s,k,1) If c<> “” Then ch=ch+c Else If Len(ch)=5 Then m=m+1 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,1) If a =ch Then Found=True Exit Function End If Next k found =False ‘**********************考生编写结束********************** End Function Private Sub Form_Unload(Cancel As Integer) Open App.Path&“\out5.dat”For Output As#1 Print#1,Text2.Text.Text3.Text Close #1 End Sub 步骤3:调试并运行程序,单击“读数据”按钮,再单击“统计”按钮,结果如图5.5所示,最后关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/D3S0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有两个关系R和S如下:则由关系R得到关系S的操作是
己知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是
结构化程序所要求的基本结构不包括
在程序中要使用Array函数给数组arr赋初值,则以下数组变量定义语句中错误的是()。
窗体上有一个名称为Commandl的命令按钮。其单击事件过程如下:PrivateSubCommand1Click()Open”c:kfl.txt“ForInputAs#1:Open”c:\f2.txt”ForOutputAs#2DoWh
设窗体名称为frmTest,为了在程序代码中将窗体的标题改为“等级考试”,其代码应该是()。
在设计阶段,假定在图片框Picture1中装入了一个图形,为了删除该图片框控件,应采用的正确操作是
在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommand1_Click()Dima(10)AsInteger,maxAsIntegerFork=1To10
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt。in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a
随机试题
当前采用最为广泛的一种互联网接入技术是【】
仲裁委员会收到仲裁申请书之目起()日内,认为符合受理条件的应当受理,并通知当事人;认为不符合受理条件的,应当书面通知当事人不予受理,并说明理由。
用标准差比较分析两个同类总体平均指标的代表性,其基本的前提条件是()。
下列各项关于现金折扣会计处理的表述中,正确的是()。
2010年1月,注册会计师甲、乙、丙三人在北京成立了一家会计师事务所,性质为特殊的普通合伙企业。甲、乙、丙在合伙协议中约定:(1)甲、丙分别以现金300万元和50万元出资,乙以一套房屋出资,作价200万元,作为会计师事务所的办公场所;(2)会计师事务所
由于IP地址难于记忆,人们采用域名来表示网上的主机,域名与IP地址的对应关系是由,()进行转换的。
已知随机变量X与Y均服从0—1分布,且E(XY)=,则P{X+Y≤1}=()
在下列存储管理方案中,(1)是解决内存碎片问题的有效方法。虚拟存储器主要由(2)组成。
Belowaresomeopinionsofpeopleaboutwhetherfirecrackersshouldbebannedornot.Lookattheoutlinebelowandwriteaness
____,thehunterwentintotheforest.
最新回复
(
0
)