首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初
admin
2019-03-14
42
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初始内容为空的文本框,如图所示。
程序功能如下:
①单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出)。
②单击“统计”按钮,自动统计in5.dat文件中所含各字母(不区分大小写)出现的次数,并统计次数最多的字母显示在Text1文本框内,它所出现的次数显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出,请为“统计”按钮编写适当的事件过程实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行统计,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,添加两个标签控件,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初始值为空的文本框。 步骤2:打开代码编辑窗口,在指定位置编写如下代码。 Dim a(1 To 26)As Integer’定义数组a用于存放字母出现个数 Dim max As Integer n=Len(S)’Len的功能是求字符串的长度 For i=1 To n k=Asc(Mid$(S,i,1))’依次获取字符 If(k>=65 And k<=90)Then a(k一64)=a(k一64)+1‘当为大写字母时,满足条件则计数 End If If(k>=97 And k<=122)Then a(k一96)=a(k一96)+1’当为小写字母时,满足条件则计数 End If Next i max=0 For m=1 To 26’循环查找出现次数最多的值 If max<a(m)Then max=a(m) End If Next m Text2=max’显示出现次数 For m=1 To 26’找到出现次数最多的值的下标 If a(m)=max Then 1=m’将下标记下 End If Next m Text1=Chr(1+64)’通过下标找到对应的字母 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/tzUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在下面语句或函数中,不能描述选择结构的是
有下面的程序段:x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommandl——Click()Dima(10)AsInteger,maxAsIntegerFork=1To10a(k)=InputBox(“
以下关于VB的叙述中,错误的是
产生100以内(不含100)2位随机整数的VisualBasic表达式是
以下合法的VB变量名是
下面程序运行时,若输入395,则输出结果是PrivateSubCommandlClick0Dimx%x=InputBox(“请输入一个3位整数”)PrintxMod10,x\100,(xMod100)\10EndSub
检查软件产品是否符合需求定义的过程称为
软件测试的目的是
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:①
随机试题
Theautomobilehasgivenpeopleincrediblefreedomofmovement.Itenablesthemtodecidewheretheywanttogoandwhen.Theau
在环境温度低于20℃时,人体散热的方式主要有()
某市卫生局经调查取证,认定某公司实施了未经许可擅自采集血液的行为,依据有关法律和相关规定,决定取缔该公司非法采集血液的行为,同时没收5只液氮生物容器。下列哪些说法是正确的?(2008—卷二—89,多)
疏散走道防火检查主要包括对疏散走道宽度、疏散距离、疏散走道的畅通性、疏散走道与其他部位分隔以及疏散走道的装修材料进行检查。下列建筑物疏散走道畅通性设置中不符合现行国家工程消防技术标准的要求的是()。
烟胶片(简称R.S.S)()
组距数列中的上限一般是指()。
按照我国现行规定,人民币活期储蓄存款的起存金额是()元。
下列关于现代企业人力资源管理的说法,不正确的是()。[2013年11月二级真题]
根据下面材料回答问题。2014年1--5月,我国软件和信息技术服务业实现软件业务收入约13254亿元,同比增长20.9%,比去年同期回落3.3个百分点。其中,软件产品完成收入4141亿元,信息系统集成服务完成收入2649.3亿元,信息技术咨询服务
(A)条件(1)充分,但条件(2)不充分。(B)条件(2)充分,但条件(1)不充分。(C)条件(1)和(2)单独都不充分,但条件(1)和条件(2)联合起来充分。(D)条件(1)充分,条件(2)也充分。(E)条件(1)和(2)单独都不充分,条件(1)
最新回复
(
0
)