窗体上有list1、list2两个列表框,程序运行时,在两个列表框中分别选中1个项目,如图a所示,单击名称
Private Sub Command1_Click()
If list1.text=””or list2.text””then
Msgbox”请选择交换的物品!”
Else
List1.additem list2.text
List2.removeitem【11】
【12】
List1.removeitem list1.listindex
End If
End Sub
Private Sub Command1_Click()
If list1.text=””or list2.text””then
Msgbox”请选择交换的物品!”
Else
List1.additem list2.text
List2.removeitem【11】
【12】
List1.removeitem list1.listindex
End If
End Sub
窗体上有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中
(31 ) 窗体上有 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 命令按钮,则产生的结果是
A )在 List2 中插入了 “ 外语 ” 、 “ 物理 ” 两项
B )在 List1 中删除了 “ 外语 ” 、 “ 物理 ” 两项
C )同时产生 A )和 B )的结果
D )把 List1 中最后 1 个列表项删除并插入到 List2 中
窗体卜有Listl、List2两个列表框,Listl中有若干列表项(见图),并有下面的程序:
Private sub Commandl_Click()
For k:Listl.ListCount_l To 0 step-1
Tf Listl.Selected(k)Then
List 2.AddItern Listl.List(k)
Listl.Removehem k
End If
Next k
End Sub
程序运行时,按照图示在List1中选中2个列表项,然后单击Command1命令按钮,则产生的结果是
A.在List2中插入了“外语”、“物理”两项
B.在Listl中删除了“外语”、“物理”两项
C.同时产生A)和B)的结果
D.把Listl中最后1个列表项删除并插入到List2中
窗体上有一个列表框和一个文本框,编写下列两个事件过程:
Private Sub Form. Load()
List1.Addltem"北京"
List1.Addltem"天津"
List1.Addltem"上海"
Text1.Text=""
End Sub
Private Sub List1 Click()
Print Text1.Text+List1.Text
End Sub
程序运行后,在文本框中输入“中国”,然后单击列表框中的“北京”,则输出结果是()。
A.中国北京
B.中国天津
C.中国上海
D.北京中国
窗体上有一个命令按钮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.0
B.10
C.01234
D.程序出错
设窗体上有—列表框控件List1,且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
A.List1.List
B.List1.List1ndex
C.List1.Index
D.List1.Text
A.List1.List
B.List1.ListIndex
C.List1.Index
D.List1.Text
A.List1. List
B.List1. ListIndex
C.List1. Index
D.List1. Text
A.List1.Index
B.List1.ListIndex
C.List1.Text
D.List1.ListCount
A.List1.Index
B.List1.ListIndex
C.List1.Text
D.List1.listCount