首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
admin
2020-06-30
63
问题
在考生文件夹下有一个工程文件sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框List1中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案 Private Sub Calculate(s As String,d()As Vari ant) Dim eh As String Dim i As Integer For i=l To Len(s) ch=Asc(LCase(Mid(s,i,1))) lf ch>=97 And ch<=122 Then d(ch-96,1)=Chr(ch) d(ch-96,2)=d(ch一96,2)+1 End If Next i End Sub 步骤3:调试并运行程序,结果如图4.10所示,关闭程序后按题目要求存盘。 [*]
解析
Calculate过程中利用For循环逐个取出文本字符串s中的字符,然后将所有字符使用LCase函数转换为小写,小写字母的ASCII码取值范围为65到90之间,再将每个字母及其出现的次数存储到二维数组d中。
转载请注明原文地址:https://kaotiyun.com/show/eFHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:OptionBase1PrivateSubCommandl_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i
下列关于键盘事件的说法中,正确的是()。
能够用于标识对象名称的属性是
下列叙述中正确的是
下列关于菜单项的描述中,错误的是
以下叙述中错误的是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回f(x)的
下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
随机试题
采用正反冲砂方式,在改反冲砂前正洗井应不小于()。
Mostpeopleagreethatthedirect,assertive(过分自信的)Americanpersonalityisavirtue,butitsometimessurprisesforeigners.In
取半坐卧位时,床头支架的角度应为
某工业安装项目通过招标,建设单位与土建施工单位和设备安装单位分别签订了施工合同。设备安装时,监理工程师发现土建单位施工的某一设备基础预埋地脚螺栓位置与设备底座相应的尺寸不符,设备安装单位无法将设备安装就位,造成设备安装单位工期延误和费用损失。经调整,土建单
在同一平面图上,任何两条等产量线不能相交。()
营业税的计税依据是()。
教师的终身发展有四个层次。其中,能够研究教学,追求教师在教学工作中的个人价值的实现,在学生的成长中求得自我发展。这属于哪个层次?()
如果政府的主导和介入过强,就容易_______甚至打破政府与社会组织的职责边界,甚至出现政府_______的现象,挤占社会组织自主发展的空间。填入画横线部分最恰当的一项是:
Alan"Ace"GreenbergchosehisnicknametoimprovehischanceswithgirlsattheUniversityofMissouri.Butitisanapt(1)___
John.D.Rockefeller,______,owned90percentofallAmericanoilrefineries.
最新回复
(
0
)