2. 计算机
  3. 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个名为Listl的列表框，列表框中有若干列表项，如图40—6所示，通过属性窗口设置列表框的MultiSelect属性值为1，一个名为Textl的文本框，还有两个命

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在窗体上有一个名为Listl的列表框，列表框中有若干列表项，如图40—6所示，通过属性窗口设置列表框的MultiSelect属性值为1，一个名为Textl的文本框，还有两个命

admin2009-03-26  30
问题 在考生文件夹下有工程文件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 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/FV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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