首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程: Private Sub Command1_Click() n%=List1.ListIndex If n>0 Then ch$=List1.Lis
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程: Private Sub Command1_Click() n%=List1.ListIndex If n>0 Then ch$=List1.Lis
admin
2015-06-30
63
问题
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:
Private Sub Command1_Click()
n%=List1.ListIndex
If n>0 Then
ch$=List1.List(n)
List1.List(n)=List1.List(n-1)
List1.List(n-1)=ch
End If
End Sub
程序运行时,选中1个列表项,然后单击Command1按钮,则产生的结果是( )。
选项
A、若选中的不是最前面的列表项,则选中的列表项与它前一个列表项互换位置
B、选中的列表项与它前面的列表项互换位置
C、若选中的不是最后面的列表项,则选中的列表项与它后一个列表项互换位置
D、选中的列表项与它后面的列表项互换位置
答案
A
解析
当单击Command1按钮后,List1列表框中被选中项的索引值赋给变量n,如果被选中项不是空也不是第1项时,将选中项的项目文字赋值给变量ch,用选中项的上面一项的文字替换选中项的文字,再把变量ch中的文字替换选中项上面一项的文字,简单说就是选中项和它上面一项的文字交换。因此A选项的说法正确。
转载请注明原文地址:https://kaotiyun.com/show/IfQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。DimA(10,10)ForI=2To4ForJ=4To5A(I,J)=I*JNextJNextIPrint
两个关系有若干相同属性名等值连接,并去掉重复属性的关系代数运算称为______。
执行以下程序段后,变量c$的值为a$="VisualBasicPrograming"0b$="Quick"c$=b$&UCase(Mid$(a$,7,6))&Right$(aS,11)
下列叙述中错误的是
假如用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序;PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsIn
下面说法中,不正确的是
在磁盘C的根目录下有一个名为Sco.dar的文件,内容为姓名、英语成绩、物理成绩、数学成绩,现依此文件在根目录中建立一个名为Aver.dat的文件,内容为姓名及三门课的平均成绩,但程序不完整,请在______处补充。Open"C:\Sco.dat"
执行下列语句后,输出结果为______。s$="ABCDEFG"PrintInStr(s$,"efg")PrintLCase$(s$)
随机试题
女,70岁。蛋白尿一个月,尿蛋白定量6g/L,蛋白电泳显示以小分子蛋白为主,呈单克隆分布。其蛋白尿的性质应为()
下列关于水头梯度的说法,哪个正确?()
设备工程投资控制的主体是()。
某桥梁工地的简支板梁架设,由专业架梁分包队伍架设。该分包队伍用两台50t履带吊,以双机抬的吊装方式架设板梁。在架设某跨板梁时,突然一台履带吊倾斜,板梁砸向另一台履带吊驾驶室,将一名吊车驾驶员当场砸死,另有一人受重伤。事故发生后,项目经理立即组织人员抢救伤员
在某纺织职业技术学校新区建设中,总承包商的项目经理在开工前组织有关人员对项目结构进行了逐层分解。这项工作所采用的组织工具应是()。
重力式码头预制沉箱采取远程拖带时,宜采取()措施。
北方某黄金饰品销售公司一直主要从南方沿海城市的生产厂家组织货源,经过10年的发展,公司年销售额近2亿元人民币。该公司今年收购了一家黄金饰品生产企业,这种一体化类型属于()。
我国《民用航空法》规定,国内航空运输发生重大航空事故时,一般情况下按照()进行赔偿。
下列说法错误的是()。
TheEuropeanCentralBankleftitsmaininterestrateunchangedWednesday,choosingtoputtheonusonpoliticalleaderstoaddr
最新回复
(
0
)