窗体上有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中
窗体上有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中
相关考题:
(8)在程序的空白处填写适当的语句,完成下列功能:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop
窗体卜有Listl、List2两个列表框,Listl中有若干列表项(见图),并有下面的程序:Private sub Commandl_Click()For k:Listl.ListCount_l To 0 step-1Tf Listl.Selected(k)ThenList 2.AddItern Listl.List(k)Listl.Removehem kEnd IfNext kEnd Sub程序运行时,按照图示在List1中选中2个列表项,然后单击Command1命令按钮,则产生的结果是A.在List2中插入了“外语”、“物理”两项B.在Listl中删除了“外语”、“物理”两项C.同时产生A)和B)的结果D.把Listl中最后1个列表项删除并插入到List2中
设窗体上有—列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A.List1.ListB.List1.List1ndexC.List1.IndexD.List1.Text
设窗体上有一个列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是A.List1.ListB.List1.ListIndexC.List1.IndexD.List1.Text
设窗体上有一个列表框控件List1,且其中含有若干列表项,则以下能表示当前被选中的列表项内容的是 ______。A.List1.ListB.List1.ListIndexC.List1.IndexD.List1.Text
( 31 ) 窗体上有 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 命令按钮,则产生的结果是A )在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项B )在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项C )同时产生 A )和 B )的结果D )把 List1 中最后 1 个列表项删除并插入到 List2 中
给程序的空白行选择适当的语句。程序段的功能是:依次自动将列表框List2中所有列表项目移入列表框List1中,并将移入List1中的项目从List2中删除。( ) Do While List2.List Count ______ List2.Removeltem0 LoopA.List1.AddltemList2.List(0)B.List1.Addltem List2.TextC.List2.AddltemList1.List(0)D.List2.AddltemList1.Text
窗体上有一个命令按钮Command1和一个列表框List1,其中List1有0、1、2、3、4的内容,有下列程序: Private Sub Command1_Click() Dim i,s For i=0 To List1.ListCount s=s+List1.List(i) Next i Print s End Sub 程序运行后,单击命令按钮,则窗体上显示的是A.0B.10C.01234D.程序出错
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是________。A.List1.TextB.List1.IndexC.List1.ListD.List1.ListIndex