【正确答案】向列表框中添加项目可以用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)按题目要求存盘。