2. 计算机
  3. 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm。在窗体Form上有一个名为Listl的列表框，列表框中有若干列表项，通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮，名称分别是Commandl和Command2，标题

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm。在窗体Form上有一个名为Listl的列表框，列表框中有若干列表项，通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮，名称分别是Commandl和Command2，标题

admin2009-03-26  57
问题 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm。在窗体Form上有一个名为Listl的列表框，列表框中有若干列表项，通过属性窗口设置列表框的MultiSelect属性为1。还有两个命令按钮，名称分别是Commandl和Command2，标题分别是“全选”和“保存”(如图41—6所示)。要求在程序运行时，单击“全选”按钮则将Listl中的全部列表项选中，然后单击“保存”按钮，将Listl中的全部列表项写入文本文件out5．txt中，并将out5．txt保存在考生文件夹下。

    注意：该程序不完整，请在有问号“?”的地方填入正确内容，然后删除问号“?”及所有注释符“’”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。
选项
答案向列表框中添加项目可以用Addltem方法，也可以在属性窗口中进行，本题是在属性窗口实现的。列表框的Text属性勾最后一次选中的表项的文本，Listlndex属性是已被选中的表项的位置。如果没有选中任何项，Listlndex的值将设置为一。双击Commandl命令按钮进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim i As Integer For i=0 To Listl．ListCount-1 Listl．Selected(i)=True Next i End Sub Private Sub Command2_Click() Dim i As Integer Open App．Path&"＼out5．txt"For Output As l For i=0 To Listl．ListCount-1 Listl．Listlndex=i Print#1，Listl．Text， Listl．Selected(i)=False Next i Close#1 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/PV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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