首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。窗体上三个命令按钮的名称分别是Command1、Command2和Command3,标题分别是“显示”、“统计”和“保存”。运行程序时,单击“显示”按钮,从文件in5.txt中
admin
2017-03-27
54
问题
在考生文件夹下有一个工程文件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:按指定位置编写“统计”按钮的单击事件过程。 参考代码: Prirate Sub Command2_Click() Dim i As Integer intR=0:intT=0:intD=0 For i=1To Len(Str1) If Mid(str1,i,1):"R"Or Mid(stz1,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 Tf Tf Mid(str1,i,1)="D"Or Mid(str1,i,1)="d"Then intD=intD+1 End If Next Text2.Text=intR&" "&intT&" " &intD End Sub 步骤3:按<F5>键运行程序,先单击“显示”按钮,接着单击“统计”按钮,最后单击“保存”按钮。 步骤4:按要求将文件保存至考生文件夹中。
解析
根据题同源程序,要使单击“显示”按钮时,从文件in5.txt中读取文本,并显示在文本框Text1中,需要首先以Input方式打开文件,然后使用LineInput#浯句将文件号指明的文件中的内容读入到指定的字符串变量中,然后将该变量赋给文本框的Text属性。
要在单击“统计”按钮时,统计字母“R”、“T”、“D”的出现次数,可在“统计”按钮的单击事件过程中,通过For循环用Mid函数逐一取出str1中的每个字符进行判断,若其为对应宁符,则对应的计数器增加1。循环结束时,三个计数器变量中的值就是该字符出现的次数。
转载请注明原文地址:https://kaotiyun.com/show/IhGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对窗体编写如下事件过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton
在窗体上面一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s=1D
如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件,那么执行语句Open"c:/Sdat.dat"ForAppendAs#1之后,将()。
当一个工程含有多个窗体时,其中的启动窗体是______。
建立打开文件、保存文件、颜色、字体、打印对话框所使用的方法分别为【】、【】、ShowColor、ShowFont和ShowPrinter。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中______的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
下列程序的功能是;将数据1,2,…,8写入顺序文件Num.txt中,请选择正确的程序段()。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目,然后单击命令按钮,将该项目从列表框删除。程序如下:PrivateSubCommand1_Click()DimInAsIntegerIn=______L
随机试题
桂枝芍药知母汤的主症是()
血栓对机体的危害不包括
判断新生儿有无窒息及窒息的严重程度是胎儿娩出时最先处理的是
一健康女婴,体重8kg,身长68cm,已能抓物,换手,独坐很久,能发复音,其最可能的月龄是
关于路面几何尺寸、平整度、强度及模量、承载能力、抗滑性能测试方法,请回答以下问题。承载板法测试土基回弹模量试验步骤,正确的顺序应为()。①测定土基的压力-变形曲线。②测定总影响量。③用千斤顶开始加载,注视测力环或压力表,至预压
专家们认为,造成老虎数量急剧下降的原因很简单:捕杀野生动物的违法行为仍未被完全禁止,东亚许多国家仍猖狂地进行动物皮毛交易。专家指出,亚洲新的人口增长趋势和经济变化对老虎的生存造成了非常重大的影响。亚洲富有的中产阶级可以承受昂贵的“虎宴”——用老虎身体的各个
A、 B、 C、 D、 C
当用户程序需要调用操作系统所提供的文件读写功能时,该功能首先执行的指令是()。
有如下程序:#include#includeusingnamespacestd;classFather{public:Father(string
ReadthefollowingtextsfromanarticleinwhichpeopletalkedaboutEnglishstudy.Forquestions61to65,matchthenameofe
最新回复
(
0
)