首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
admin
2019-03-14
26
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
结构化程序包括的基本控制结构是
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:324376582812985731425364758
(1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2,标题分别为“姓名”和“年龄”)、两个文本框(名称分别为Text1和Text2,初始内容均为空)和一个命令按钮(名称为Command1,标题为“显示”)。然后编写命令按钮的Cl
假定有以下函数过程:FunctionFun(SAsString)AsString Dims1AsString Fori=1ToLen(S) s1=LCase(Mid(S,i,1))+s1 Nexti
(1)在考生文件央下有一个工程文件sjt3.vbp(相应的窗体义件名为sjt3.frm),在窗体上添加一个名称为List1的列表框和一个名称为Text1的文本框,如图1所示。编写窗体的MouseDown事件过程。程序运行后,如果用鼠标单击窗体,则从键盘上输
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
有两个关系R和S如下:则由关系R得到关系S的操作是
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
随机试题
芍药分为赤芍与白芍两种,始于何本草书籍
BeforetheUnitedStateswasacountry,itwasagroupofEnglishcolonies.Until1763,Englanddidn’treallybothertheAmerica
关于CT模拟定位,下列描述错误的是
左侧继发性精索静脉曲张,应考虑的疾病是()
有关病毒性肝炎的叙述,错误的是
根据房产税法律制度的规定,下列有关房产税计税依据的说法正确的有()。
了解求助者的既往史时,应该包括的内容是()。
“法不责众”是各级领导经常遇到的最头疼的问题,请你从哲学角度谈一谈自己的看法。
Fishermenonthehighseashaveplentyofworries,nottheleastofwhichareboat-tossingstorms,territorialsquabblesandeve
Thatexperiencesinfluencesubsequentbehaviorisevidenceofanobviousbutneverthelessremarkableactivitycalledremembering
最新回复
(
0
)