首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
admin
2017-10-27
23
问题
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中读取文本,并显示在文本框Text1中,如图3—92所示。单击“统计”按钮,则统计Text1中字母R、T、D(不区分大小写)出现的次数,统计结果分别保存在窗体变量intR、intT、intD中,同时显示在文本框Text2中(显示格式不限)。单击“保存”按钮,可将intR、intT、intD中的数据保存到考生文件夹下out5.txt文件中。
要求:
1)去掉“显示”按钮事件过程中的注释,把程序中的?改为能实现上述要求的正确内容。
2)编写统计字母R、T、D出现次数的事件过程。
3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Line Input #1,str1 Text1.Text=Str1 步骤2:按指定位置编写“统计”按钮的单击事件过程。参考代码: Private Sub Command2_Click() Dim i As Integer intR=0:intT=0:intD=0 For i=1 To Len(Str1) If Mid(strl,i,1)="R"Or Mid _(str1,i,1)="r"Then intR=intR+1 End If If Mid(strl,i,1)="T"Or Mid (str1,i,1)="t"Then intT=intT+1 End If If Mid(strl,i,1)="D"Or Mid _(strl,i,1)="d"Then intD=intD+1 End If Next Text2.Text=intR&" "&intT&"_"& intD End Sub 步骤3:按
键运行程序,先单击“显示”按钮,接着单击“统计”按钮,最后单击“保存”按钮。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/TLy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
随机文件使用Put语句写数据,使用【】语句读数据。
以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。PrivateSubCommand1_Click()DimaAsInteger,bAsSt
如果准备读文件,打开顺序文件“text.dat”的正确语句是
在窗体中添加一个命令按钮,名称为Command1,然后编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsString,cAsIntegera=1234:
由Array函数建立的数组的名字必须是【】类型。
使用CoamonDialog控件的______方法可显示”打印”对话框。
执行语句DimX,YAsInteger后,______。
使用目录列表框的______属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
数学式子5+(a+b)×2对应的VisualBasic表达式是_____________。
随机试题
某小学生患猩红热,防疫人员对其进行流行病学调查。在追溯传染源时,除猩红热患者外,还应询问其在距发病最长潜伏期内接触过何种人员
用于冠周冲洗的过氧化氢溶液浓度是
某13层钢框架结构,箱形方柱截面如下图所示,抗震设防烈度为8度;回转半径ix=iy=173mm,钢材采用Q345(fx=300N/mm2,fy=325N/mm2)。试问,满足规程要求的最大层高h(mm),应最接近于下列( )项数值。提示:①按
实行会计电算化后的工作岗位可分为()。
下列各项中,属于影响财务杠杆系数的因素有()。
某工业企业只生产甲产品,在生产过程中发现不可修复废品一批,该批废品的成本构成为:直接材料8500元,直接人工5000元,制造费用1800元。废品残料计价700元已回收入库,应收过失人赔偿款2000元。假定不考虑其他因素,该批废品的净损失为(
路灯下的守望没有晚风吹笛,没有月光煮酒,一盏盏灯火点亮孤独的城市。我匆匆吃过母亲中午走时预留的晚餐,躺坐沙发,开始用遥控器点播欢愉。荧屏里刀光剑影,红颜如玉,上演着绚烂的青春与江湖,我陶醉其中,几乎忘却了母亲单车远骑,在现实里沉重呼吸。
Iwon’tbefreetomorrowmoringbecauseI’llbeseeingafriendoff.
关于竞争与合作的关系,下列叙述正确的是()
(2011年下半年)在信息系统安全技术体系中,环境安全主要指中心机房的安全保护。以下不属于该体系环境安全内容的是(25)。
最新回复
(
0
)