2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不

注意：下面出现的“考生文件夹”均为c：\wexam\25160001。 在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)，但不能修改其他部分。存盘时不

admin2009-02-25  38
问题 注意：下面出现的“考生文件夹”均为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-1。使用列表项的Selected属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为True或False，为True时表示选择了该项，为False表示未选择。解题步骤： 第一步：编写程序代码。 程序提供的代码： Private Sub C1_Click() Dim i As Integer For i=0 TO L1.LiStCount-1 ’L1.?=True Next End Sub Private Sub C2_Click() Dim i As Integer Open "out7.txt" For Output As #1 For i=0 To L1.ListCount-1 ’ L1.ListIndex= ’ Print #1, L1.?, L1.Selected(i)=False Next Close #1 End Sub 参考代码： Private Sub C1_Click() Dim i As Integer For i=0 To L1.ListCount-1 L1.Selected(i)=True Next End Sub Private Sub C2_Click() Dim i As Integer Open "out7.txt" For Output As #1 For i=0 To L1.ListCount-1 L1.ListIndex=i Print #1, L1.Text, L1.Selected(i)=False Next Close #1 End Sub 第二步：调试并运行程序 第三步：按题目要求存盘
解析
转载请注明原文地址:https://www.kaotiyun.com/show/Rh1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)