首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有一个名称为List1的列表框,其中有若干列表项,并有下面的事件过程: Private Sub List1_DblClick() For i=0 To List1.ListCount-2 k=i For j=k To List1.ListCount
设窗体上有一个名称为List1的列表框,其中有若干列表项,并有下面的事件过程: Private Sub List1_DblClick() For i=0 To List1.ListCount-2 k=i For j=k To List1.ListCount
admin
2020-02-27
29
问题
设窗体上有一个名称为List1的列表框,其中有若干列表项,并有下面的事件过程:
Private Sub List1_DblClick()
For i=0 To List1.ListCount-2
k=i
For j=k To List1.ListCount-1
If List1.Iist(j)>List1.List(k)Then
k=j
End If
Next j
st$=List1.List(k)
List1.List(k)=List1.List(i)
List1.List(i)=st$
Next i
End Sub
程序运行时,双击某个列表项则产生的结果是( )。
选项
A、被双击的列表项与最前面的列表项互换位置
B、被双击的列表项与最后面的列表项互换位置
C、列表项从大到小排序
D、列表项从小到大排序
答案
C
解析
本题主要考查利用简单选择排序法对列表框Listl中的元素进行排序,简单选择排序法的思路是:利用外层循环遍历列表框中的全部数据,将当前第一个元素下标保存到变量中,然后利用内层循环与外层循环的当前元素进行比较,将较大数交换到前面。故本题的主要功能是按照从大到小的顺序对列表框中的元素进行降序排列,所以C选项正确。
转载请注明原文地址:https://kaotiyun.com/show/3xTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下关于VB特点的叙述中,错误的是( )。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerStaticzAsIntegerx
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,shiftAsInteger)DimcAsStringc=UCa
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是()。
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load()Shape1.Top=0Timer1.Interval=100End
设a=4,b=5,c=6,执行语句Printa<bAndb<c后,窗体上显示的是()。
以下叙述中错误的是()。
以下声明数组和给数组赋值的语句中,正确的是()。
对软件系统总体结构图,下面描述中错误的是()。
某二叉树共有400个结点,其中有100个度为l的结点,则该二叉树中的叶子结点数为()。
随机试题
以放火、爆炸等危害公共安全的方法故意杀人时,其行为符合放火、爆炸等罪的构成要件,也符合故意杀人罪的构成要件,成立_______,应_______认定为故意杀人罪。
“火海”征也可见于下列哪一种疾病
关于应用微泡型超声造影剂进行心脏超声造影,错误的选项是
雄黄内服的用量为
某业主与W工程公司依据FIDIC条款格式,订立了某公路工程的施工合同。合同规定:采用单价合同,因设计变更而发生的工程量变化,按实调整;同时视具体的变动情况,业主与承包商商谈变更后的单价。合同工期为18天,工期每提前1天奖励2000元,每拖后1天罚款4000
Windows中,将文件或文件夹放入回收站,表明该文件或文件夹()。
在小组讨论中,适时在小组中形成真空,使组员自己进行判断;在接受意见和建议后,请组员自己进行判断的技巧属于()。
把世界看作是从来如此、始终不变的自然界,人不过是从属于自然的一部分。这种观点是()。
Readthefollowingtextandanswerquestionsbyfindinginformationfromtherightcolumnthatcorrespondstoeachofthemarked
2005年11月15日华为软件研发笔试题。实现一单链表的逆转。
最新回复
(
0
)