2. 计算机
  3. 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序的控件已经设置完毕，要求考生去掉程序中的注释符“’”，把“?”改为正确的内容，以完成下面所描述的功能，存盘时不得改变文件名和文件夹。 在窗体上有一个名为Listl的列表框，列表框

在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序的控件已经设置完毕，要求考生去掉程序中的注释符“’”，把“?”改为正确的内容，以完成下面所描述的功能，存盘时不得改变文件名和文件夹。 在窗体上有一个名为Listl的列表框，列表框

admin2010-07-13  29
问题 在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序的控件已经设置完毕，要求考生去掉程序中的注释符“’”，把“?”改为正确的内容，以完成下面所描述的功能，存盘时不得改变文件名和文件夹。
    在窗体上有一个名为Listl的列表框，列表框中有若干的列表项，通过属性窗口设置列表框的MultiSelect属性为1。有一个命令按钮，名称是Commandl，标题是“保存”；另有一个名称为Labell的标签和一个名称为Textl的文本框，Labell的标题为“选中项数”，Textl中显示当前选择的表项数量，并弹出如图58—5所示的提示框。如果选择“否”，则退出程序；如果选择“是”，则把选中的表项存盘到考生文件夹下的out5．txt文件中。
选项
答案 本题重点考查列表框、函数MsgBox()、文件的打开等。 列表框控件用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可以通过代码设置；MultiSelect用于设置是否可以在列表项中做多个选择，值为0(缺省设置)表示不允许做多项选择，值为1表示允许做简单多项选择，值为2表示允许使用Shift、Ctrl键做多项选择；Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始)，值为True表示被选中，值为False表示未被选中。List(Index)属性用于设置或返回指定索引号的列表项的内容，ListCount属性用来返回列表框中当前的列表项条数。 MsgBox()函数用于显示提示信息，并返回一个代表用户点击了哪个按钮的Integer类型值，其常用语法为：MsgBox(prompt[，buttons,][，title])。其中，prompt参数为消息框的提示信息；buttons参数用于控制消息框中按钮的数目、形式及消息框图标的样式；title参数为消息框标题栏上显示的内容。 关于文件的操作，主要是指对文件进行打开、读或写的操作，操作完成后，再关闭这个文件。打开文件的基本格式为：Open FileNatne For Mode As#FileNumber。打开方式主要有Output、Append、Input、Random等几种方式。Output、Append、Input方式打开的文件进行的读写操作都是以顺序方式进行的。其中Output’、Append打开的文件主要用来输出数据，与Print#、Write、#等方法配合使用；以Input方式打开的文件主要用来输入数据，与Input#、Line Input#语句配合使用。以Random方式打开的文件主要用于随机文件的读与写，它不分Output与Input，统一使用Random标识。本题补充后的代码如下： Private Sub Commandl_Click() Textl．Text=Listl．SelCount Dim a As Integer Dim str As string Dim i As Integer str="" a=MsgBox("确认保存?"，vbOKCancel，"保存") ’弹出提示对话框 If a=1 Then’如果选择确定则保存 For i一0 To Listl．ListCount-1 ’For循环遍历Listl If Listl．Selected(i)Then str=str+Listl．List(i)+vbCrLf’如果选中则放入字符串中 End If Next i Open"App．Path&＼out5．txt"For Output As#l ’打开文件准备写入 Print#l，str’将字符串写入文件中 Close#1 Else Unload Me ’如果选择取消则关闭窗口 End If End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/UGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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