首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
admin
2017-12-14
74
问题
注意:下面出现的“考生文件夹”均为%IJSER%。
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框Listl中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
calculate过程中利用For循环逐个取出文本字符串s中的字符,然后将所有字符使用Lcase函数转换为小写,小写字母的AsCll码取值范围为65到90之间,再将每个字母及其出现的次数存储到二维数组d中。 【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(阴影部分是需考生填入的内容) Private sub Calculate(8 As String,d() As Variant) Dim ch As String Dim ch 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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/ygGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有1个垂直滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
当我们输入代码时,VisualBasic可以自动检测______错误。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateSubCommand1_Click()Dimal(4,4),a2(4,4)Fori=1To4Forj=1T
下列叙述不正确的是()。
下列叙述中不正确的是()。
与传统的程序设计语言相比,VisualBasic最突出的特点是()。
对于图书管理数据库,将图书表中"人民邮电出版社"的图书的单价涨价5%。请对下面的SQL语句填空:UPDATE图书【】WHERE出版单位="人民邮电出版社"
以下可以作为VisualBasic变量名的是()。
对长度为n的线性表进行顺序查找,在最坏情况下需要比较的次数为()。
软件需求规格说明书的作用不包括
随机试题
纺织印染厂与服装加工厂联合属于【】发展战略。
尿中β2微球蛋白增多而血中不增高,这种蛋白尿属于
甲乙双方订立的商品房买卖合同中约定:“乙将自己开发建设的某公寓A座第10层住房出售给甲,2010年11月8日交付房屋”。2010年9月27日,甲发现该公寓A座仅盖到第2层。根据合同法规定,()。
四大佛教名山是()。
审核引进的国外电子出版物时,为避免出现严重政治问题,特别要注意寻找和审核()文件。
你是新提拔的年轻领导干部,所分管的科室负责人中,既有你的老师,也有你的师兄,还有大学时代的同学。他们有时在你面前摆资格。对此,你会怎样处理呢?
2007年6月与2006年同期相比,网民数增加了:下列说法正确的是:
一小偷藏匿于某商场,三名保安甲、乙、丙分头行动搜查商场的100家商铺。已知甲检查过80家,乙检查过70家,丙检查过60家,则三人都检查过的商铺至少有()家。
Asthesemesterisdrawingtoanend,thestudentunioniscallingonitsyouthto_____thetemptationtocheatonexams.
性情
最新回复
(
0
)