首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若于个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
在考生目录下有一个工程文件sjt5.vbp和文本文件in5.dat,其中有若于个用一个空格符隔开的英文单词。窗体上有2个命令按钮,其功能是: 单击“读数据”按钮,可以读入in5.dat文件中的所有内容并显示在文本框中。 单击“统计”按钮,能
admin
2020-08-10
36
问题
在考生目录下有一个工程文件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://kaotiyun.com/show/3lHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
对手某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
如果把命令按钮的Cancel属性设置为True,则程序运行后
编写如下程序:PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0s=s&nMod10:s
下列关于线性链表的叙述中,正确的是()。
窗体上有1个名称为Command1的命令按钮,事件过程如下:PfivateSubCommand1_Click()DimnumAsInteger.xAsIntegernum=Val(InputBox("请输入一个正
设菜单编辑器中各菜单项的属性设置如下表所示针对上述属性设置,以下叙述中错误的是
以下关于事件、事件驱动的叙述中,错误的是
设x是小于10的非负数。对此陈述,以下正确的VB表达式是
表达式Int(5.3)+Int(-5.8)>Fix(5.3)+Fix(-5.8)的值是
随机试题
创建商务网站之前应从哪几个方面进行策划与定位?
男性,25岁。房屋倒塌,上半部被压伤,20分钟后入院,神志清,呼吸困难,无腹痛及呕吐等。体检:体温36.5脉搏100次/分,血压120/75mmHg(16/10kPa),呼吸30分,瞳孔反射正常,睑结膜出血,颈部四肢正常。化验:血红蛋白120/L,白细胞1
下列( )情形下的房产,可以免纳房产税。
(2011年)下列收入中.应按“财产租赁所得”缴纳个人所得税的有()。
某日化厂为增值税一般纳税人,2005年8月购进原材料,取得增值税专用发票,注明价款150万元、增值税25.5万元;从小规模纳税人生产企业购进已税香水,取得普通发票,注明金额28.41万元,全部领用生产化妆品;支付购货运费10万元、装卸费0.5万元,包括从小
一般来讲,对目标市场的要求有()。
低碳城市是一个新生事物,没有现成可借鉴的模式。专家指出,对低碳经济的认识问题上,首先需要澄清“低碳等于贫困”“低碳等于高成本”等误区。低碳经济是在较高的文明发展水平下,出现的一种碳生产力水平较高、但人均碳排放水平较低的经济形态。在这个过程中,能源结构的清洁
公安政策是党和国家的意志在公安工作中的体现,是党和国家为实现公安工作任务而规定的指导公安工作的()。
填入下面横线上的两句话,与上下文衔接最恰当的一项是:泰山的南天门又叫三天门,创建于元代,至今已有六百余年。______为“门辟九霄仰步三天胜迹,阶崇万级俯临千嶂奇观”。
FOB
最新回复
(
0
)