首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: (1)文章中除英文单词外,还可含有英文圆括号“( )”、逗号“,”
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: (1)文章中除英文单词外,还可含有英文圆括号“( )”、逗号“,”
admin
2020-08-10
39
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
假定把计时器控件Timer1的Interval属性设置为10,Enabled属性设置为True,并编写下面的程序:下面的程序:DimxAsIntegerPrivateSubTimer1_Timer()Fori=1To10
为了使文本框显示滚动条,除要设置ScrollBars外,还必须设置的属性是
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTest1。设窗体Form1标题为“MyForm1”,双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码:PrivaeSubComTest1_Click(IndexAs
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是
以下关于键盘事件的叙述中,错误的是
检查软件产品是否符合需求定义的过程称为
下列关于栈的叙述正确的是
窗体上有一个名称为HScrolll的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
可设置文字字体为斜体的属性是()。
随机试题
职能型营销组织与产品型营销组织相结合的产物是()
以下有关妊娠期用药注意事项的叙述中,不正确的是
依据《消防法》的规定,下列关于消防安全重点单位的消防安全职责的说法,正确的有()。
《建设工程安全生产管理条例》规定,对所承建的建设工程进行定期和专项安全检查,并做好安全检查记录,是施工单位()的安全生产方面的主要职责之一。
()在会计职业道德教育中具有基础性地位。
在Word中,如果当前文档中的文字下方出现红色波浪线,则表示该文字出现()
北宋的都城是东京汴梁,即今日的河南洛阳。()
依次填入画横线部分最恰当的一项是()。一个人永远不会忘记幼年时代最喜爱的书,就像永远不会忘记母亲的声音一样。为孩子选择合适的阅读书籍,提供干净的阅读环境,是全社会的责任。为了金钱和利益________一些粗制滥造的图书,违背道义良知。期待出版社
挪用公款给他人使用的,使用人在下列何种情况下,构成挪用公款的共犯?()
Dropinnewhomesalesismainlydueto
最新回复
(
0
)