首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
30
问题
窗体上有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://jikaoti.com/ti/ytS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下的程序段:n=0Fori=1To3 Forj=1Toi Fork=jTo3n=n+1 Nextk NextjNexti执行上面的程序段后,n的值为( )。
要将单选按钮Opt1设为被选中,应设置的属性是
在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combol,Command1和Text1,然后编写如下事件过程:PrivateSubForm_Load()Combol.AddItem”AAAAA”Combol
以下关于事件、事件驱动的叙述中,错误的是( )。
在黑盒测试方法中,设计测试用例的主要根据是( )。
数据库技术的根本目标是()。
假定有以下循环结构DoUntil条件循环体Loop则正确的描述是()。
数据库的故障恢复一般是由()来执行恢复。
软件工程的出现是由于【】。
计算机指令是由【】和地址码组成的。
随机试题
えらそうなことや大きなことはできませんが、小さなことから毎日休まず________と続ければ必ず良い結果に繋がると私は信じています。
计算机系统是由()组成的。
不属于参苓白术散的主治证候的是
双胍类降糖药主要作用机制为
沉箱处于漂浮状态之前,应按规定向沉箱各舱内抛石,并满足浮游稳定的要求。()
研究人员将某种植物乳酸菌混入实验鼠的饲料,在实验鼠食用这种饲料4周后,又持续两周给其施加足以引起睡眠障碍的精神压力,然后让实验鼠在夜间活动时间段蹬转轮,测试其活动量。结果显示,摄取过该乳酸菌的实验鼠活动量下降趋势得到遏制,而没有食用含该乳酸菌饲料的对照组实
关于因果关系,下列哪些选项是正确的?()
源程序文档化要求程序应加注释。注释一般分为序言性注释和【】注释。
有如下两个类定义:classAA{);classBB{AAvl,*v2;BBv3:int*v4;);其中有一个成员变量的定义是错误的,这个变量是()。
It’ssometimesthoughtthatthelongingformaterialgoods,theneedtobuythings,isarelativelymoderninvention,butinfac
最新回复
(
0
)