首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
admin
2016-01-31
26
问题
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中读取文本,并显示在文本框Text1中,如图3-10所示。单击“统计”按钮,则统计Text1中字母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:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: Line Input #1, str1 Text1.Text=str1 步骤2:按指定位置编写“统计”按钮的单击事件过程。 参考代码: PriVate Sub Command2_Click() Dim i As Inteaer intR=0:intT=0:intD=0 Fori=1 To Len(str1) If Mid(str1, i, 1)= "R" Or Mid (str1, i, 1)= "r" Then intR=intR+1 End If If Mid(str1, i, 1)= "T" Or Mid (str1, i, 1)="t" Then intT=intT+1 End If If Mid(str1, i, 1)="D" Or Mid (str1, i, 1)="d" Then intD=intD+1 End If Next Text2.Text=intR&" "& intT&" "& int D End Sub 步骤3:按
键运行程序,先单击“显示”按钮,接着单击“统计”按钮,最后单击“保存”按钮。 步骤4:按要求将文件保存至考生文件夹中。 考点链接 顺序文件、常用内部函数。
解析
转载请注明原文地址:https://kaotiyun.com/show/7wLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要建立一个学生成绩的随机文件,如下定义了学生的记录类型,由学号、姓名、三门课程成绩(百分制)组成,下列程序段正确的是()。
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:PrivateSubCommandl_Click()S=0Fori=1To15x=2*i-1
若想使时钟控件每隔0.25秒触发一次Timer()事件,则可将Interval属性值设为()。
以下()操作不能打开属性窗口
下列程序弹山对话框中按钮的个数为______。MsgBox"确认!",vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,"提示"
执行语句Open"TC.dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
阅读下列程序:PrivateSubCommand1_Click()DimiAsInteger,kAsIntegerk=2Fori=1To3PrintH(k);NextiEndSubFunctionH(jAsI
Sub过程与Function过程最根本的区别是()。
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Art(j,k)=(j-1)*3+kNextkNextjForj=2To3Fork=2To3Printarr(k,j);
文本框控件中将Text的内容全部显示为所定义的字符的属性项是
随机试题
妇科手术中剥离过度引起缺血坏死型尿瘘,产生漏尿的时间是
下列关于中药材的说法,正确的是:
女30岁,工人。询问患者"你想什么",患者回答"详细讲就是细菌问题,细菌在我们脑子里有些冲动力,空气不大新鲜,也不奇怪,冻死苍蝇。"男23岁,学生,询问患者几岁,患者回答"二十三,二月初三,三月桃花开,开花结果给猴吃,我是属猴的"
患儿流涕、咳嗽3天后,高热不退,咳嗽喘促,鼻煽,喉中痰声漉漉,张口抬肩,口唇紫绀,舌红苔黄腻。其证候是。
精血转化依靠气的()津液运行依靠气的()
2009年5月2日,甲公司与乙公司签订了货物买卖合同。合同签订后,甲公司于6月5日要求乙公司按合同约定支付预付款,但是乙公司迟迟没有回应。后来由于甲公司货源落空,无法履行合同,双方发生纠纷。乙公司于2009年9月1日向人民法院提起诉讼,要求甲公司交付货物,
下列关于土地增值税的说法,正确的是()。
下列各项不属于质量检验必要性的表现的是()。
决定音调的声音的主要物理性质是()。
某园区网采用OSPF路由协议:参与OSPF的网络地址是169.111.0.0/16,Cisco路由器的正确配置是()。
最新回复
(
0
)