(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所示。

【正确答案】正确答案： (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 单击图片

【答案解析】