首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: 文章中除英文单词外,还可含有英文圆括号“()”、逗号“,”、句号“.
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: 文章中除英文单词外,还可含有英文圆括号“()”、逗号“,”、句号“.
admin
2020-04-08
60
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于( )。
设窗体上有3个图像框:Image1、Image2、Image3,并有下面的程序代码:PrivateSubForm_Load()Image1.Picture=LoadPicture("LEAF.bmp")Image2.Pictu
A、PrivateSubForm_Click()x=InputBox("输入界面","请输入数据",20)EndSubB、PrivateSubForm_Click()x=InputBox("请输入数据","输
关于MDI窗体下列说法正确的是()。
以下能够设置控件焦点的方法是( )。
下列可以激活属性窗口的操作是()。
窗体上有一个名称为Framel的框架(如图),若要把榧架上显示的“Framel”改为汉字“框架”,下面正确的语句是()。
以下关于VB对象属性的叙述中,错误的是
有两个关系R与S如下,由关系R和S得到关系T,则所使用的操作为
随机试题
行政机关及其工作人员不得利用行政强制权为单位或者个人谋取利益。
(2019年滨州阳信)身体变化和表情动作越来越失去控制,高度紧张使细微的动作发生紊乱,这是对哪种情绪状态的描述()
克里奥耳语又叫()
喘促,每遇情志刺激而诱发,发时突然,呼吸短促,但喉中痰声不著,气憋,胸闷而痛,咽中如窒,或失眠,心悸,苔薄,脉弦,治宜选用
减少蔬菜中水溶性维生素C及无机盐损失的作法是
海道测量的主要内容包括()。
某项目建设期2年,建设期内每年年初贷款1000万元。若在运营期第1年末偿还800万元,在运营期第2年末至第6年年末等额偿还剩余贷款。在贷款年利率为6%的情况下,运营期第2年末到第6年每年年末应还本付息()万元。
有以下程序:#include<iostream>usingnamespacestd;classCFactorial{private:intvalue;intfact
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是()。
A、Theythinkwritershavewealthandfame.B、Theylikewriting.C、Theywanttoenjoyloneness.D、Theyfollowsomeexamples.AWhy
最新回复
(
0
)