全国计算机等级考试二级vb操作题最后一道大题题库

(21页)

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！

14.9 积分

■在考生文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frmo窗体外观 如图5 (a)所示。三个命令按钮的名称分别为Command 1、Command2和Command3, 标题分别为“读取数据J “首字母大写”和“存盘二程序运行后，如果单击“读取数 据'，命令按钮，则读取考生文件夹下in5.txt中的全部文本(文本中的单词与单词Z 间或标点符号与单词之间均用一个空格分开)，并在文木框中显示出来。文木内容 如下：TuckeddeepwithinthepromisesandpoliciesofhisStateoftheUnionaddress,Presiden tBushutteredthreewordsthatspeakvolumesaboutWashington'sparalysisinaddressingthe plightofthefortymillionAmericanswholackhealthinsurance.Inbetweenhisdiscourseon Medicareandhissupportforalow-incomehealthcaretaxcredit,Bushcalledforsomethingc alledassociationhealthplans.如果单击“首字母大写”命令按钮，则将文本框小每个单词的第一个字母变 为大写字母(如果原来己是大写字母则不改变)，并在文本框屮显示出來，如图 5 (b)所示；如果单击“存盘,，命令按钮，则把文本框屮的内容(首字母大写后) 保存到考生文件夹下)，并在文本框小显示出来，如图5(b)所示；如果单击“存 盘"命令按钮，则把文本框中的内容(首字母大写后)保存到考生文件夹下的文 件out5.txt中。窗体文件中已给出了部分程序，请把它补充完整，使其实现上述 功能。要求：1) 编写“读取数据''命令按钮的Click事件过程。2) 去掉“首字母大写谕令按钮和“存盘”命令按钮事件过程屮的注释符，把 程序中的？改为正确的内容，使萇能正确运行。3) 用原来的文件名保存工程文件和窗体文件。.I：OEB1 口向两11(a)(b)［操作步骤］步骤打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口中，去掉 程序中的注释符“匕 将问号“厂改为止确的内容。参考代码：ch = Mid(oldSenA i, 1)newSen = newSen & chWrite #1, TexText 步骤2：编写“读取数据“命令按钮的单击事件。参考代码：Private Sub Commandl_Click()Dim s As StringOpen H in5. txt11 For Input As 1Line Input #1z sClose #1Text 1.Text = sEnd Sub步骤3：按要求将文件保存至考生文件夹中。步骤4：按vF5>键运行程序，先单击“读取数据"按钮，接着单击“首字母大 写"按钮，最后单击“存盘”按钮。二在考生文件夹下有一个T程文件sjt5.vbp,相应的窗体文件为sjt5.frmo窗体上 三个命令按钮的夕I称分别是Command 1、Command2和Command3,标题分别是 “显示”、“统计"和“保存雹运行程序时，单击“显示"按钮，从文件in5.txt1«读取 文木，并显示在文木框Textl中，如图5所示。单击“统计"按钮，则统计Textl中 字母R、T、D (不区分大小写)出现的次数，统计结果分别保存在窗体变量intR、 intT. intD'l'，同时显示在文本框Text2'|'(显示格式不限)。单击''保存"按钮， 可将intR、intT> intD中的数据保存到考生文件夹下out5.txt文件小。要求：1) 去掉“显示”按钮事件过程屮的注释，把程序屮的？改为能实现上述要求 的正确内容。2) 编写统计字母R、T、D岀现次数的事件过程。3) 不要改动各控件的属性设置和程序的其他部分。最后把修改后的文件用 原文件名存盘。［操作步骤］步骤1：打开考生文件屮的本题工程文件sjt5.vbp,在代码编辑窗口，去掉程 序中的注释符，将问号“?''改为正确的内容。参考代码：Line Input #1, strlTextl.Text = strl步骤2：按指定位置编写“统计”按钮的单击事件过程。参考代码：Private Sub Command2_Click() Dim i As IntegerintR = 0: intT = 0: intD = 0For i = 1 To Len(strl)If Mid(strl, i,1)=tfR,fOr Mid(strlz?1/1)=»r'»ThenintR = intR+ 1End IfIf Mid(strlz i,1)=!! T nOrMid(strl,I1)ThenintT = intT+ 1End IfIf Mid(strl, ir1)=OrMid(strl,?1)=”d”ThenintD = intD+ 1End IfNextText2.Text = intR & " " & intT & " "& intDEnd Sub步骤3：按要求将文件保存至考生文件夹中。步骤4：按vF5＞键运行程序，先单击“显示”按钮，接着单击“统计”按钮，最 后单击“保存,,按钮。=(1)在考生文件夹下有工程文件sjt5.vbp,窗体上有两个标题分别是〃读 数据〃和〃统计〃的命令按钮，请添加一个名称为Label 1 ＞标题为〃回文的个数为〃 的标签和一个名称为Textl,初始值为空的文木框，如图5所示。程序功能如下:① 单击〃读数据〃按钮，贝U将考生文件夹Tin5.dat文件的内容读到变量s屮。② 单击〃统计〃按钮，则统计in5.d亚文件(该文件小仅含由空格间隔开的字母 串)中回文的个数，并将统计的回文个数显示在Textl文本框内。(所谓回文是 指顺读与倒读都一样的字符串，女n^recyceD。〃读数据〃按钮和〃统计〃按钮的 Click事件过程已经给出，请完善Function过程foundhuiwen的功能，实现上述程序 功能。注意:考牛不得修改窗体文件中已存在的控件和程序，在结朿程序运行之前, 必须先进行统计,且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后， 程序按原文件名存盘。【操作步骤】步骤1：打开考生文件夹下的木题工程文件sjt5. 关 键 词： 全国 计算机等级考试 二级 vb 操作 最后 一道 题库

 天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

关于本文