首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击”显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Textl(可多行显示),如图2-108所示;如果单击”统计”命令按钮,则统计文本框中字母A、B、C、D
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击”显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Textl(可多行显示),如图2-108所示;如果单击”统计”命令按钮,则统计文本框中字母A、B、C、D
admin
2013-10-18
30
问题
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击”显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Textl(可多行显示),如图2-108所示;如果单击”统计”命令按钮,则统计文本框中字母A、B、C、D各自出现的次数,并依次放到窗体变量an、bn、cn、dn之中(放在其他变量中将无成绩);如果单击”保存”命令按钮,则把统计结果存入考生文件夹下的out5.txt文件中。文件中已给出了”显示”和”保存”按钮的Click事件过程。请编写”统计”按钮Click事件过程。要求:统计每个字母出现的次数时,不区分大小写。注意:不能修改已经给出的程序部分;在结束程序运行之前,必须单击”保存”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码: 参考代码: n=Len(Textl) For k=1 To n ch=Mid(Text1, k, 1) If UCase(ch) =“A”Then an=an+1 EndIf If UCase(ch)=“B”Then bn=bn+1 End If If UCase(ch)=“C”Then cn=cn+1 End If If UCase(ch)=“D”Then dn=dn+1 End If Next k Text1=an&” “&bn&” “&cn & “ “&dn 步骤2:按要求将文件保存至考生文件夹中。 步骤3:按<F5>键键运行程序,先单击”显示”按钮,接着单击”统计”按钮,最后单击”保存”按钮。
解析
转载请注明原文地址:https://kaotiyun.com/show/5HQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名为Commandl的命令按钮,然后编写如下程序:PrivateSubConunandl_Click()DimiAsIntegerSum=0n=InputBox(”晰anumber”)n=Val(n)Fori=1T
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()DimI,NumRandomizeDoForI=1To1000Num=Int(Rnd*100)PrintNum;SelectCas
在设计窗体时双击窗体的任何地方,可以打开的窗口是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上画一个名称为Textl的文本框,通过属性窗口设置文本框属性,在文本框中显示“模拟试题”,再建立一个名称为Commandl,标题为“清空”的按
设有以下循环结构:Do循环体LoopWhile<条件>则以下叙述中错误的是______。
以下关于焦点的叙述中,错误的是______。
在软件开发中,下面任务不属于设计阶段的是
下述关于数据库系统的叙述中正确的是
下列选项中,不是一个算法的基本特征的是()。
随机试题
支气管动脉栓塞术的并发症有()。
图示两根简支梁,一根材料为钢,另一根材料为铝。已知它们的抗弯刚度EI相同,在相同外力作用下,两者的不同之处为( )。
若政府对市场实行高于均衡价格的最低限价,会带来的后果是()。
发生较大质量事故,事故单位要在()小时内向有关单位提出书面报告。
以募集方式设立股份公司的,发起人认购的股份不得少于公司股份总数的30%,其余部分向社会公开募集。()
下列关于商用房贷款的表述,错误的是()。
预期收入理论带来的问题包括()。
下列关于期权的说法,正确的有()。
设都是正项级数.试证:(1)若收敛;(2)若收敛,且un单调减少,则收敛;(3)若都收敛;(4)若收敛.
ThomasR.SmithDriversCo.3489GreeneAve.Olympia,WA98502DearMr.Smith,Iwasvery(141)toreadyourletterofAugust1
最新回复
(
0
)