首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。 程序的功能是: 1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。 2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包
(1)在考生文件夹下有一个工程文件sjt3.vbp。 程序的功能是: 1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。 2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包
admin
2018-12-20
46
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。
程序的功能是:
1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。
2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包括路径及文件名)显示到标签中。
3)“下一张”命令按钮的功能:选中并显示卜次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名,则从第1个图片文件开始)。
在当前程序所在文件夹中,已经提供了所需要的图片文件,运行时窗体如图所示。
在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图1所示。
若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给出提示,并在左下角文本框中显示累计的次数,如图2所示,若单击提示对话框的“是”按钮,则继续向后查找;若单击“否”按钮,则终止查找。
在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Commandl Click() If File1.ListIndex=-1 Or File1.ListIn. dex=File1.ListCount-1 Then File1.LiStIndex=0 E1Se If File1.ListIndex>=0 Then File1.ListIndex=File1.ListIndex+1 End If End If ShowInfor End Sub Private Sub Filel_DblClick() Call ShowInfor End Sub Private Sub ShowInfor() Labell.Caption=App.Path+""+File1.FileName Image1.Picture=LoadPicture(Label1.Caption) End Sub Private Sub Form_Load() Filel.Path=App.Path File1.Pattern="*.jpg" End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Command1_Click() Dim fstr As String,ostr As String Dim times As Integer,pos As Integer Dim ans As Integer fstr=InputBox("输入待查内容","查找") If fstr=""Then Exit Sub End If times=0 ostr=Text1.Text pos=InStr(1,ostr,fstr) Do While pos<>0 Text1.SelStart=pos-1 Text1.SelLength=Len(fstr) times=times+1 Text2.Text=times ans=MsgBox("找到了,是否继续查找?",vbYes-No) If ans=vbYes Then pos=pos+Len(fstr) pos=Irstr(pos,ostr,fstr) E1se Exj t Do End If Loop End Sub 步骤3:调试并运行程序。关闭程序后按题目要求存盘。
解析
(1)文件列表框(File ListBox)控件的常用属性使用,包括Pattern属性、FileName属性、ListCount属性、ListIndex属性。其中:Listlndex属性用来设置或返回当前控件上所选择项目的“索引值”(即下标)。在文件列表框中,第一项的索引值为0,第二项为1,以此类推。如果没有选中任何项,则ListIndex属性的值将被设置为一1。
(2)本题主要考察文本框控件属性的使用。包括SelLength属性和selstan属性。其中Selstart属性为定义当前选择的文本的起始位置。0表示选择的开始位置在第一个字符之前,1表示从第二个字符之前开始选择,以此类推;SelLength属性为当前选中的字符数,可以在程序中把该属性设置为一个整数值。还有就是字符串匹配函数InStr的用法。
转载请注明原文地址:https://kaotiyun.com/show/IfFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下过程的功能是从数组中寻找最大值:PrivateSubFindMax(a()AsInteger,ByRefMaxAsInteger) DimsAsInteger,fAsInteger DimiAsInteger
设窗体中有一个文本框Text1,若在程序中执行了Text1.SetFocus,则触发( )。
A、选择B、投影C、自然连接D、并A由关系R到关系S为一元运算,排除C和D。关系S是关系R的一部分,是通过选择之后的结果,因此选A。
以下关于窗体的叙述中错误的是( )。
数据字典(DD)所定义的对象都包含于
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.En
窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.En
数据库管理系统是( )。
设有关系表学生S(学号,姓名,性别,年龄,身份证号),每个学生学号唯一。除属性学号外,也可以作为键的是
随机试题
患儿,男性,5岁。不讲话,有要求用哭闹表示,不和小朋友玩,独来独往,不喜欢玩具,喜欢小瓶子。治疗首选()
既可作为活动矫治器加力装置,又可作为固位装置的是
下列诉讼可以合并审理的有:()
建设项目劳动安全卫生设施和技术措施经安全生产监督管理机构验收通过后,应及时办理建设项目劳动安全卫生()。
在起重工程中,钢丝绳一般用来做缆风绳、滑轮组跑绳和吊索,其中做滑轮组跑绳的安全系数一般不小于()。
青春期记忆的主要特点表现为()。
2014年教师节前夕,习近平总书记访问北京师范大学并提出“四有”好老师标准,即()。(2015.湖南)
周庄旅游收入已连续多年超亿元大关。在苏南,与周庄媲美的文化古镇虽不在少数,但旅游收入却只能望周庄而兴叹。当地的一位老人说,20世纪70年代陈逸飞画了这里的双桥,此画在美国展出时获奖并被石油大亨哈默斥巨资收藏。1979年邓小平访美时,哈默将此画赠给他,并说这
FTP服务器的基本配置完成后,还需对选项进行配置。FTP服务器的选项包括服务器选项、域选项、组选项和()选项。
A、Hungary,MalaysiaandthePhilippines.B、Hungary,RomaniaandthePhilippines.C、Spain,RomaniaandthePhilippines.D、Hungary
最新回复
(
0
)