单选题
窗体上有list1、list2两个列表框，list1中有若干列表项(见图)，并有下面的程序：
窗体上有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命令按钮，则产生的结果是
发布于 2022-05-11 10:18:14
登录后免费查看答案
关注者
0
被浏览
15
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的列表框，并编写下面的事件过程：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答案
-
Private Sub Command1_Click() Dim k%' For k = List1.ListCount - 1 To 0 ? If List1.Selected(k) = True Then' List2.AddItem ?' List1.RemoveItem ? End If Next kEnd SubPrivate Sub Command2_Click() Dim k% Text1 = "已经选中的城市有：" For k = 0 To List2.ListCount - 1 Step 1' Text1 = ? & " " & List2.List(k) Next kEnd Sub
2022-05-11 关注 0 浏览20 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答案
-
窗体上有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 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答案
-
窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为 Command1的命令按钮，并有以下程序 Private Sub Command1_Click()Dim str As String, s As String, k As Integers=Text1Str=””For k=List1.ListCount-1 to 0 Step-1If InStr(List.List(k),s)>0 thenstr=str&List.List(k)&” ”End IfNext kIf str=””ThenText2=”没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是( )
2022-05-11 关注 0 浏览15 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 Command1_Click() n = Val(Text1.Text)' ? For k = 1 To n List1.AddItem Int(Rnd * 100) Next kEnd SubPrivate Sub Command2_Click()' For k = List1.ListCount - 1 To ? Step -1 If Val(List1.List(k)) Mod 2 = 1 Then' s = s + Val( ? )' List1.RemoveItem ? List1.RemoveItem k End If Next k' ? = sEnd Sub
2022-05-11 关注 0 浏览29 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答案
