首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
admin
2019-03-14
60
问题
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框List1中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 Private Sub Calculate(s As String,d()As Variant) Dim ch As String Dim i 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:调试并运行程序,结果如图4.10所示,关闭程序后按题目要求存盘。 [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/ipFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为CD1的通用对话框,1个名称为Command1的命令按钮,并有如下程序:PrivateSubCommand1_Click()CD1.CancelError=TrueCD1.FileName="new.txt"
设有关系表学生S(学号,姓名,性别,年龄,身份证号),每个学生学号唯一。除属性学号外,也可以作为键的是
软件工程的三要素是
窗体上有一个菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。下列说法错误的是()。
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
有如下程序:PrivateSubForm_Click() DimiAsInteger,nAsInteger Fori=1To20 i=i+4 n=n+i Ifi>10ThenExitFor
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
在关系模型中,每一个二维表称为一个
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
随机试题
Somepeopleworryaboutmycollectingofthosefascinatingbirdsandanimalsthattheypaytoseeinthezoo.Oneofthequestio
A.痰滞于胃B.饮停于胃C.痰凝肌肤D.痰阻经络纳呆恶心,呕吐痰涎。为
某医院年终对全院职工的基本情况作调查了解,其中有以下情况:死亡一人,医生甲因病在家闲了接近2年,医生丙参与经营未从事医疗两年多,医生丁承包医院的第二门诊三年,其余大多数仍在医院坚持工作,依据执业医师法,下列人员中,属于应当注销注册,收回医师执业证书的是
有机整体的"主宰"是()
(2006年简答题)甲、乙、丙、丁四人共同投资设立A普通合伙企业。合伙协议的部分内容如下:由甲、乙执行合伙企业事务,丙、丁不得过问企业事务;利润和损失由甲、乙、丙、丁平均分配和分担。在执行合伙企业事务过程中,为提高管理水平,甲自行决定聘请王某担任合伙企业经
(2011年)2010年4月6日,甲公司为履行与乙公司的买卖合同,签发一张已经由本公司承兑的商业汇票交付乙公司,汇票收款人为乙公司,到期日为10月6日。4月14日,乙公司将该汇票背书转让给丙公司。9月8日,丙公司持该汇票向其开户银行Q银行办理贴现。该汇票到
周师傅在某单位工作,该单位周一到周五为工作日,周六周日双休。已知某年的8月1日是星期五,那么周师傅在该年8月一共需要出勤()天。
甲、乙、丙、丁四人的车分别是白、黑、红、蓝。在问到他们各自车的颜色时,甲:“乙的不是白色”,乙:“丙的是蓝色”,丙:“丁的不是红色”。丁:“甲、乙、丙三人的车有一个是蓝色,而且只有车的颜色是蓝色的这个人说了实话。”如果丁说的是实话,那么以下说法正确的是哪一
关于十九世纪七八十年代的“边疆危机”下列正确的表述有()
AnewstudypublishedinthejournalProceedingsoftheRoyalSocietyBbytheteamsofDr.GregoryWestandDr.VeroniqueBohbo
最新回复
(
0
)