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

Question

题目：在窗体上画一个文本框，名称为text1，text属性为空白。再画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“AAAA”,“BBBB”,“CCCC”,“DDDD”。程序运行后... 题目：在窗体上画一个文本框，名称为text1，text属性为空白。再画一个列表框，名称为L1，通过属性窗口向列表框中添加4个项目，分别为“AAAA”,“BBBB”,“CCCC”,“DDDD”。程序运行后，在文本框中输入一个字符串，如果双击列表框中的任一项，则把文本框中的字符串添加到列表框中。 代码如下： Dim i As Integer Private Sub L1_dblClick() For i = 0 To 3 If List1.Selected(i) = True Then List1.AddItem a End If Next End Sub Private Sub Text1_Change() a = Text1.Text End Sub 说是实时错误424，但我看不出来哪儿是错的，请指点 展开

Answer 1

问题: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