首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程: Private Sub Command1_Click() n%=List1.ListIndex If n>0 Then ch$=L
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程: Private Sub Command1_Click() n%=List1.ListIndex If n>0 Then ch$=L
admin
2019-03-08
14
问题
窗体上有一个名为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
解析
List属性是一个数组,存放列表框中所有项目的内容;ListIndex属性可返回当前所选项目的索引号,第一个项目的索引号为0。List1.List(n-1)指的是当前选中列表项的前一个列表项。
转载请注明原文地址:https://jikaoti.com/ti/dpm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是
有如下程序段:x=5Fori=1To20Step2x=x+i\5Nexti执行上面的程序段后,x的值为
有如下程序代码:PrivateSubForm_Click()DimiAsInteger,nAsIntegerFori=0To30i=i+3n=n+1
下列各语句中,正确的是
在窗体上画2个名称分别为Text1和Text2的文本框,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text="ChinaBeijing"Text1.SetFocusEnd
下列叙述中,正确的是()。
如果窗体模块A中有一个过程:PrivateSubProc()……EndSub则下面叙述中错误的是
假定在某个事件过程中需要计算:y=3!+5!的值,下面最好的设计是
下面关于列表框控件的叙述中错误的是
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示"打开"对话框时,希望在该对话框的"文件类型"栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为( )。
随机试题
噻托溴铵的临床应用注意事项有
Whatisthebestwaytobreakupaboringmomentandtensionintheoffice?Howdoesonedevelopone’ssenseofhumor?Asp
高血压性心脏病代偿期的特征是
患者,女,50岁。无明显诱因流泪、眼球突出5年余。近半年症状加重,并出现头痛。查体:左眼球向鼻下方突出,眼眶外上方可触及一较硬肿块。CT平扫:左侧泪腺窝区可见不规则肿块影,密度不均匀,内可见片状低密度坏死区及斑点状钙化影,增强扫描肿块不均匀强化,眼眶顶壁可
患者女,因与家人争吵服毒自杀被送入院,遵医嘱洗胃。没有人知道该患者服用的是哪种毒物,护士应采取的护理措施是
赵某,男,32岁,一日到商场购物,见首饰柜台的售货员正在为顾客试首饰,当着顾客的面,从柜台中拿出一串项链(价值3500元),狂奔出门坐出租车逃走,售货员报警后将其抓获。赵某构成何罪?( )
某水电站厂房为现浇钢筋混凝土结构。监理工程师批准的施工网络计划如下图所示(图中持续时间单位为月)。该工程施工合同工期为18个月。合同中规定,土方工程单价为16元/m3,土方工程量估算为22000m3;混凝土工程量估算为1800m3,单价为320元/m3;当
商业银行在追求和采用高级风险量化方法时,随着高级量化技术的复杂程度增加,通常会产生()。
集体土地转为国有土地后,地上房屋纳入城市房屋管理范围所进行的登记是()
阅读下列说明,回答问题1至问题4,将解答填入答题纸的对应栏内。【说明】某医疗护理机构为老年人或有护理需求者提供专业护理,现欲开发一基于Web的医疗管理系统,以改善医疗护理效率。该系统的主要功能如下:(1)通用信息查询。客户提交通用信息
最新回复
(
0
)