首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为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-08-28
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://www.kaotiyun.com/show/qmLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在用Open语句打开文件时,如果省略“For方式”,则打开的文件的存取方式是()。
执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量strInput的内容是______。atrInput=InputBox(“请输入字符串”,“字符串对话框”,“字符串”)
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
执行下面的程序段后,S的值为【】。s=5Fori=2.6To4.9Step0.6s=s+1Nexti
使用目录列表框的______属性可以返回或设置当前工作目录的完整路径(包括驱动器盘符)。
下列程序段的执行结果为______。I=0ForG=10To19Step3I=I+1NextGPrintI
要获得文件列表框中当前被选中的文件的文件名,则应使用哪个属性______。
在窗体上建立—个名称为Text1的文本框,用来接收一个整数。当form1_Click事件发生时,将在窗体上显示输入整数的各位数字和。PrivateFunctionfun(mAsInteger)AsIntegerDimkAsInte
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为
执行下面的程序段后,变量S的值为【】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti
随机试题
A、上牙槽后神经+腭前神经B、下牙槽神经+颊长神+舌神经C、上牙槽前神经+鼻腭神经D、下牙槽神经+舌神经E、上牙槽中神经+上牙槽后神经+腭前神经拔除;下列牙时,应麻醉哪组神经下颌第一前磨牙
结核分枝杆菌形态学诊断最常用染色方法是
前噬菌体是
对于将现金送存银行业务,会计人员应填制的记账凭证是()。
某集团公司2014年发生如下业务:(1)在组织会计职业道德学习时,单位负责人认为坚持准则就是指只坚持会计准则。(2)会计人员认真向生产车间工人宣讲会计基础知识,推动了班组核算制度的顺利开展。(3)单位负责人要求张某做假账,张某
现新建一所大学,在下列费用中应包括在该新建大学某教学楼单项工程综合概算中的是()。
对乘机离境的旅游团,地陪应提醒或协助领队提前()小时确认机票。
()的人员在企业中没有固定的办公桌。
已知3阶矩阵A满足|A-E|=|A-2E|=|A+E|=a,其中E为3阶单位矩阵。(1)当a=0时,求行列式|A+3E|的值;(2)当a=2时,求行列式|A+3E|的值。
Neverunderestimatethelearningpowerofplay.OneofParks’findingsisthatchildren【C1】______valuablelearningopportunitie
最新回复
(
0
)