首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
注意:下面出现的“考生文件夹”均为%IJSER%。 在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调
admin
2017-12-14
71
问题
注意:下面出现的“考生文件夹”均为%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全国计算机二级
相关试题推荐
在VisualBasic中,下列优先级最高的运算符是
窗体文件的扩展名是
在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFu
为了在运行时能显示窗体左上角的控制菜单框,必须______。
一组具有相同名称,不同下标的下标变量称为______。
用Write和Print语句向文件中写入多个数据的差别在于______。
数据结构中,与所使用的计算机无关的是数据的
VisualBasic程序中分隔各语句的字符是
下列关于菜单的说法错误的是()。
以下关于图片框控件的说法中,错误的是
随机试题
论述中共八大的内容和意义。(内蒙古大学2016年中国史真题)
手工矫正厚钢板的要点有哪些?
政治
33岁,输卵管妊娠破裂致严重腹腔内出血,以下哪项不宜使用自体输血
某男性患者,55岁。软腭处有一疱,约1cm大小,稍有糜烂,疼痛明显。皮肤尼氏征阳性。镜下可见,棘层松解,上皮内疱形成。基底细胞附着于结缔组织的上方,疱底可见不规则的乳头成绒毛状突起,突起表面有基底细胞层。病理诊断可考虑为()
规范中永久链路的定义是()。
中国古代教育有两条线索,官学和私学。官学的优点是:有正式的场所,有讲堂,藏书楼,有固定的学田,经济上有_________,私学的长处是:可以自由讲学,老师以个人身份讲学,不一定是朝廷的官员,因此思想_________。依次填入画横线部分最恰当的一项是(
从所给的四个选项中,选择最合适的一个填入问号处,使之呈现一定的规律性。
科田法
Howmanyofuswouldtempforthreeyearswhilewewaitedfortheperfectjob?Notmanyofus,perhaps.ButWentworthMiller,th
最新回复
(
0
)