2. 计算机
  3. 窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序： Private sub Commandl_Click() For k：Listl．ListCount_l To 0 step-1 Tf Listl．Selecte

窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序： Private sub Commandl_Click() For k：Listl．ListCount_l To 0 step-1 Tf Listl．Selecte

admin2010-04-10  65
问题 窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：
Private sub Commandl_Click()
For k：Listl．ListCount_l To 0 step-1
Tf Listl．Selected(k)Then
List 2．AddItern Listl．List(k)
Listl．Removehem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是
选项 A、在List2中插入了“外语”、“物理”两项
B、在Listl中删除了“外语”、“物理”两项
C、同时产生A)和B)的结果
D、把Listl中最后1个列表项删除并插入到List2中
答案C
解析 For k=Listl．ListCount-1 To O Step-l／*循环倒序遍历List1中的所有内容*／If List1．selected(k)Then  ／*如果被选中，那么*／
List2．Addltem Listl IJistl．List(k)  ／*List2中增加选中的条目*／
List1．Removeltem k  ／*把选中条目移除*／
End If  ／$结束条件If*／
Next k  ／*查看Ljst1中下一条目*／
所以正确的答案为c)。
转载请注明原文地址:https://www.kaotiyun.com/show/OQmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)