注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名为L1的列表框，列表框中有若干的列表项如图11-7所示，通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮，名称分别是 C1和C2，标题分别是“全选”和“存盘”。要求在程序运行时，点击C1按钮则将 L1中的全部列表项选中，然后点击C2按钮，将L1中的全部列表项写入文本文件 out7.txt中，并将out7.txt保存在考生文件夹下。
参考答案： 列表框用于在很多项目中作出选择的操作。列表框的ListCount属性表示表项的数量，列表项的排列从0开始，最后一项的序号为ListCount-A。使用列表项的Selected属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为True或False，为True时表示选择了该项，为False表示未选择。解题步骤：
第一步：编写程序代码。
程序提供的代码：
Private Sub CA_Click()
Dim i As Integer
For i=0 TO LA.LiStCount-A
’LA.=True
Next
End Sub
Private Sub CB_Click()
Dim i As Integer
Open "outG.txt" For Output As #A
For i=0 To LA.ListCount-A
’ LA.ListIndex=
’ Print #A, LA.,
LA.Selected(i)=False
Next
Close #A
End Sub
参考代码：
Private Sub CA_Click()
Dim i As Integer
For i=0 To LA.ListCount-A
LA.Selected(i)=True
Next
End Sub
Private Sub CB_Click()
Dim i As Integer
Open "outG.txt" For Output As #A
For i=0 To LA.ListCount-A
LA.ListIndex=i
Print #A, LA.Text,
LA.Selected(i)=False
Next
Close #A
End Sub
第二步：调试并运行程序
第三步：按题目要求存盘