首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计"和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计"和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
admin
2020-07-22
87
问题
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计"和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中读取文本,并显示在文本框Text1中,如图3—10所示。单击“统计”按钮,则统计Textl中字母R、T、D(不区分大小写)出现的次数,统计结果分别保存在窗体变量intR、intT、intD中,同时显示在文本框Text2中(显示格式不限)。单击“保存”按钮,可将intR、intT、intD中的数据保存到考生文件夹下out5.txt文件中。要求:
1)去掉“显示”按钮事件过程中的注释,把程序中的?改为能实现上述要求的正确内容。
2)编写统计字母R、T、D出现次数的事件过程。
3)不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用原文件名存盘。
选项
答案
根据题目源程序,要使单击“显示”按钮时,从文件in5.txt中读取文本,并显示在文本框。Text1中,需要首先以Input方式打开文件,然后使用Line Input#语句将文件号指明的文件中的内容读入到指定的字符串变量中,然后将该变量赋给文本框的Text属性。 要在单击“统计”按钮时,统计字母“R”、“T”、“D”的出现次数,可在“统计”按钮的单击事件过程中,通过For循环用Mid函数逐一取出str1中的每个字符进行判断,若其为对应字符,则对应的计数器增加1。循环结束时,三个计数器变量中的值就是该字符出现的次数。 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sit5.vbp,在代码编辑窗口,去掉程序中的注释符“*”,将问号“?”改为正确的内容。 参考代码: Line Input #1, strl Textl.Text = str1 步骤2:按指定位置编写“统计”按钮的单击事件过程。 参考代码: PriVate sub Command2一click() Dim i As Integer intR=0: intT=0: intD=0 For i = 1 To Len(strl) If Mid(strl, i, 1) : ”R” Or Mid (strl, i, 1) =“r”Then intR=intR+ 1 End If If Mid(strl, i, 1) = “T” Or Mid (st r1, i, 1) =“t”Then intT=intT+ 1 End If If Mid(str1,i,1) = “D” Or Mid (st r1, i, 1) =“d” Then intD=intD+ 1 EndIf Next Text2.Text:intR& “ ” & intT & “ ” & intD End Sub 步骤3:按
键运行程序,先单击“显示”按钮,接着单击“统计”按钮,最后单击“保存”按钮。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/1PHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果把命令按钮的Cancel属性设置为True,则程序运行后
为了使窗体左上角不显示控制框,需设置为False的属性是
以下数组定义语句中,错误的是
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是
如果把程序的启动对象设置为:SubMain,则SubMain过程
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
为了保存数据,需打开顺序文件“E:\UserData.txt”,以下正确的命令是
在数据库系统的组织结构中,下列()映射把用户数据库与概念数据库联系了起来。
将E-R图转换为关系模式时,实体和联系都可以表示为( )。
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
随机试题
某化工企业生产国家明令淘汰的产品,某技术监督局依据《产品质量法》某条的规定作出罚款2000元的处罚决定。该企业不服,提起行政诉讼,法院经审查以技术监督局的处罚决定适用法律不当为由判决撤销了处罚决定。下列说法中正确的是()。
A.少腹逐瘀汤B.生化汤C.清热调血汤D.大黄牡丹皮汤E.大柴胡汤患者产后寒热时作,恶露甚少,色紫暗,腹痛拒按,口干不欲饮。治疗应首选
具有解表通便功用的方剂是()
关于体位对呼吸生理的影响描述,错误的是
悬式绝缘子的额定机械破坏负荷与其承受的最大使用负荷的比为绝缘子安全系数,其值应不小于()。
下列选项中的()属于常用来反映股票基金风险的指标。Ⅰ.贝塔系数Ⅱ.阿尔法系数Ⅲ.标准差Ⅳ.持股数量
在填制记账凭证时,误将8500元记为5800元,并已登记入账,月终结账前发现错误,更正时应采用红字更正法。()
(2017·山东)八大行星中,离太阳最近的是()(易错)
注意事项1.本题本由给定资料与作答要求两部分构成。考试时限为150分钟。其中,阅读给定资料参考时限为40分钟,作答参考时限为110分钟。满分100分。2.监考人员宣布考试开始时,你才可以开始答题。3.请在题本、答题卡指定位置填写自己的姓名,填涂准考证
光复会
最新回复
(
0
)