首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Text1(可多行显示),如图所示;如果单击“统计”命令按钮,则统计文本框中字母A,B,C,D各自出现的
在考生目录下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件。其功能是:单击“显示”命令按钮,则把考生目录下的in5.txt文件中的所有字符放入Text1(可多行显示),如图所示;如果单击“统计”命令按钮,则统计文本框中字母A,B,C,D各自出现的
admin
2020-07-22
42
问题
在考生目录下有一个工程文件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全国计算机二级
相关试题推荐
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
A、选择B、差C、交D、并B关系T是关系R的一部分,并且是关系R去掉R和S相同的元素,符合差操作。
窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。Option1的单击事件过程如下:PrivateSubOption1_Click() Dimarr arr=Array("
求1!+2!+……+10!的程序如下:PrivateFunctions(xAsInteger) f=1 Fori=1Toxf=f*i Next s=fEndFunctionPrivateSubCommand1
PrintRight("VBProgramming",2)语句的输出结果是( )。
设有如下的程序段:n=0Fori=1To3 Forj=1Toi Fork=jTo3n=n+1 Nextk NextjNexti执行上面的程序段后,n的值为( )。
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
下列对于软件测试的描述中正确的是
在软件开发中,需求分析阶段产生的主要文档是
下列关于算法复杂度叙述正确的是
随机试题
女性,25岁,左膝外上方逐渐隆起包块伴酸痛半年,X线平片提示左股骨下端外侧有一病灶,边缘膨胀,中央有肥皂泡样改变,无明显的骨膜反应。确立诊断,最有力的检查方法是
A、木香B、川楝子C、青皮D、佛手E、柿蒂患者,女,34岁,症见胸胁脘腹胀痛,辨证后属肝气郁滞所致,并伴有食积,治疗宜选用的药物是
下列属于营业税的“服务业一代理业”范围的有()。
下面关于血液功能的叙述中,不正确的是()。
针对“一元二次方程”起始课的教学,两位老师给出了如下教学设计片段:【教师甲】设置问题:请同学们根据下列问题,只列出含未知数x的方程:(1)一个正方形的面积为2,求正方形的边长x。(2)长度为1的线段AB上有一点C,且满足AC/AB=BC/AC,求线
大学生都必须学习自然科学基础。如果代数是必修的或者几何是必修的,那么所有学生都将学习数学。一部分学生要学习微分方程,但代数和三角都是所有学生必修的。因此()。
提出“只有受过恰当教育之后,人才能成为一个人”的西方教育家是()。
某工厂定期购买一种原料,已知该厂每天需要用原料6吨,每吨价格1800元,原料保管等费用平均每天每吨3元,每次购买原料需支付运费900元,若该厂要使平均每天支付的总费用最省,应()天购买一次原料。
【新柏拉图主义】
Wheredoesthenoticecomefrom?
最新回复
(
0
)