将For循环的终值改为List1.ListCount
将List1.Selected（i）＝True改为List1.List（i）.Selected＝True
将List2.AddItem Text改为List2.AddItem List.List（i）
将List2.AddItem Text改为List2.AddItem List.ListIndex
第1题：
（8）在程序的空白处填写适当的语句，完成下列功能：依次自动将列表框List2中所有列表项目移入列表框List1中，并将移入List1中的项目从List2中删除 Do While List2.ListCount _____________________ List2.RemoveItem 0 Loop
第2题：
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：
Private Sub Command1_Click()
Dim In As Integer
In=______
List.Remove Ind
End Sub
则在程序的空白行的语句是( )。
A．List1.Index
B．List1.ListIndex
C．List1.Text
D．List1.ListCount
第3题：
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load（）
For i=1 To 100
If i Mod 7 =0 Then
________
End If
Next
End Sub
Private Sub Command1_Click（）
Sum = 0
For i = 0 To ________
Sum = Sum + ________
Next
Text1.Text = Sum
End Sub
list1.additem i list1.listcount-1 list1.list(i)
第4题：
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。
A. 京
B. 北京南京
C. 南京北京
D. 没有匹配的项目
第5题：
设计不能最大化和最小化的表单(如图5-10所示)：有2个列表List1和List2，List1的项目初始为A、B、C、D、E、P。当单击“＞”按钮，或在List1中双击项目时，将List1中当前选定的项目添加到List2中；当单击“＜”按钮，或在List2中双击项目时，将List2中当前选定的项目移回到Listl中。List1的项数为0时，则禁用“＞”按钮，否则启用该按钮；List2的项数为0时，则禁用“＜”按钮，否则启用该按钮。
④打开“代码编辑”窗口添加List1的DblClick事件代码如图5-11所示。
⑤添加List2的DblClick事件代码如图5-12所示。
⑥添加“＞”按钮的Click事件代码如图5-13所示。
⑦添加“”按钮的Click事件代码如图5-14所示。
④打开“代码编辑”窗口，添加List1的DblClick事件代码，如图5-11所示。
⑤添加List2的DblClick事件代码，如图5-12所示。
⑥添加“＞”按钮的Click事件代码，如图5-13所示。
⑦添加“”按钮的Click事件代码，如图5-14所示。
第6题：
在窗体上有一个列表框，名称为List1，该列表框中有三个选项，分别为“123”、“456”和“789”，当前没有任何选项被选中，则执行List1．RemoveItem List1．ListIndex语句后，移去的是( )。
A．123
B．456
C．789
D．出错
第7题：
在窗体上有一个名称为List1列表框和一个名称为Command1的按钮，List1的MultiSelect属性设置为2。当单击Command1按钮时，将会把所有选中的选项全部删除。下列程序缺少的一句是______。Private Sub Command1_ Click () for i = List1. ListCount- 1 To 0 Step- 1 if ______ = True then List1. RemoveItem i End if Next iEnd Sub
A．List1.Select(i)
B．List1.Sort(i)
C．List1.List(i)
D．Ltst1.Select(List1.Listindex)
第8题：
3在窗体上画一个名称为List1的列表框，一个名称为Labe11的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是( )。
A．
B．
C．
D．
第9题：
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。
Pfivate Sub Form_Load()
Fori=1 To 100
If iMod7=
第10题：
在窗体上有一个名称为Command1的命令按钮，并有如下程序：
程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为（ ）。
A. 5 16
B. 5 6
C. 15 15
D. 15 6