首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
admin
2017-12-14
45
问题
注意:下面出现的“考生文件夹”均为%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全国计算机二级
相关试题推荐
一个文本框,要使它显示多行文件,应使它的______值的设置为Ture。
用Write和Print语句向文件中写入多个数据的差别在于______。
设有命令按钮Commandl的单击事件过程,代码如下:PrivateSubCommandl_Click()Dima(3,3)AsIntegerFori=1To3Forj=1To3
在VisualBasic中,下列优先级最高的运算符是
下列叙述中正确的是______。
VisualBasic一共有设计、运行和中断三种模式,要使用调试工具应该()。
关键字声明的局部变量在整个程序运行中一直存在的是______。
当对命令按钮的Picture属性装入.bmp图形文件后,命令按钮上并没有显示所需的图形,原因是没有对某个属性设置为1,该属性是()。
VisualBasic程序中分隔各语句的字符是
以下说法中正确的是()。
随机试题
简述狭义无权代理的情形。
先天性心脏病的并发症是
男性,38岁,车祸伤半小时。查体:发绀,烦躁不安,呼吸困难。左胸第5肋间处见直径约4cm不规则创口并可闻及气体进出声。此病例的病理生理改变是
ABC会计师事务所通过招投标程序接受委托,负责审计上市公司甲公司2008年度财务报表,并委派A注册会计师为审计项目组负责人,在招投标阶段和审计过程中,ABC会计师事务所遇到下列与职业道德有关的事项:(1)应邀投标时,ABC会计师事务所在其投标书中说明,如果
适应障碍是指在遭遇生活事件后()起病。
在五四运动95周年之际,习近平总书记到北京大学考察,勉励青年学生“人生的扣子从一开始就要扣好”。请联系实际,谈谈你对这句话的认识。
接受学习一定是没有意义的,发现学习一定是有意义的。
设D={(x,y)|0≤x≤π,0≤y≤π},则等于()
Lovecan’tconquerall.So,beforecouplestietheknot,theyshouldknowwhatthey’regettinginto.Thetabooagainstcouplesl
Inrecentyears,railroadshavebeencombiningwitheachother,mergingintosuper-systems,causingheightenedconcernsaboutm
最新回复
(
0
)