vb一道关于列表框的问题，急

问题:1 列表框名为L1, 你却有时用L1,有时用list1
2 a要定义全局变量

Dim i As Integer
Dim a As String
Private Sub L1_dblClick()
For i = 0 To 3
If L1.Selected(i) = True Then
L1.AddItem a
End If
Next
End Sub
Private Sub Text1_Change()
a = Text1.Text
End Sub

错误424意思是对象未定义.你的列表框名称为L1, 那么List1.Selected.... List1.Additem中的list1就是未定义的对象了,把它们改成L1.Selected....L1.Additem
还有你的变量a也应该先定义一下,在Dim i As Integer下面加上Dim a As String
还有你的逻辑也有点乱,你把L1.AddItem a改为L1.AddItem Text1.Text,那么Sub Text1_Change()这一过程,以及变量a根本不需要

上面声明的应该是a

dim a as string

Private Sub L1_dblClick()
dim i as integer '这里声明 i
For i = 0 To 3
If List1.Selected(i) = True Then
List1.AddItem a
End If
Next
End Sub

列表框名称是L1,你代码里面的list1.Selected(i)这类的list1 都应该改成 L1

Option Explicit
Dim i, a

Private Sub List1_DblClick()
For i = 0 To 3
If List1.Selected(i) = True Then
List1.AddItem a
End If
Next i
End Sub

Private Sub Text1_Change()
a = Text1.Text
End Sub
我试着没错啊