首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: 文章中除英文单词外,还可含有英文圆括号“()”、逗号“,”、句号“.
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: 文章中除英文单词外,还可含有英文圆括号“()”、逗号“,”、句号“.
admin
2020-04-08
59
问题
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。
考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制:
文章中除英文单词外,还可含有英文圆括号“()”、逗号“,”、句号“.”、连字符“一”等标点符号和空格符。
英文单词间可由一至多个空格符分隔或标点符号分隔。
(3)标点符号前后可以有零至多个空格符。
(4)连字符(一)可出现在行内两个单词间或行末,前后不允许有空格符或其他标点符号,连字符两边连接的两个单词视为一个单词。当连字符出现在行末时,表示下一行的第一个单词与本行末的单词为一个单词。
程序的功能是,当程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Textl中,同时调用函数过程CountWords统计该行出现的单词数。当文章内全部内容统计结束后,统计结果显示在文本框Text2中;单击“保存”按钮,则保存结果。
“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写CountWords过程中的代码,以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(阴影部分是需要填入的内容) Option Base l Dim TotalWords As Integer Private Function CountWords(s As String)As Integer ′======================== 考生编写的程序================= [*] End Function Private Sub Commandl Click() Dim str As String Dim i As Integer TotalWords=0 Open App.Path&"\in5.dat"For Input As#1 Textl.Text="" Do While Not EOF(1) Line Input#1.str Textl.Text=Textl.Text&str&vbCrLf TotalWords=TotalWords+CountWords(str) Loop Text2.Text=TotalWords Close#1 End Sub Private Sub Command2 Click() Open App.Path&"\out5.dat"For Output As#l Print#1.T0talWords Close#1 End Sub 步骤3:调试并运行程序,单击“读取并统计”按钮,再单击“保存”按钮(若未点击“保存”按钮无成绩),最后关闭程序后按题目要求存盘。
解析
Line Input语句用于读取顺序文件中一行全部字符,直到遇到回车符为止,故函数Cou-ntWords()的参数为每次读取的一行字符。判断一个字符是否为英文字母,可以将该字符转换为大写,再判断该字符是否满足大于等于“A”且小于等于“Z”,若满足,则为英文字母。
转载请注明原文地址:https://kaotiyun.com/show/YNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程
如果把Text1文本框的MousePointer属性设置为2(把鼠标光标设置为十字),则
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
下列打开“代码窗口”的操作中错误的是()。
有如下过程:Subproc()DimchAsStringOpen"file1.txt"ForInputAs#1Open"file1_bak.txt"ForOutputAs#2DoWhi
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
下列关于线性链表的描述中,正确的是()。Ⅰ、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
有两个关系R与S如下,由关系R和S得到关系T,则所使用的操作为
随机试题
成人男性甲状软骨相当于哪个椎体高度
轻度黄疸,肝肋下1.5cm,Hb70g/L,网织红细胞0.08,血清铁20gmol/L,Coomb’s试验阳性。诊断应先考虑
雄激素治疗子宫肌瘤应注意
陈某到一饭店就餐,饭店服务员韩某在给卡式煤气炉点火时,煤气炉突然爆炸,陈某、韩某及邻座顾客杜某均被炸伤。经查,煤气炉系甲厂生产,质量存在严重缺陷。下列有关表述中哪些是正确的?()
适用于处理浅层软弱地基、膨胀土地基、季节性冻土地基的一种简易而被广泛应用的地基处理方法是( )。
出口货物的发货人或其代理人除海关特许外,按规定应当在货物运抵海关监管区后、( )向海关申报。
甲公司是一家上市公司,有关资料如下:资料一:2013年3月31日甲公司股票每股市价25元。每股收益2元;股东权益项目构成如下:普通股4000万股,每股面值1元,计4000万元;资本公积1500万元;留存收益9500万元。公司目前国债利息率为4%,市场
以下关于法律关系的说法正确的是()。
珠江形成“三江汇流,八口出海”的水系特点。()
我国现阶段,阶级斗争已不是社会的主要矛盾,这是因为()
最新回复
(
0
)