首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数.据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数.据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,
admin
2019-06-24
35
问题
在考生文件夹下有一个工程文件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:调试并运行程序,关闭程序后按题目要求存盘。
解析
通过Mid()函数获取字符,并通过Asc()函数获得字符的ASCII码,并赋值给变量k。定义一个数组a(26)用于存储26个字母的出现次数,根据语句Option Base 1,判断数组的下标为1~26,通过判断ASCII码来计算字母出现的次数,例如k=65(A)或k=97(a),那么a(k一64)和a(k一96)也就是通过a(1)加1来进行计数。再通过对于数组a最大值的查找求出最多的次数,进而求出出现最多的字母并显示出来。
转载请注明原文地址:https://jikaoti.com/ti/44N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp,在窗体上给出了所有控件和不完整的程序,请去掉程序中的注释符,把程序中的“?”改为正确的内容。本程序的功能是:如果单击“取数”按钮,则把考生目录下的in5.txt文件中的15个姓名读到数组a中,并在窗体上显示这些
(1)在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3—158(a)是输入53后的结果,如图3—158(b)是输入100的结果。已经给出了全部控件
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1,标题为“滚动条属性设置”的窗体上画1个名称为VScroll1的垂直滚动条,设置属性,使得滚动块在最上面时,其位置值为10;滚动块在最下面时,其位置值为
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别显示在标签控件数组x中,如图3—167所示。在给出的窗体文件
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有两个文本框,名称分别为Text1、Text2;一个命令按钮,名称为C1,标题为“确定”;请画两个单选按钮,名称分别为op1、op2,标题分别为“男生”、“女生”:再画两个复选框,名称分别为Ch
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上建立一个名称为Command1的命令按钮数组,含三个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,每个按钮
窗体上有两个水平滚动条HV、HT,还有一个文本框Text1和一个标题为“计算”的命令按钮Command1,并编写了以下下程序:PrivateSubCommand1_Click()EndSubPublicSubcalc
鼠标拖放控件要触发两个事件,这两个事件是
数学式y2>x>10在VB中应表示为
数据管理技术发展的三个阶段中,()没有专门的软件对数据进行管理。I.人工管理阶段II.文件系统阶段III.数据库阶段
随机试题
提出“师夷长技以制夷”的思想,开创了中国近代向西方学习的新风,是在
求下列函数的偏导数(或全导数):z=(x+2y)2x+y;
A.生理性萎缩B.全身性萎缩C.内分泌性萎缩D.压迫性萎缩胸腺逐渐缩小属
患者女性,68岁,头晕一年,贫血史,Hb75glL,RBC3.1×1012/L,HCT0.28,血涂片可见红细胞大小不均,中央淡染区扩大,其红细胞直方图曲线可显示为
等渗性缺水的常见原因为
女,28岁,牙龈刷牙出血2年。检查:全口牙石(+),牙龈缘轻度红,探诊出血,探诊深度2mm,未见牙龈退缩。此时对该患者的治疗方法应为
A、肠毒素B、内毒素C、外毒素D、神经毒素E、细胞毒素弧菌的主要致病因素是
女,35岁,肺结核患者,肺内有空洞性病变。最符合的X线表现是
天仙子来源于( )。
下列关于违约金的表述正确的是()。
最新回复
(
0
)