2. 计算机
  3. (1)在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm．该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后

(1)在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm．该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后

admin2009-03-26  25
问题 (1)在考生文件夹中有文件sj3．vbp及其窗体文件sj3．frm．该程序是不完整的。窗体上有一个名称为Text1的文本框；两个复选框，名称分别为Check1和Check2，标题分别为“Item1”和“Item2”；一个按钮，标题为“选择”。要求程序运行后，如果Checkl和Check2都不选，单击窗体后，则在文本框中什么都不显示；如果只选中Checkl，单击按钮，则在文本框中显示“选中Item1”；如果只选中Check2，然后单击按钮，则在文本框中显示“选中Item2”；如果同时选中Checkl和Check2．单击窗体，则在文本框中显示“不能全选”。程序运行时窗体显示如图1-3所示。
    注意：请在有“?”的地方填入正确内容．然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时：不得改变文件和文件名。
(2)在考生文件夹下有一个工程文件sj4．vbp，要求程序运行后，如果多次单击列表框List1中的项，则可同时选择这些项。而如果单击“导出”按钮，则在列表框List2中输出所有选中的列表项，如图1-4所示。

注意：修改列表框List1的适当属性，使得运行时单击可以多选，并去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后的把修改后的程序以原来的文件名存盘。
选项
答案 (1)根据题意，将两个名称分别为Checkl和Check2的复选按钮、一个名称为Textl的文本框和一个名称为Commandl的命令按钮放入到窗体中，复选按钮的Caption属性分别为Iteml和Item2，Text1的Text属性为空，命令按钮的Caption褐性为“选择”。双击Commandl进入代码编写窗口，代码如下： Private Sub Commandl_Click() If Checkl．Value =1 Then’当选中Checkl时 If Check2．Value=1 Then’选中Check2 Textl．Text =”不能全选” ’在Textl中显示不能全选 Else’没有选中Check2 Textl．Text”选中Iteml” ’在Textl中显示选中Iteml End If Else’当没选中Checkl时 If Check2．Value=1 Then ’选中Check2 Textl．Text=’选中Item2” ’显示选中Item2 Else Textl.Text="" ’不显示 End If End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)列表框控件用于显示可供单一或多个选择的列表项。在程序运行时可通过代码：列表框名．AddItem“项目”给列表框添加列表项；MultiSelect属性用于设置是否可在列表项中选择多项，值为0(缺省设置)表示不允许选择多项，值为1表示允许做简单多项选择，值为2表示允许配合使用Shift、Ctrl键做多项选择；Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始)．值为True表示被选中，值为False表示未被选中；List(Index)属性用于设置或返回指定索引号的列表项的内容；ListCount属性用来返回列表框中当前的列表项条数。 根据题意，将列表框List的MultiSelect为1—Simple，双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim i As Integer For i=0 To Listl．ListCount-1 ’遍历listl列表 If Listl．Selected(i)=True Then’找到选中项 List2．AddItem Listl．List(i) ’将其加入到list2列表框中 End If Next i End Sub 单击图片[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/hLq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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