首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
admin
2017-12-14
21
问题
注意:下面出现的“考生文件夹”均为%IJSER%。
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框Listl中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
calculate过程中利用For循环逐个取出文本字符串s中的字符,然后将所有字符使用Lcase函数转换为小写,小写字母的AsCll码取值范围为65到90之间,再将每个字母及其出现的次数存储到二维数组d中。 【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(阴影部分是需考生填入的内容) Private sub Calculate(8 As String,d() As Variant) Dim ch As String Dim ch As Integer For i=1 To Len(s) ch=Asc(LCase(Mid(s,i,1))) If ch>=97 And ch<=122 Then d(ch-96,1)=Chr(ch) d(ch-96,2)=d(ch-96,2)+1 End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/ygGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有1个垂直滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
函数String(n,"str")的功能是
单击一次命令按钮,下列程序代码的执行结果为()。PrivateSubCommandl_Click()DimaAsInteger,bAsInteger,CASIntegera=2:b=3:c=4
关键字声明的局部变量在整个程序运行中一直存在的是______。
下列叙述中不正确的是()。
下列叙述中,不属于软件需求规格说明书的作用的是
软件设计中,有利于提高模块独立性的一个准则是
软件开发的结构化生命周期方法将软件生命周期划分成______。
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
随机试题
编制预算草案的具体事项由()部署。
烟碱样(N样)症状有【】
该病人的诊断应首先考虑该病人的首要护理诊断是
患者,男性,35岁。因饱餐和饮酒后6小时出现中上腹疼痛,放射至两侧腰部,伴有呕吐2次,为胃内容物,自觉口干,出冷汗。查体:T38℃,四肢厥冷,脉搏116次/分,血压75/45mmHg,腹膨胀,全腹弥漫性压痛、反跳痛和肌紧张,肝浊音界存在,移动性浊音阳性
交通运输主管部门制定的年度工程质量监督检查计划内容主要包括()以及有关要求等。
某进出口公司出口锌矿砂100吨海运到菲律宾马尼拉,成交价格为FOB天津500美元/吨,锌矿砂的出口关税税率为30%,试计算应纳出口关税多少?(其适用中国人民银行公布的基准汇率为1美元=8.11元人民币)
同业存放属于商业银行的资产业务。()
许多家庭的门上都装有防盗门镜(俗称“猫眼”)。从室内透过防盗门镜向外看,可以看到来客的正立、缩小的像。由此可以断定,此时防盗门镜的作用相当于一个()。
进士科的开始标志着何种选拔人才制度的产生
•Readthearticlebelowaboutselectingbrandnames.•Inmostofthelines41-52thereisoneextraword.Itiseithergrammat
最新回复
(
0
)