首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
admin
2019-03-14
46
问题
在考生文件夹下有一个工程文件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"
在VisualBasic标准工具栏中,"菜单编辑器"的图标是
软件工程的三要素是
下面程序运行时,若输入395,则输出结果是( )。PrivateSubCommand1_Click() Dimx% x=InputBox("请输入一个3位整数") PrintxMod10,x\100,(xMod100)\10
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
在考生文件央下有一个工程文件sjt5.vbp,功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:a2+b2=c2。例如,3、4、5就是一个满足条件的整数组合(注意:a.b,c分别为4,3,5与分别为3,4,5被视为同一个组合,不应该重复计算)
在关系模型中,每一个二维表称为一个
随机试题
阅读材料,回答问题。材料12019年10月28日至31日,党的十九届四中全会在北京召开。全会专题研究坚持和完善中国特色社会主义制度,推进国家治理体系和治理能力现代化问题,审议通过了《中共中央关于坚持和完善中国特色社会主义制度,推进国家治
底物浓度越高,酶的活性也越高。()
B:您约好了吗?
尿毒症患者发生肾性骨病的最主要原因是
监理用表中的各方通用表类中,有权签发监理工作联系单的负责人包括( )。
当银行业从业人员对所在机构的处分有异议时,采取的正确行为是()。
古人在称呼一些以技艺为职业的人时,常在其名前加一个表示其职业的字,如《师说》中的“师襄”,“师”表示的职业是()。
2013年,广东固定资产投资总量迈上新台阶,共完成22858.53亿元,增长18.3%,比2012年加快2.8个百分点。其中,城镇投资18907.34亿元,增长18.6%;农村投资3951.19亿元,增长17.0%。2013年,广东第三产业完成
unilateralism
若把一个大的金属球表面涂上油漆,需要油漆5千克,若把这个金属球熔化后,制成64个半径相同的小金属球(不计损耗),如果将这些小球的表面涂上油漆,则需要油漆()千克.
最新回复
(
0
)