首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
admin
2017-12-14
41
问题
注意:下面出现的“考生文件夹”均为%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全国计算机二级
相关试题推荐
应用程序窗体的名称属性为Frm1,窗体上有一个命令按钮,其名称属性为Cmd1,单击窗体和命令按钮的事件过程名分别为______。
将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为【】。
窗体文件的扩展名是
当我们输入代码时,VisualBasic可以自动检测______错误。
要建立一个随机文件记录学生的信息,如下定义了学生的记录类型,由学号、姓名、5门课程成绩(百分制)组成,下列的定义正确的是()。
关键字声明的局部变量在整个程序运行中一直存在的是______。
VisualBasic应用程序中,下列关于过程的说法正确的是()。
VisualBASIC应用程序通常由3类模块组成,即窗体模块、【】和类模块。
下列叙述中正确的是
随机试题
新生儿吸入性肺炎中,病死率最高的类型是
女性,30岁,背部肿块,红、肿、疼痛3天,寒战、发热39℃。查体:背部肿物3cm×5cm,触之有波动感。当病灶做局部引流和全身应用抗生素后,仍有寒战、高热。为了提高病人血培养的阳性率,最好的抽血时间是
X线胶片的感光银盐颗粒大小平均为
产后出血最常见的病因是()
不属于测绘单位质量主管负责人职责的是()。
在对具有通用技术的设备进行评标时,可采用的评标方法是()。
某项目共需要贷款资金900万元,建设期为3年,按年度均衡筹资,第1年贷款为300万元,第二年贷款为400万元,建设期内只计利息但不支付,年利率为10%,则第2年的建设期利息应为()万元。
"TheUSeconomyisrapidlydeteriorating,"saysMr.Grannis."Theoddsofarecessionarenowveryhigh,perhapsbytheendoft
在结构化分析使用的数据流图中,使用用______解释其中的图形元素。
She______forawhileandwasunabletomakeadecision,sosheaskedformyhelp.
最新回复
(
0
)