[多项选择题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有号的地方填入正确内容，

[多项选择题] 注意：下面出现的“考生文件夹”均为c：wexam25160001。
在考生文件夹下有工程文件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 第二步：调试并运行程序 第三步：按题目要求存盘

问题解析:

解析无