单选题
设窗体上有一个名为Listl的列表框，并编写下面的事件过程：
设窗体上有一个名为Listl的列表框，并编写下面的事件过程：
Private Sub Listl_Click()
Dim ch As String
ch=Listl.List(Listl.ListIndex)
List1.RemoveItem List 1.ListIndex -
List1.AddItem ch
EndSub
程序运行时，单击一个列表项，则产生的结果是（ ）。
发布于 2022-05-11 10:17:46
登录后免费查看答案
关注者
0
被浏览
7
1 个回答
推荐阅读
-
设窗体上有一个名为List1的列表框，并编写下面的事件过程：Private Sub List1_Click（ ）Dim ch As Stringch=List1．List(List1．Listlndex)List1．RemoveItem List1．ListlndexList1．Addltem chEnd Sub程序运行时，单击一个列表项，则产生的结果是（ ）。
2022-05-11 关注 0 浏览14 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答案
-
窗体上有一个列表框和一个文本框，编写下列两个事件过程：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、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答案
-
在窗体上画一个列表框和一个命令按钮，其名称分别为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 SubPrivate Sub ______ ()Label1.Caption= ______End Sub
2022-05-11 关注 0 浏览12 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答案
-
设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：Private Sub Command1_Click() Dim S As String , ch As String S=“” For k=1 TO Len(Text1) ch = Mid(Text1,k,l) S=ch+S Next k Text1.Text=SEnd Sub程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是
2022-05-11 关注 0 浏览18 1答案
-
在名称为Form1的窗体上建立一个名称为Listl的列表框。在程序运行后，通过Form _Load()事件过程加载窗体时，执行语句Listl．AddItem“Item1”和List1．Addltem“Item2”，每当单击列表项时，就将执行语句List1．AddItem List1．Text一次，如图6-2所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
2022-05-11 关注 0 浏览32 1答案
