全国信息技术应用考试
相似问题和答案
第1题：
窗体卜有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中
解析：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)。
第2题：
A.方法
B.对象
C.属性
D.事件
第3题：
A、list-type
B、list-style-image
C、list-style-type
D、type
第4题：
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序： Private Sub Command1_Click（ ） For k=List1．ListCout-1 To 0 Step-1 If List1．Selected(k)Then List2．Addltem List1．List(k) List1．Removeltem k End If Next k End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（ ）。
A.在List2中插入了“外语”、“物理”两项
B.在List1中删除了“外语”、“物理”两项
C.同时产生A和B的结果
D.把List1巾最后1个列表项删除并插入到List2中
C。【解析】本题程序中的意思为如果选择了符合条件的数，那么将选中的项增加到List2列表框中，同时在List1中移除所选项，所以本题A和B选项均正确。
第5题：
设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Private Sub List1_Click（ ）
Dim ch As String
ch=List1．List(List1．Listlndex)
List1．RemoveItem List1．Listlndex
List1．Addltem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是（ ）。
A.该列表项被移到列表的最前面
B.该列表项被删除
C.该列表项被移到列表的最后面
D.该列表项被删除后又在原位置插入
C。【解析】List1列表框先将选中的ch字符删除，然后再将其插入到最后，ListBox在增加项的时候是加在列表最后面的。
第6题：
设窗体上有一个名为List1的列表框，并编写下面的事件过程： Private Sub List1_Click（ ） Dim ch As String ch=List1．List(List1．Listlndex) List1．RemoveItem List1．Listlndex List1．Addltem ch End Sub 程序运行时，单击一个列表项，则产生的结果是（ ）。
A.该列表项被移到列表的最前面
B.该列表项被删除
C.该列表项被移到列表的最后面
D.该列表项被删除后又在原位置插入
C。【解析】List1列表框先将选中的ch字符删除，然后再将其插入到最后，ListBox在增加项的时候是加在列表最后面的。
第7题：
（ 31 ） 窗体上有 List1 、 List2 两个列表框 ， List1 中有若干列表项 （ 见图 ） ， 并有下面的程
序：
Private Sub Comand1_Click （）
For k=List1.ListCount-1 To 0 Step -1
If List1.Selected （ k ） Then
List2.AddItem List1.List （ k ）
List1.RemoveItem k
End If
Next k
End Sub
程序运行时，按照图示在 List1 中选中 2 个列表项，然后单击 Commandl 命令按钮，则产生的结果是
A ）在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项
B ）在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项
C ）同时产生 A ）和 B ）的结果
D ）把 List1 中最后 1 个列表项删除并插入到 List2 中
第8题：
在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是
A．List1．Removeltem List1．Text
B．List1．Removeltem List1．CIear
C．List1．Removeltem List1．ListCount
D．List1．Removeltem List1．Listlndex
解析：单击某个城市名则该城市名消失，说明是要移除选中的列表项，Removeltem方法的用法为，<ListName>．Removeltem<．Index>，四个选项的不同点均在<Index>上，而要移除选中的列表项则要使用选中的列表项索引号，即：List1．Listlndex，因此本题答案为D)。
第9题：
窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能：
Private Sub Command l Click（ ） Dim n％，k％ n=Len(Text1．Text) For k=0 To List1．ListCount-1 If Left(List1．List(k)，n)=Text1．Text Then List 1．Removeltem k End If Next k End Sub 在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1．ListCount-1改为（ ）。
A.For k=List1．ListCount-1 To 0 Step-1
B.For k=0 To List1．ListCount
C.For k=1 To List1．ListCount-1
D.For k=1 To List1．ListCount
A。【解析】在执行RemoveItem时，会改变该序号item之后的列表内容的序号，因此，循环删除应从后向前操作。
第10题：
执行list1.list(list1.listcount)=“80”会()。
A.会产生错误信息
B.list1列表框最后一个表项被改为“80”
C.list1列表框会增加一个“80”表项
D.指定list1列表框的表项个数为80个