2. 计算机
  3. 有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。 要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能

有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。 要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能

admin2009-03-17  45
问题 有一个工程文件ylc6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这几项。如果单击“显示”按钮，则在窗体上输出所有选中的列表项，如图22所示。

   要求修改列表框属性，运行时可以多选，并去掉程序中的注释，改为正确的内容。实现上述功能，不得修改程序的其他部分。
   题目提供的Command1对象的Click对象源代码如下：
   Private Sub Command1_Click()
     Dim i As Integer
     For i=0 To ?
       If  ?  Then
         Form1.?  (List1.List(i))
       End If
     Next i
   End Sub
   注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
选项
答案1．操作步骤 (1)在Visual Basic集成环中境选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。 (2)在工具箱中选择ListBox控件，在窗体中创建该控件。在属性窗口设置它的名称为 Listl。 (3)在属性编辑框中设置它的MultiSelect属性值为1，则可以使用鼠标多选列表项。 (4)在工具箱中选择命令按钮控件，在窗体中拖动创建该控件。设置其名字为 Command1，标题为“显示”。 2．行为编码 解答后Command1对象的Click事件代码如下： Private Sub Command1_Click{) ’列表框项目总数确定循环次数 For i=0 To List1.ListCount-1 ’判定Selected属性的返回值是否该项被选定 If List1.Selected(i) Then ’通过Print方法打印该列表项内容 Form1.Print (List1.List(i)) End If Next i End Sub 3．存盘保存 执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
解析 (1)这是一道简单的应用题，主要考查列表控件的多选及其多选项的显示。(2)使用For循环处理检测列表控件的Selected属性。如果被选择的Selected属性返回 True，则通过窗体的Print方法显示选择的项目内容。
转载请注明原文地址:https://www.kaotiyun.com/show/tj1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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