注意：下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图1-3所示。
(2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm，该程序是不完整的，请在有号的地方填入正确内容，然后删除及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体有3个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”、“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图1-4所示。
参考答案：在窗体上建立好控件后，先设置控件属性，再编写事件过程。
向列表框中添加项目可以用AddItem方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，所以利用代码实现。列表框的Text属性为最后一次选中的表项的文本。解题步骤：
第一步；建立界面并设置控件属性。程序中用到的控件及属性设置见表1-2。
[*]
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
Dim i As Integer
’ For i = To List1.ListCount-1
If List1.Selected(i) = True Then
’ = List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List 1.AddItem "Item1"
List 1.AddItem "Item2"
List 1.AddItem "Item3"
List 1.AddItem "Item4"
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Text1.Text = List1.List(i)
End If
Next i
End Sub
Private Sub Form_Load()
List1.AddItem "Item1"
List1.AddItem "Item2"
List1.AddItem "Item3"
List1.AddItem "Item4"
End Sub
第三步：调试并运行。
第四步：按题目要求存盘。
(2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。
单击命令按钮触发Click事件，程序中需要检测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value值为0。解题步骤：
第一步：建立界面并设置控件属性。程序中用到的控件及属性见表1-3。
[*]
第二步：编写程序代码。
程序提供的代码：
Option Explicit
Private Sub C1_Click()
’ Dim s As
s=“我的爱好是”
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
’ Print
End Sub
参考代码：
Option Explicit
Private Sub C1_Click()
Dim s As String
s =“我的爱好是”
If Ch1.Value = 1 Then
s = s + Ch1.Caption
End If
If Ch2.Value = 1 Then
s = s + Ch2.Caption
End If
If Ch3.Value = 1 Then
s = s + Ch3.Caption
End If
Print s
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。