Question

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

题目：在窗体上画一个文本框，名称为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

追问

列表框名为L1, 你却有时用L1,有时用list1--我给忘了这回事儿，平常都是list1

追答

1 列表框名为L1, 你却有时用L1,有时用list1
2 a要定义全局变量
这2点都很重要,否则得不到你要的结果

追问

为什么？我就搞不懂，有的时候声明放前面，有的时候放后面？a为什么是全局变量？原谅我，变量没学好，编程的时候是不是要出点问题

追答

全局变量放在所有的程序段之前,所有程序段都可以用,值不会清零
放在程序段中的变量离开了该程序段就会 被清零,如该题中i可以放到程序段中
a是2段程序共用,不能被自动清零的,所以定义为全局变量

Answer 2

错误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根本不需要

Answer 3

上面声明的应该是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

追问

为什么？我就搞不懂，有的时候声明放前面，有的时候放后面？

追答

哦，你应该掌握的知识是：变量的作用域：
1，在过程里声明的变量，叫做局部变量，它只能在该过程里起作用：
例如：
Private sub a1()
dim a as integer '这个就是只能在a1里起作用的局部变量
a=5
print a
end sub

Private sub a2()
print a '在这里这个变量不是a1里的？？？？？不能使用a1里的

end sub

2，如果要在窗体的任何过程里都能使用同一个变量，那么要声明为模块变量
Private a as integer
Private sub a1()
a=5 '在这里这个变量是模块变量，a1 a2里都能使用
print a
end sub

Private sub a2()
a = a + 100
print a '在这里这个变量是模块变量，a1 a2里都能使用

end sub

追问

也就是说，如果我不在最前面声明，只在过程里声明，那两个不同的事件可以用同一个变量，因为它只在局部起作用？

追答

对的，在不同的过程里，声明的变量可以同名，不会相互影响的。

最好养成，强制声明变量的习惯，这样就不会出错！！！！

例如：
Option Explicit '这就是强制声明变量的说明语句

Private sub p1()
Dim a as integer
a = 100
print a '结果显示 100
End Sub

Private sub p1()
Dim a as integer
a = 999

print a '结果显示 999
End Sub

互相不会影响。局部变量只能在局部声明它的范围里起作用。

但是
Option Explicit '这就是强制声明变量的说明语句

Private sub p1()
Dim a as integer
a = 100 ’这里系统规定，当模块变量与局部变量同名，就以局部变量为优先识别
print a '结果显示 100
End Sub

Private sub p1()
a = 999 '提示变量没有声明,因为前面使用了强制变量声明的语句

print a
End Sub

注意：
Option Explicit '这就是强制声明变量的说明语句
Private a as integer

Private sub p1()
Dim a as integer
a = 100
print a '结果显示 100
End Sub

Private sub p1()
a = 999 '这里有不提示变量没有声明了，因为在这里系统认为是模块变量

print a
End Sub

Answer 4

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

Answer 5

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
我试着没错啊