首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在学生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初
在学生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初
admin
2016-09-06
31
问题
在学生文件夹下有一个工程文件sjt5.vbp,窗体上有两个命令按钮,标题分别是“读数据”和“统计”,请添加两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为Text1和Text2,初始内容为空的文本框,如图所示。
程序功能女如下:
①单击“读数据”按钮,则将学生文件夹下in5.dat文件的内容读到变量s中(此过程已给出)。
②单击“统计”按钮,自动统计ins.dat文件中所含各字母(不区分大小写)出现的次数,并统计次数最多的字母显示在Text1文本框内,它所出现的次数显示在在Text2文本框内。
“读数据”按钮的Click事件过程已经给出,请为“统计”按钮编写适当的事件过程实现上述功能。
注意:考生小得修改窗休文件中已经存在的控件和程序,在结束程序运行之前,必须进行统计,且必须用窗休右上角的关闭按钮结束程序,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,添加两个标签控件,名称分别为Label1和Labe12,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再添加两个名称分别为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
解析
转载请注明原文地址:https://kaotiyun.com/show/XZLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在用Open语句打开文件时,如果省略“For方式”,则打开的文件的存在方式是______。
不能打开属性窗口的操作是()。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() c=1234 c1=Trim(Str(c)) Fori=1To4 Pri
阅读下面的程序段:Fora=1To2 Forb=1Toa Forc=bTo2 i=i+1 Next NextNextPrinti执行上面的
下列程序的功能是:将数据1,2,…,10写入顺序文件Base.txt中,请填空。PrivateSubForm_Click()DimiAsInteger Open______As#1 Fori=1To
设s="中华人民共和国",表达式Left(S,1)+Right(S,1)+Mid(S,3,2)的值为()。
面程序的功能是找出能够被13、23、43除余数分别为1、2、3的最小的两位正整数。请填空。PrivateSubForm_Click() DimiAsInteger,jAsInteger j=0 j=43
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Text1.Text="Visual"Me.Text1="Basic"
下列可作为VisualBasic变量名的是()。
数据结构分为逻辑结构和存储结构,循环队列属于【】结构。
随机试题
计数器的内部电路主要是由单稳态触发器构成。()
某公司年产量为x百台机床,总成本为C万元,其中固定成本为2万元,每产1百台增加1万元,市场上每年可销售此商品4百台,其销售总收入R(x)(单位:万元)是x的函数,问每年生产多少台利润最大?
蛋白质合成后空间结构的修饰包括
分包商在施工现场的协调管理工作应由( )。
行为主义学派认为心理健康的破坏与()有关。
阅读某教材必修3第一单元第二课《祝福》教学实录(片段),回答问题。案例:师:有同学说,鲁四老爷并不凶狠。我们现在来看看祥林嫂第一次到鲁家受到了怎样的对待。生:鲁四老爷看不起她。师:你的根据是什么?生:“四叔皱了皱眉,四婶已经知道了
阅读下列资料,回答下列问题。2010年,全国国有建设用地土地供应总量42.8万公顷,比上年增长18.4%。其中,工矿仓储用地15.3万公顷,增长7.9%;商服用地3.9万公顷,增长40.4%;住宅用地11.4万公顷,增长40.3%;基础设施等其他
A、 B、 C、 D、 D
A、刚擦完地B、水管漏水C、水龙头没关D、水壶被碰倒了B
IntroductiontoM.deI’AubepineM.deI’Aubepineisunknowntomanyofhiscountrymen,aswellastothestudentsoffore
最新回复
(
0
)