Question

VB问题Private Sub Command1_Click()

Private Sub Command1_Click()
Dim i%
For i = Combo1.ListCount - 1 To 0
If Combo1.Selected(i) Then

List1.AddItem Combo1(i)
End If
Next i

这个代码如何改

Answer 1

根据你的代码，你的题意是当Combo1中选择了某项时，将此项加入到List1中，所以，应该是不需要循环的。用以下代码即可。
Private Sub Command1_Click()
If Combo1.ListIndex Then
List1.AddItem Combo1.List(Combo1.ListIndex)
End If
End Sub

另外Combo1是没有Selected(i)属性的，可以使用Combo1.ListIndex来表示当前选择的项索引；
因Combo1是控件名，所以Combo1(i)是用来表示控件数组的，Combo1(i)不能用来表示取得Combo1控件中的项，可以使用Combo1.List(i)得到。

Answer 2

运行已通过：
Private Sub Command1_Click()
Dim i%
For i = Combo1.ListCount - 1 To 0
If Combo1.ListIndex >= 0 Then

List1.AddItem Combo1.List(i)
End If
Next i
End Sub

说明：
其中Combo1.ListIndex要做判断，用Combo1.Selected(i) 是不可以的
List1.AddItem添加时用的值是Combo1.List(i)

Answer 3

Private Sub Command1_Click()
Dim i%
For i = Combo1.ListCount - 1 To 0 step -1
If Combo1.Selected(i) Then

List1.AddItem Combo1(i)
End If
Next i

Answer 4

正确解答！！我帮你改了。其实只要先设置ListIndex在判断Combo1是不是空就可以将选取的资料加入List1

Private Sub Command1_Click()
If Combo1.Text <> "" Then
List1.AddItem Combo1.Text
End If
End Sub

Private Sub Form_Load()
Combo1.ListIndex = 0
End Sub