首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为Listl的列表框和一个名为Commandl的命令按钮,并有下面的事件过程: Private Sub Command l Click() n%=Listl.Listlndex If n>0 The
窗体上有一个名为Listl的列表框和一个名为Commandl的命令按钮,并有下面的事件过程: Private Sub Command l Click() n%=Listl.Listlndex If n>0 The
admin
2020-07-22
50
问题
窗体上有一个名为Listl的列表框和一个名为Commandl的命令按钮,并有下面的事件过程:
Private Sub Command l Click()
n%=Listl.Listlndex
If n>0 Then
ch$=Listl.List(n) Listl.List(n)=Listl.List(n-1)
Listl.List(n-1)=ch
End If
End Sub
程序运行时,选中1个列表项,然后单击Commandl按钮,则产生的结果是( )。
选项
A、若选中的不是最前面的列表项,则选中的列表项与它前一个列表项互换位置
B、选中的列表项与它前面的列表项互换位置
C、若选中的不是最后面的列表项,则选中的列表项与它后一个列表项互换位置
D、选中的列表项与它后面的列表项互换位置
答案
A
解析
当单击Commandl按钮后,Listl列表框中被选中项的索引值赋给变量n,如果被选中项不是空也不是第l项时,将选中项的项目文字赋值给变请ch,用选中项的上面一项的文字替换选中项的文字,再把变量ch 中的文字替换选中项上面一项的文字,简单说就是选中项和它上面一项的文字交换。因此A选项的说法正确。
转载请注明原文地址:https://www.kaotiyun.com/show/luHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下操作中,不能改变窗体大小的是
窗体上有名称为Command1的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1_Click()DimaDimb(10)AsIntegera=Array(2,4,
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSubCom
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写以下程序代码:OptionBase1PrivateSubCommand1_Click()Dimarr1(4,4)AsIntegerDim
对关系S和关系R进行集合运算,结果中既包含关系S中的所有元组也包含关系R中的所有元组,这样的集合运算称为()。
数据库管理系统是()。
下列程序的执行结果为()。A="5":B="6"A=VaI(A)+Val(B)B=Val("56")IfA<>BThenPrintA-BElsePrintB-A
下列关于栈和队列的描述中,正确的是()。
有两个关系R和T如下图所示:则由关系R得到关系T的运算是()。
随机试题
高新技术在医疗卫生应用中的伦理问题是()
病人先见高热口渴,汗出,后出现消瘦,面色淡白,气短乏力,脉细无力,证属
子宫迟缓时不能使用下列哪种方法?()
能敛肺,涩肠,止痛的药是能敛肺,涩肠,安蛔的药是
具有文明的语言习惯,该目标属于《3—6岁儿童学习与发展指南》语言子领域中的()。
2018年3月5日中华人民共和国第()届全国人民代表大会第一次会议在北京召开,听取国务院总理李克强关于政府工作的报告。
金融危机从发生到蔓延,经济学家先后用英文字母V、U、L、W的形状来为世界经济走势画像。这传达一个信息:金融危机现象复杂、形势严峻,即使是受过专门训练的经济学家也难以做到“一叶知秋”,这说明()。
将党在抗日战争时期实行的减租减息政策改变为实行“耕者有其田”政策的是()
Thereseemsnevertohavebeenacivilizationwithouttoys,butwhenandhowtheydevelopedisunknown.Theyprobablycameabout
InatotalofsixstatesinthemiddleofAmerica,15,000assembly-lineworkersare【C1】______Japanesecarstogether.Theseautow
最新回复
(
0
)