首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为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
2020-02-27
56
问题
窗体上有一个名为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://jikaoti.com/ti/Aax0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click()DimsumAsIntege
窗体上有名称为Command1的命令按钮和名称为Text1的文本框PrivateSubCommand1_Click()Text1.Text=”程序设计"Text1.SetFocusEndSubPrivateSubText1_GotFoc
设有如图所示窗体和以下程序:PrivateSubCommand1_Click()Text1.Text="VisualBasic"EndSubPrivateSubText1_LostFoeus()IfText1.Text<>"BAS
以下叙述中错误的是()。
数据流图中带有箭头的线段表示的是()。
在长度为n的有序线性表中进行二分查找,最坏情况下需要比较的次数是()。
程序运行时,要清除组合框Combol中的所有内容,应使用语句()。
设循环队列的存储空间为Q(1:m),初始状态为空。现经过一系列正常的入队与退队操作后,front=m,rear=m-1,此后从该循环队列中删除一个元素,则队列中的元素个数为()。
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
随机试题
渗氮层因较厚,工件经渗氮后仍能精车或粗磨。()
细胞的结构包括
下列哪项不是肾衰竭进展的共同机制
施工项目招标投标过程中,某投标单位在投标截止日期前提交了投标文件和投标保证金。该投标单位中标后拒绝与业主签订施工合同,业主没收了其投标保证金,该行为说明()。
在下列关于印花税的表述中,正确的是()。
“让学校的每一面墙壁都开口说话”“让学校的一草一木、一砖一石都发挥教育影响”体现了何种德育方法()
如遇非常情况,不能进行下届选举,由全国人大常委会以全体委员的()以上多数通过,可以推迟下届全国人大代表选举,延长本届任期。
超市中销售的苹果常常留有一定的油脂痕迹,表面显得油光滑亮。牛师傅认为,这是残留在苹果上的农药所致,水果在收摘之前都喷洒了农药,因此,消费者在超市购买水果后,一定要清洗干净方能食用。以下哪项最可能是牛师傅看法所依赖的假设?
内存按字节编址,地址从0A4000H到0CBFFFH。若用存储容量为32K×8bit的存储器芯片构成该内存,至少需要(3)。
Itwasamomentmostbusinessexecutiveswouldpausetosavor:latelastyear,GermansportinggoodspioneerAdidaslearnedthat
最新回复
(
0
)