单选题
窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：
窗体上有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命令按钮，则产生的结果是（ ）。
发布于 2022-05-11 09:57:10
登录后免费查看答案
关注者
0
被浏览
20
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的列表框，并编写下面的事件过程：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答案
-
窗体上有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答案
-
在窗体上画一个列表框和一个命令按钮，其名称分别为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 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答案
-
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() 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答案
-
窗体如图1所示。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现如此功能：Private Sub Command l Click（ ）Dim n％，k％n=Len(Text1．Text)For k=0 To List1．ListCount-1If Left(List1．List(k)，n)=Text1．Text ThenList 1．Removeltem kEnd IfNext kEnd Sub在调试时发现，如输入“陈”，可以正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把For k=0 To List1．ListCount-1改为（ ）。
2022-05-11 关注 0 浏览14 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答案
