首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
admin
2016-08-24
53
问题
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框List1中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案 Private Sub Calculate(s As String,d()As Variant) End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Calculate过程中利用For循环逐个取出文本字符串s中的字符,然后将所有字符使用LCase函数转换为小写,小写字母的ASCII码取值范围为65到90之间,再将每个字母及其出现的次数存储到二维数组d中。
转载请注明原文地址:https://kaotiyun.com/show/i4Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的哪个属性
下面程序段执行结果为x=Int(Rnd()+4)SelectCasex Case5 Print"excellent" Case4 Print"good" Case3 Print"
设Y是整形变量,能判断Y为奇数的表达式是
软件危机出现于20世纪60年代末,为了解决软件危机,人们提出了______的原理来设计软件,这就是软件工程诞生的基础。
下列叙述中正确的是()。
下面4个语句中,能打印显示20*30字样的是()
如果要在单击命令按钮时执行一段代码,则应将这段代码写在______事件过程中。
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
将E—R图转换到关系模式时,实体与实体间的联系可以表示成()。
同一概念在一处为实体而在另一处为属性或联系的冲突在视图集成中叫()。
随机试题
受刺激后,机体由活动状态转变为相对静止状态称为抑制。
S-R变异是指()
以下哪项不是糖尿病健康教育的内容()
A.去甲肾上腺素重摄取抑制剂B.5-HT重摄取抑制剂C.单胺氧化酶抑制剂D.硫杂蒽类抗精神病药E.吩噻嗪类抗精神失常药物阿米替林
工程项目施工应建立以( )为首的生产经营管理系统。
ABC公司是商业批发公司,经销的一种商品原信用政策为n/30,每天平均销量为20个,每个售价为75元,平均收账天数40天;公司销售人员提出了新的政策,以便促销,新的政策包括改变信用政策:“2/10,n/50”,同时以每个60元的价格销售,预计改变政策后每天
系统产生死锁的可能原因是()。
"Cool"isawordwithmanymeanings.Itstraditionalmeaningisusedto【C1】______atemperaturethatisfairlycool.Astheworld
Consumersandproducersobviouslymakedecisionsthatmoldtheeconomy,butthereisathirdmajor【C1】______toconsidertherole
Forthispart,youareallowed30minutestowriteashortessayentitledOfferingYourSeat-Youshouldstartwithabriefdesc
最新回复
(
0
)