在考生文件夹中有工程文件Sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有“”号

参考答案:向列表框中添加项目可以用AddItem方法，也可以在属性窗口中进行。但题目中要求是程序运行后自动添加，所以利用代码实现。列表框的Text属性为最后一次选中的表项的文本。解题步骤如下。
(1)建立界面并设置控件属性。程序中用到的控件及属性设置如表11-2所示。

表11-2
控 件	属 性	设置值
列表框	Name	List1
文本框	Name	Text1
命令按钮	Name Caption	C1 复制

(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()
List1.AddItem"Item1"
List1.AddItem"Item2"
List1.AddItem"Item3"
List1.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.Addltem"Item1"
List1.AddItem"Item2"
List1.Addltem"Item3"
List1.Addlitem"Item4"
End Sub
(3)调试并运行。
(4)按题目要求存盘。
答案解析:[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。