' 在窗体上有一个列表框,名称为 List1 ,一个文本框,名称为 Text1 , ' 和一个命令按钮,名称为 C1 ,标题为 " 复制 " 。要求程序运行后, ' 在列表框中自动建立四个列表项,分别为 "Item1" 、 "Item2" 、 '"Item3" 、 "Item4" 如果选择列表框中的一项,则单击 " 复制 " 按, ' 可以把该项复制到文本框中(如图 1 所示)。 Option Explicit Private Sub C1_Click() Dim i As Integer '**********SPACE********** For i = 【 ? 】 To List1.ListCount - 1 If List1.Selected(i) = True Then '**********SPACE********** 【 ? 】 = 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