首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: (1)文章中除英文单词外,还可含有英文圆括号“( )”、逗号“,”
考生文件夹下有工程文件sjt5.vbp。窗体的设计界面、各控件初始属性设置及有关代码见窗体文件。 考生文件夹下in5.dat文件中保存有一篇英文文章,并有如下要求和限制: (1)文章中除英文单词外,还可含有英文圆括号“( )”、逗号“,”
admin
2020-08-10
17
问题
考生文件夹下有工程文件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://jikaoti.com/ti/Z4S0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如窗体中已经有若干个不同的单选按钮,要把它们改为一个单选按钮数组,在书写窗口中需要进行的操作是
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click()Dimarr_x(5,5)AsIntegerFori=1To3Forj=2To4arr_x(i,j)=i*jNextj
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerx=10:y=5Callf1(x,y)Printx,yE
下列叙述中正确的是()。
在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label1、Label2的标签,然后编写如下程序代码:PrivateXAsIntegerPrivateSubCommand1_Click()X=5:Y=3Callpro
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOption1_Click(IndexAsInteger)…EndSub下面关于此过程的参数Index的叙述中正确的
以下关于菜单的叙述中,错误的是
窗体上有名称分别为Text1、Text2的文本框,名称为Commandl的命令按钮。运行程序,在Text1中输入“FormList”,然后单击命令按钮,执行如下程序:PrivateSubCommandl_Click()Text2.Text=UC
下列关于栈的叙述正确的是
关于变量作用域,下列叙述中正确的是()。
随机试题
A.贫血和出血程度一致B.贫血和出血程度不一致C.有贫血而无出血D.有出血而无贫血E.无出血亦无贫血特发性血小板减少性紫癜
患下列哪种疾病时,骨髓巨核细胞明显减少
分片到货塔器的现场组焊,壳体组焊一般程序中筒节组焊的下一步是()。
人力政策主要有( )。
基金管理公司设立分支机构,无须向中国证监会报送申请材料。( )
小明是小学五年级学生,家庭是低保户。依据《关于进一步做好城乡特殊困难未成年人教育救助工作的通知》,小明应获得的教育救助是()。
小徐是利民派出所的一名社区民警,新接手管理的凤凰社区地处城乡结合部,社区内出租房、店铺摊点、建筑工地集中,情况相对复杂。为做好社区警务工作,小徐注重创新实践,发挥所学特长自主开发了“社区警务宝典”APP,并广泛应用到社区管理的各项工作中,有效提高了人口管理
下列关于我国传统节日的描述,与古代的说法或传说不相符的是:
AccordingtoLeszczynski,howdoesmobilephoneaffectone’shealth?Accordingtothepassage,whatwouldbethefutureofthe
Readthearticlebelowaboutflyingbusinessclass.Foreachquestion31-40writeonewordinthespaceonyourAnswerSheet.Th
最新回复
(
0
)