首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Text1(可多行显示),如图所示;如果单击“统计”命令按钮,则统计文本框中字母A,B,C,D各自出现的
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Text1(可多行显示),如图所示;如果单击“统计”命令按钮,则统计文本框中字母A,B,C,D各自出现的
admin
2020-07-22
43
问题
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Text1(可多行显示),如图所示;如果单击“统计”命令按钮,则统计文本框中字母A,B,C,D各自出现的次数,并依次放到窗体变量an,bn,cn,dn之中(放在其他变量中将无成绩);如果单击“保存”命令按钮,则把统计结果存人考生文件夹下的out5.txt文件中。文件中已经给出了“显示”和“保存”按钮的Click事件过程。请编写“统计”按钮的Click事件过程。
要求:
统计每个字母出现的次数时,不区分大小写。
注意:
不能修改已经给出的程序部分;在结束程序运行之前,必须单击“保存”按钮,把结果存入out5.txt文件,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim an As Integer Dim bn As Integer Dim cn As Integer Dim dn As Integer Private Sub Command1_Click() Open App.Path & "\in5.txt" For Input As #1 Do While Not EOF(1) Input #1, a$ s = s & a$ Loop Close 1 Text1.Text = s End Sub Private Sub Command2_Click() ’需要考生编写的内容 End Sub Private Sub Command3_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, an, bn, cn, dn Close 1 End Sub 程序结束 参考答案 n = Len(Text1) For k = 1 To n ch = Mid(Text1, 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 If If UCase(ch) = "D" Then dn = dn + 1 End If Next k Text1 = an & " " & bn & " " & cn & " " & dn 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/2wHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommand1_Click()a=Array(1,2,3,4,5,6,7,8,9,10)n=UBound(a)Fork=0ToUBound(a)
为了使标签Label1透明且不具有边框,以下正确的属性设置是
数据结构中,与所使用的计算机无关的是数据的()。
在窗体上没有进行任何属性设置,然后编写如下事件过程,则程序运行结果是()。PrivateSubForm_Load()Fori=1To10sum=sum+iNex
将E—R图转换为关系模式时,实体和联系都可以表示为()。
为了使标签中的内容居中显示,应把Alignment属性设置为()。
下列关于栈的叙述正确的是()。
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的case子句是()。
在一个容量为15的循环队列中,若头指针front=6,尾指针rear=9,则循环队列中的元素个数为
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开"对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
随机试题
有关干预性研究特点的描述,错误的是
A.牙源性B.腺源性C.损伤性D.血源性E.医源性新生儿颌骨骨髓炎感染多为
下列关于公民的民事权利能力的表述,正确的是( )。
律师接受律师事务所安排办理业务后,律师事务所可以因某些情况的出现终止其代理工作。但发生下列哪一种情况时,不得终止承办律师的代理工作?
保证人和债权人可能就下列哪些合同,签订最高债权额保证合同?()
房地产经纪人是指()。
防病毒卡能够()。
①果戈理!少年和青年,男子和妇女,掌握知识为时不久的中学生和熟悉生活、聪慧颖悟的老者的永恒旅伴。②一旦果戈理渗入我们的心灵,他已然永不离去,而是永久在我们的意识和心中定居,并且像在家里那样在那里生活着——异常果敢,从容安适。③仿佛这全然不是
Inarareunanimousruling,theUSSupremeCourthasoverturnedthecorruptionconvictionofaformerVirginiagovernor,Robert
以下不属于无线局域网应用领域的是______。
最新回复
(
0
)