首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为List1的列表框,其中有若干列表项,并有下面程序代码: Private Sub List1_DblClick() Exchange List1.List1.ListIndex End Sub Privat
窗体上有1个名称为List1的列表框,其中有若干列表项,并有下面程序代码: Private Sub List1_DblClick() Exchange List1.List1.ListIndex End Sub Privat
admin
2020-07-22
40
问题
窗体上有1个名称为List1的列表框,其中有若干列表项,并有下面程序代码:
Private Sub List1_DblClick()
Exchange List1.List1.ListIndex
End Sub
Private Sub Exchange(Source As ListBox,k As Integer)
k%=Source.ListIndex
ch=Source.List(k)
Source.Removehem k
Source.AddItem Source.List(Source.ListCount一1),k
Source.RemoveItem Source.ListCount一1
Source.Addltem eh
End Sub
程序运行后,双击某个列表项,产生的结果是( )。
选项
A、被双击的列表项与最后一个列表项互换位置
B、被双击的列表项被删除
C、被双击的列表项移到最前面
D、被双击的列表项移到最后面
答案
A
解析
在List_DblClick过程中调用Exchange过程,并将控件对象List1作为参数传递给Exchange过程,在调用含有对象的过程时,对象是通过传地址的方式进行传递。在Exchange过程中执行如下操作步骤:
第一步:变量k保存List1列表框中已选中表项的位置
第二步:变量ch用来保存被选中列表项的内容
第三步:使用列表框的Removehem方法将列表框中已选中列表项的内容移除
第四步:通过Addltem方法将列表框最后一项的内容放置于已选中表项的位置
第五步:将列表框的最后一项内容移除
第六步:将第二步中变量ch中保存的内容放置到列表框的最后一项
根据上述操作步骤可知,过程Exchange的功能是当双击列表框中的某一表项时,将该表项内容与最后一项内容进行交换,故A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/GAHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定Picturel和Textl分别为图片框和文本框的名称,则下列错误的语句是()。
下列叙述中正确的是()。
下列说法中错误的是()。
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中,下面可实现此功能的事件过程是()。
设:a=12,b=5,c=7,表达式x=(a\c+aModb)+Int(13/5)的值是()。
能得到组合框Combo1中最后一个列表项序号的表达式是()。
对于长度为n的线性表,在最坏情况下,下列各排序法所对应的比较次数中正确的是()。
在一个容量为15的循环队列中,若头指针front=6,尾指针rear=9,则循环队列中的元素个数为
用树形结构表示实体之间联系的模型是
“商品”与“顾客”两个实体集之间的联系一般是
随机试题
以智能密集型企业为核心,联合工业、贸易、金融等组成企业集团以开发高新技术为目标的集团化战略属于()
求。
36岁妇女停经52天,阴道少量流血3日,伴阵发性下腹痛并逐渐加重,查子宫增大如孕50+天,宫口松,并见有组织物堵塞,下列哪项处理正确:
A.右肺上沟瘤(pallcoast瘤)B.右上肺结核C.右上肺炎D.右上肺脓肿E.右上肺鳞癌下列根据各临床表现,选择其最可能的临床诊断患者,男性,68岁,嗜烟。刺激性咳嗽2个多月,近1周出现咯血且感右上胸痛。X线胸片示右上肺类圆形阴影,约3.
A.尿流突然中断B.排尿困难C.膀胱刺激症状D.镜下血尿E.肾绞痛输尿管结石梗阻时会出现
客运专线箱梁的刚度强、重量大,对制梁台座、存梁台座及提梁机轨道基础的承载能力及不均匀沉降提出了很高的要求,制梁场的位置应尽量选在地质条件好的地方,减少(),尽量降低大型临时工程费用。
下列各项中,与普通年金现值系数互为倒数的是()。
使用Windows的录音机程序生成的声音扩展名是()。
いたる
A、Themanlosthisnewcameraattheairport.B、Themanlefthisnewcamerainhisfriend’scar.C、Themanenjoyedusinghisnew
最新回复
(
0
)