在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个名为Listl的列表框，列表框中有若干列表项，如图40—6所示，通过属性窗口设置列表框的MultiSelect属性值为1，一个名为Textl的文本框，还有两个命令按钮，名称分别是Commandl和Command2，标题分别是“全选”和“存盘”。要求在程序运行时，单击commandl按钮则将Listl中的全部列表项选中，然后单击Command2按钮，将Listl中的全部列表项写入Textl中，并写入文本文件out．txt中，并将out．txt保存在考生文件夹下。
【正确答案】正确答案：本题主要考查列表框的使用。列表框用于在很多项目中作出选择的操作。列表框的ListCount属性表示表项的数量，列表项的排列从0开始，最后一项的序号为ListCount-1。使用列表项的Selected属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为True或False，为True时表示选择了该项，为False表示未选择。 根据题意，将两个命令按钮、一个列表框控件和一个文本框控件添加到窗体中，命令按钮的名称分别为Commandl和Cornmand2、Caption属性分别为“全选”和“存盘”，列表框的名称为Listl，文本框的名称为Textl。补充后的具体代码如下： Private Sub Commandl Click() Dim i As Integer Dim str As String str="" For i=0 To Listl．ListCount-1 Listl．
Selected(i)
=True'将所有的列表项都选中 str=str+Listl．List(i) '将选中的文本写入一个变量里面，最后一起输出 Next i Textl．
Text
=str End Sub Private Sub Command2 Click() Open App．Path&"＼Out．txt"For
Output
As#1 '打开文件 Dim i As Integer For i=0 T0 Listl．ListCount-1
Print
#1，Listl．List(i) '将每一项都写入到文件中 Next i Close#1 End Sub Private Sub Form Load() Listl．
AddItem
"足球" '向列表中添加选项 Listl．
AddItem
"篮球" Listl．
Addltem
"排球" End Sub 单击
【答案解析】