首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下: ①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。 ②在Text1中选取部分文本,单击“统计”按钮,
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下: ①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。 ②在Text1中选取部分文本,单击“统计”按钮,
admin
2015-08-12
39
问题
在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下:
①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。
②在Text1中选取部分文本,单击“统计”按钮,则以不区分大小写字母的方式,自动统计选中文本中单词“the”出现的次数,并将统计结果显示在Text2文本框内。
请将“统计”按钮的Click事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述功能。
*注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码如下: option Base 1 Dim s Ad string Private Sub Command1_C3ick() Open App.Path&"\in4?dat"For Input As #1 s=Input(LOF(1),#1) Close#1 Text1.Text=s End Sub Private Sub Command2_Click() Dim m As Integer ’If Len(s)=?Then MsgBox"请先使用‘读数据’功能!" Else ’If Text1.?=0 Then MsgBox"请先选中文本!" Else t="" For i=1 To Text1.SelLength c=Mid(Text1.SelText,i,1) If c<>""Then t=t+c Else ’If?="the" Then m=m+1 End If t="" End If Next i ’?=Str(m) End If End If End Sub 参考答案: 第1个?处填入:0 第2个?处填入:SelLength 第3个?处填入:kase$(t) 第4个?处填入:Text2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
单击“读数据”按钮,运用文件操作将考生文件夹下in4.dat文件的内容显示在Text1文本框中。在Command2_Click事件过程中,否则运用Len()函数判断文本框中是否有字符,如果Len(s)=0那么弹出MsgBox对话框“请先使用‘读数据’功能!”,否则运用SelLength属性判断文本框中是否有字符被选中,如果SelLength属性0,那么弹出MsgBox对话框“请先选中文本!”。
在Text中选中部分文本,并单击“统计”按钮,通过LCase函数使统计不区分大小写字母,判断选中文本中是否出现单词“the”,并统计这个单词的出现的次数,将结果显示在Text2文本框内。
转载请注明原文地址:https://kaotiyun.com/show/bSQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
任何控件都有______属性。
文件的打开和关闭语句分别是【】和【】。
执行以下程序段,并输入1.23,则程序的输出结果应是【】。N=Str(InputBox("请输入一个实数:"))p=InStr(N,".")PrintMid(N,p)
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivate
在窗体上绘制一个名称为List1的列表框,一个名称为Labe11的标签,列表框中显示若干个项目。当单击列表框中的某个项目时,在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是
在窗体上画一个名称为Listl的列表框,一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时,在标签中显示选中城市的名称。下列能正确实现上述功能的程序是
设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框PrivateSubCommand1_Click()CDl.DialogTitle=“打开文件”CDl.InitDir=“C:\”CDl.Filter=“所有文件
随机试题
简述在质量领先的公司中,高层管理者在质量改进中的地位与作用。
中国古代称为“长庚”的星是()。
细丝CO2气体保护焊CO2气体流量应大于15L/min。()
A.A型血病人B.B型血病人C.O型血病人D.O型或B型血病人E.O型或A型血病人接受A型血的包括
以抗炎、抑制免疫为主要作用的药物是二丙酸倍氯米松。()
某工程项目施工中,发包人供应的材料经过承包人检验通过后用于工程。后来发现部分工程存在缺陷,原因属于材料质量问题,该部分工程需拆除重建,则( )。
在某社区服务中心运作过程中,属于授权行为的是()
下列关于国库券的描述中,正确的是()。[北京航空航天大学2014金融硕士]
Weneedmoremenofcultureandenlightmentbecausewehavetoomany______amongUS.
Certainlynocreatureintheseaisodderthanthecommonseacucumber.Alllivingcreatures,especiallyhumanbeings,havethei
最新回复
(
0
)