首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
admin
2019-05-14
48
问题
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框List1中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的(Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案 Private Sub Calculate(s As String,d()As Vailant) 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/jUUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是()。
下列程序段的执行结果为()。Forml.Clsa=“ABBACDDCBA”Fori=6To2Step-2x=Mid(a,i,i)y=Left(a,i)z=Right(a,i)
在数据库设计中,将E-R图转换成关系数据模型的过程属于()。
在利用菜单编辑器设计菜单时,为了把组合键设置为“打开(0)”菜单项的访问键,可以将该菜单项的标题设置为()。
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTestl。设窗体Forml标题为“MyForml”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTestl——Click(Index
下列选项中,不属于数据库管理的是()。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml、标题为“鼠标光标形状”的窗体上画一个名称为Textl的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框巾时,鼠标光标为箭头(Arrow
在考生文件夹下有一个工程文件sit5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框Listl中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
数列1,1,3,5,9,15,25,41,…,的规律是从第三个数开始,每个数是它前面两个数的和加1。在考牛目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图3.106所示。请编写适当的事件过程实现以下功能:在Text1中输入整数40,单击
随机试题
转录时编码链的序列是5’-TGACGA-3’,其转录产物的结构应该是
A.饮食缺碘B.体质虚弱C.情志不畅D.外感邪毒E.肾气亏虚
肾病综合征患者最突出的体征是
解图图形,属于()材料。
后张法预应力(较先张法)优点是()。
王某聘请注册税务师对其股票项目的个税进行咨询,具体资料如下:2013年3月购入某上市公司的股票10000股,此后,上市公司公布2012年度的利润方案为每10股送3股,并于2013年6月份实施,该股票的面值为每股1元。注册税务师认为,上市公司应扣缴王某的个人
银行监管的依法原则是指()。
已知销售单价的敏感系数为3.2,为了确保下年度企业不亏损,则销售单价下降的最大幅度为()。
Sincetheadversityquotientconsiderablycontributestoourlifeandsocialprogress,weareobligatedtotrainourselvessoas
Certificates are(16)documents attesting to the(17)of a public key to an individual or other entity. They allow verification of t
最新回复
(
0
)