[简答题]在考生文件夹中有工程文件Sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有“”号的地方填入正确内容，然后删除“”及所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下。
在窗体上有一个列表框，名称为Ljst1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为“复制”。要求程序运行后，在列表框中自动建立4个列表项，分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图11-10所示。

参考答案:向列表框中添加项目可以用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)按题目要求存盘。
答案解析:[解析] 在窗体上建立好控件后，先设置控件属性，再编写事件过程。