问答题
在窗体上画一个列表框，名称为List1，通过属性窗口向列表框中添加3个项目，分别为“Iterm1、“Iterm2”和“Item3”。编写适当的事件过程。使程序运行后，如果双击Form1空白处．则清空列表框中的内容。程序运行时窗体界面如下图左图和下图右图所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
【正确答案】列表框控件用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按＜Ctrl+Enter＞组合键换行再输入下一项)，也可在程序运行时通过代码“列表框名.Addhem”项目" "加入，清除窗体内容可通过Cls方法来实现。
根据题意，新建“标准EXE”工程，将一个List控件添加到窗体中，其名称为List1，在属性窗口的List属性中添加“Item1”、“Item2”和“Item3”，每输入一个后按＜Ctrl+Enter＞组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，双击Form1的空白处，进入代码编写窗口，编写如下代码：
Private Sub Form_DblClick()
Dim i As Integer
For i＝List1.ListCount-1 To 0 Step-1 '先删除索引大的项，防止i溢出
List1.Remove Item i '移除索引指定项
Next i
End Sub
单击
根据题意，新建“标准EXE”工程，将一个List控件添加到窗体中，其名称为List1，在属性窗口的List属性中添加“Item1”、“Item2”和“Item3”，每输入一个后按＜Ctrl+Enter＞组合键换行输入下一个元素，当输入完成后，按回车键，则元素添加完成，双击Form1的空白处，进入代码编写窗口，编写如下代码：
Private Sub Form_DblClick()
Dim i As Integer
For i＝List1.ListCount-1 To 0 Step-1 '先删除索引大的项，防止i溢出
List1.Remove Item i '移除索引指定项
Next i
End Sub
单击
【答案解析】