首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: 文章中除英文单词外,还可含有英文圆括号“()”、逗号“,”、句号“.
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: 文章中除英文单词外,还可含有英文圆括号“()”、逗号“,”、句号“.
admin
2020-04-08
47
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1Click() Dima&,s&,k& s=1 a=2 Fork=2To10
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
有人在属性窗口中通过设置Picture属性为命令按钮装入了图片,但没有显示,其原因是
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
已知文本框的ScrollBars属性设置为3,却看不到任何效果,原因是()。
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:OptionBase1PrivateSubCommand1_Click() Dima(4,4) Fori=1To4 Forj=1To4
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimsAsDoubles=0:i=1DoWhilei<6s
设有如下Commandl的单击事件过程及fun过程:PrivateSubCommandl_Click()DimXAsIntegerX=Val(InputBox(“请输入一个整数”))
随机试题
A、LaborDepartmentofficials.B、Civilians.C、Lawmakers.D、Thearmy.C
下列发明发现不得授予专利权的有()
下列哪些疾病会出现ANCA阳性
喉软骨支架中,唯一完整的软骨环是
A.摄食一吞咽准备期B.口腔期C.咽期D.食管期E.摄食一吞咽准备期、口腔期假性延髓性麻痹性摄食一吞咽障碍在哪个阶段较严重
下列关于房地产卖点应具备的特点的说法,错误的是()。
在建设单位的进度计划系统中,工程项目年度计划的编制依据有( )。
道教在晚唐北宋年间由于统治阶级的尊崇,所以道教极为兴盛,道教创立于东汉,张陵宣称受法于太上老君。
格式塔和桑代克之间的明显对立在于()。
线性表的长度为n。在最坏情况下,比较次数为n-1的算法是
最新回复
(
0
)