首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: (1)文章中除英文单词外,还可含有英文圆括号“( )”、逗号“,”
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: (1)文章中除英文单词外,还可含有英文圆括号“( )”、逗号“,”
admin
2020-08-10
49
问题
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。
考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制:
(1)文章中除英文单词外,还可含有英文圆括号“( )”、逗号“,”、句号“.”、连字符“-”等标点符号和空格符。
(2)英文单词问可由一至多个空格符分隔或标点符号分隔。
(3)标点符号前后可以有零至多个空格符。
(4)连字符(-)可出现在行内两个单词间或行末,前后不允许有空格符或其他标点符号,连字符两边连接的两个单词视为一个单词。当连字符出现在行末时,表示下一行的第一个单词与本行末的单词为一个单词。
程序的功能是,当程序运行时,单击“读取并统计”按钮,则按行读取in5.dat文件的内容,并显示到文本框Text1中,同时调用函数过程CountWords统计该行出现的单词数。当文章内全部内容统计结束后,统计结果显示在文本框Text2中;单击“保存”按钮,则保存结果。
“读取并统计”和“保存”按钮的Click事件过程已经给出,请编写CountWords过程中的代码,以实现上述功能。程序运行界面示意图如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
Line Input语句用于读取顺序文件中一行全部字符,直到遇到回车符为止,故函数CountWords( )的参数为每次读取的一行字符。判断一个字符是否为英文字母,可以将该字符转换为大写,再判断该字符是否满足大于等于“A”且小于等于“z”,若满足,则为英文字母。 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 Option.Base 1 Dim TotalWords As Integer Private Function CountWords(s As String)As Integer ‘===================考生编写的程序=================== n=0 t=“” For i=1 to Len(s) c=UCase(Mid(s,i,1)) If c>=“A”And c<=“Z”Then t=t+c Elself c=“-”Then lf i<>Len(s) Then t=t+c End If Else d=UCase(Mid(s,i,-1,1)) If d>=“A”And d<=“Z”Then n=n+1 t=“” End If End If Next i CountWords=n End Function Private Sub Command1_Click( ) Dim str As String Dim i As Integer TotalWords=0 Open App.Path&“\in5.dat”For Input As#1 Text1.Text=“” Do While Not EOF(1) Line Input#1.str Text1.Text=Text1.Text&str&vbCrLf TotalWords=TotalWords+CountWords( str) Loop Text2.Text=Total Words Close#1 End Sub Prirate Sub Command2_Click( ) Open App.Path&“\out5.dat”For Output As #1 Print#1.TotalWords Close#1 End Sub 步骤3:调试并运行程序,单击“读取并统计”按钮,再单击“保存”按钮(若未点击“保存”按钮无成绩),最后关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/sqHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubCommand1_Click()Dimaa=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5)x=0n=UBound(a)Fori=0Tonm=0Forj=0T
在窗体上画一个名称为Timer1的计时器控件,要求每隔0.5秒发生一次计时器事件,则以下正确的属性设置语句是
下列不属于计时器控件属性的是()。
有如下函数:Functionfun(aAsInteger,nAsInteger)ASIntegerDimmAsIntegerWhilea>=na=a-n:m=m+1Wend
以下关于键盘事件的叙述中,错误的是
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&i:List1.AddltemItemNextiEndSub程序运行时,
以下关于窗体的叙述中错误的是
对手某些控件,只要将其Style属性设置为1,则可以在该控件上使用Picture属性显示图片。以下不具备这一使用规则的控件是
下面关于VB数据文件的叙述中错误的是
为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为
随机试题
每年年终,太平洋公司都会给在职员工发放年终奖金,公司会计小任负责计算工资奖金的个人所得税并为每位员工制作工资条。按照下列要求完成工资奖金的计算以及工资条的制作:根据工作表“年终奖金”中的数据,在“12月工资表”中依次输入每个员工的“应发年终奖金”、“奖
非居民企业在中国境内未设立机构、场所而来源于中国境内的所得,或者虽设立机构、场所但取得的所得与其所设机构、场所没有实际联系的,税率为20%。()
预防手术后尿潴留,下列错误的是【】
下列选项中,属于限制行为能力人的是()。
阅读下面材料,回答问题。11岁的时候,她上六年级,成绩并不好,在班上显得很普通。在临近期中考试时,她的同班好友悄悄地把她拉过来说:“告诉你一个好消息,我有这次考试的卷子。”原来,离她们学校不远的另一个学校已经考过了,而且考试的卷是一样的。那是一张
无论从事何种产业,只要专注于一种产品、一个细分的市场、一个特定的领域,都有可能成就一番大事业。在一个巨大的市场中,哪怕开发一种极其个性化的产品,也不怕没有足够的客户。著名经济学家保罗.克鲁格曼说过,巨大的市场会使产品多样化,多样化更接近个性化,从而就更具有
某公司A商品利润为定价的30%,前年销量为10万个:B商品利润为定价的40%,前年销量为4万个。去年公司将A、B商品捆绑销售,售价为前年两种商品定价之和的90%,共卖出8万套,总利润比前年增加了20%。如两种商品去年的成本与前年相同,则前年A商品的定价为B
Experiencedbaseballfielderscantellhowfaraballisgoingtotraveljustbylisteningtothecrackofthebat.Iftheydidn
Ourape-menforefathershadnoobviousnaturalweaponsinthestrugglefor【C1】______intheopen.Theyhadneitherthepowerfult
Ajarcontainsonlyred,yellow,andorangemarbles.Ifthereare3red,5yellow,and4orangemarbles,and3marblesarechose
最新回复
(
0
)