首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小
admin
2019-03-14
76
问题
在考生文件夹下有一个工程文件Sjt5.vbp,考生文件夹下in5.dat文件中保存有一篇英文短文。程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用Calculate过程统计每个英文字母(不区分大小写)及其出现的次数,并按字母顺序保存到二维数组data中,统计结束后,按字母顺序将统计结果显示到列表框List1中(字母用小写表示,且不含文中未出现的字母);单击“保存”按钮,则保存结果。“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写Calculate过程中的代码以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 Private Sub Calculate(s As String,d()As Variant) Dim ch As String Dim i 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:调试并运行程序,结果如图4.10所示,关闭程序后按题目要求存盘。 [*]
解析
转载请注明原文地址:https://kaotiyun.com/show/ipFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在VisualBasic标准工具栏中,"菜单编辑器"的图标是
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm,此外还有一个名为datain.txt的文本文件,其内容如下:324376582812985731425364758
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger) ...EndSub其中参数KeyCode的值表示的是发生此事件时(
某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中:PrivateSubCommand1_Click() Open"out.txt"ForOutputAs#2 Print"Text1" Close
支持子程序调用的数据结构是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp,在Form1的窗体中有一个文本框、一个计时器和两个命令按钮。程序的功能是在运行时,单击“开始计数”按钮,就开始计数(如图所示),每隔1秒,文本框中的数加1;单击“停止计数”按钮,则停止计数。要求:修改适当
(1)在名称为Form1的窗体上添加一个名称为Com.mahd1的命令按钮(如图1所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能:①窗体标题为“设置按钮属性”;②命令按钮的标题为“等级考试”;③程序运行后,命令
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger m=1:n=0 DoWhilem
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
假定有如下的程序段:DimintVarAsIntegerintvar=TruePrintintVar则输出结果是
随机试题
计算:20+19—18—17+16+15—14—13+12+11一…+4+3—2一1=()。
吩噻嗪类不具有的效应是:
女性,32岁。门诊就诊,2个月来干咳、胸闷憋气,心悸,呼吸困难,夜间发作明显,影响睡眠,既往有过敏性鼻炎,有类似发作病史。听诊双肺散在哮鸣音,心率110次/分。此患者因病情较重收入病房,经用大剂量氢化可的松、氨茶碱等药物滴注,症状未能缓解,痰黏稠难以咳
经第二肝门的横断层图像上,肝右静脉出肝后多开口于下腔静脉的
社会因素的作用中介系统是
石斛的功效是
对热轧带肋钢筋HRB335进行拉伸试验,钢筋规格型号为20mm×400mm。请回答下列问题。钢筋拉伸试验的一组试样数量应为()根。
Christeacheschildrentheguitar______.
A、 B、 C、 A
TipsonReadingI.Three【T1】phasesofreading【T1】______—beforereading—inthecourseofreading—afterreadingII.Pre-rea
最新回复
(
0
)