首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Textl(可多行显示),如图1-108所示;如果单击“统计”命令按钮,则统计文本框中字母A、B、C、D
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Textl(可多行显示),如图1-108所示;如果单击“统计”命令按钮,则统计文本框中字母A、B、C、D
admin
2010-09-02
61
问题
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Textl(可多行显示),如图1-108所示;如果单击“统计”命令按钮,则统计文本框中字母A、B、C、D各自出现的次数,并依次放到窗体变量an、bn、cn、血之中(放在其他变量中将无成绩);如果单击“保存”命令按钮,则把统计结果存入考生文件夹下的out5.txt文件中。文件中已给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮Click事件过程。要求:统计每个字母出现的次数时,不区分大小写。
注意:不能修改已经给出的程序部分;在结束程序运行之前,必须单击“保存”按钮,把结果存入out3.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码: 参考代码: n=Len(Textl) For k=l To n ch=Mid(Textl,k,1) If UCase(ch)="A"Then an=an+1 End If If UCase(ch)="B"Then bn=bn+1 End If If UCase(ch)="C"Then cn=cn+1 End工f If UCase(ch)="D"Then dn=dn+1 End If Next k Textl=an&""&bn&""&cn&""&dn 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按
键键运行程序,先单击“显示”按钮,接着单击“统计”按钮,最后单击“保存”按钮。
解析
“统计”按钮的单击事件过程设计思路:利用For循环语句和Mid()函数将文本框中的字符逐一取出,通过Select Case语句分别判断其是否为字母A、B、C或D,并分别统计到对应的四个窗体变量中。
转载请注明原文地址:https://kaotiyun.com/show/fFmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是【】。
下面不属于java.awt.Event包中定义的事件适配器是( )。
给出下列代码,可放在类A的横线位置作为A合理的内部类的是( )。classA{protectedinti;A(inti){this.i=i;}
串的长度是( )。
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
关于文件名的处理中,测试当前文件是否目录用______函数。
下面代码的运行结果是publicclassTest{publicstaticvoidmain(Stringargs[]){for(inti=0;i<3;i++){if(i<2)
下列基本命令中,属于类文件分解器命令的是
下列创建一个标识有“关闭”按钮的语句是______。
下面程序实现对zip文件file.zip的查询,在横线处填上正确的语句______。packagetest;importjava.io.*;importjava.util.*;impor
随机试题
Ifyourcar________anyattentionduringthefirst12months,takeittoanauthorizeddealer.
阅读《往事》(——之十四)中的一段文字,然后回答以下小题。不是说做女神,我希望我们都做个“海化”的青年。像涵说的,海是温柔而沉静。杰说的,海是超绝而威严。楫说得更好了,海是神秘而有容,也是虚怀,也是广博……“‘海化’的青年”的内涵指的是什么?
退行性骨关节病的好发部位不包括
下列有助于满足患者安全需要的是
患者,男性,35岁,电子技术工人,全口牙大部牙体缺损,自述呈片状脱落多年。牙体颜色异常,牙龈色泽正常,牙本质暴露,面下1/3高度较低。询问病史,发现有遗传史该患者来我院就诊,最可能的主诉内容是
压实沥青混合料内矿料实体之外的空间体积与试件总体积的百分率,它等于试件空隙率与有效沥青体积百分率之和,是指()。
评价小学生在综合实践活动中的表现不需注意的是()。
在人生过程中,肯定有倾听和倾述的故事,试举一例,说明你是如何倾听和倾述的?
奥斯陆大学社会人类学家阿奇蒂说,挪威人特别_________平等,________特权,富翁的孩子跟泥瓦匠的孩子也应该上同样的学校;他们认为自己的生活品质在全世界最高,而平等意识则是生活品质的________构成。因此,至少在挪威人的观念里,炫富是现代社会
Thebrainsofchildrenareaffectedbyfamilyviolenceinthesamewayascombataffectssoldiers,accordingtoastudy.Inbot
最新回复
(
0
)