单选题

设窗体上有一个名为List1的列表框，并编写下面的事件过程：
Private Sub List1_Click（　　）
Dim ch As String
ch=List1．List(List1．Listlndex)
List1．RemoveItem List1．Listlndex
List1．Addltem ch
End Sub
程序运行时，单击一个列表项，则产生的结果是（　　）。

发布于 2022-05-11 09:56:51

A. 该列表项被移到列表的最前面

B. 该列表项被删除

C. 该列表项被移到列表的最后面

D. 该列表项被删除后又在原位置插入

登录后免费查看答案

关注者

被浏览

1 个回答

相关试卷

2013年9月全国计算机等级《二级VB》上机模考试卷(4) 2022-05-11

推荐阅读

设窗体上有一个名为Listl的列表框，并编写下面的事件过程：Private Sub Listl_Click()Dim ch As Stringch=Listl.List(Listl.ListIndex)List1.RemoveItem List 1.ListIndex -List1.AddItem chEndSub程序运行时，单击一个列表项，则产生的结果是（）。
2022-05-11 关注 0 浏览6 1答案
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：Private Sub Form_Load()List1.AddItem "Item 1"List1.AddItem "Item 2"List1.AddItem "Item 3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAAA"End Sub程序运行后，单击命令按钮，其结果为
2022-05-11 关注 0 浏览11 1答案
窗体上有list1、list2两个列表框，list1中有若干列表项(见图)，并有下面的程序：　　private sub comand1_click()for k=list1.listcount-1 to 0 step -1if list1.selected(k) thenlist2.additem list1.list(k)list1.removeitem kend ifnext kend sub程序运行时，按照图示在list1中选中2个列表项，然后单击commandl命令按钮，则产生的结果是
2022-05-11 关注 0 浏览14 1答案
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：Private Sub Command1_Click（　　）For k=List1．ListCout-1 To 0 Step-1If List1．Selected(k)ThenList2．Addltem List1．List(k)List1．Removeltem kEnd IfNext kEnd Sub　　程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（　　）。
2022-05-11 关注 0 浏览19 1答案
窗体上有一个列表框和一个文本框，编写下列两个事件过程：Private Sub Form．Load（　　）List1．AddIte m＂北京＂List1．AddIte m＂天津＂List1．AddIte m＂上海＂Textl ．Text ＝＂＂End SubPrivate Sub List1．Click（　　）Print Textl ．Text ＋List1．TextEnd Sub程序运行后，在文本框中输入"中国"，然后单击列表框中的"北京"，则输出结果是（　　）。
2022-05-11 关注 0 浏览10 1答案
在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Co mmand1，然后编写如下事件过程：Private Sub Form＿Load（）List1．AddIte m＂Ite m1＂List1．AddIte m＂Ite m2＂List1．AddIte m＂Ite m3＂End SubPrivate Sub Co mmand1＿Click（）List1．List（List1．ListCount）＝＂AAAA＂End Sub程序运行后，单击命令按钮，其结果为（）。
2022-05-11 关注 0 浏览11 1答案
在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。Private Sub Form_load()List1.AddItem”北京”List1.AddItem”上海”List1.AddItem”湖北”End SubPrivate Sub ______ ()Label1.Caption= ______End Sub
2022-05-11 关注 0 浏览12 1答案
窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。　　Private Sub Co mmand1＿Click（）Di mstr As Stri ng ，s As Stri ng ，k As Integers ＝Text1str ＝＂＂For k ＝List1．ListCount －1To 0Step －1If InStr（List1．List（k），s）＞0Thenstr ＝str ＆List1．List（k）＆＂＂End IfNext kIf str ＝＂＂ThenText2＝＂没有匹配的项目＂ Else Text2＝strEnd IfEnd Sub程序运行时，在Text1中输入＂京＂，单击命令按钮，则在Text2中显示的内容是（　　）。
2022-05-11 关注 0 浏览9 1答案
Private Sub Command1_Click() Call MoveAllEnd SubPublic Sub MoveItem(L1 As ListBox, L2 As ListBox)' L2.AddItem ?' L2.AddItem L1.Text L2.AddItem L1.List(L1.ListIndex)' L1.RemoveItem ? L1.RemoveItem L1.ListIndexEnd SubPublic Sub MoveAll()' For i = 0 To ? For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) NextEnd SubPrivate Sub List1_DblClick()' Call MoveItem(?) Call MoveItem(List1, List2)End Sub
2022-05-11 关注 0 浏览30 1答案
Private Sub remove(La As ListBox, Lb As ListBox)' For i = 0 To ? – 1' Lb.AddItem ?.List(i) Next' ?.ClearEnd SubPrivate Sub Command1_Click() Call remove(List1, List2)End SubPrivate Sub Command2_Click() Call remove(List2, List1)End Sub
2022-05-11 关注 0 浏览30 1答案

知识点

面圈网VIP题库全新上线，海量真题题库资源。 90大类考试，超10万份考试真题开放下载啦

去下载看看

设窗体上有一个名为List1的列表框，并编写下面的事件过程：Private Sub List1_Click（ ）Dim ch As Stringch=List1．List(List1．Listlndex)List1．RemoveItem List1．ListlndexList1．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是（ ）。