我是刚刚想学习VB6编程的，遇到一些困难，想请教高手指点。
1.
在窗口中添加一个CommandButton按钮，添加20个CheckBox复选框，还有添加一个ListBox列表框，
在CommandButton按钮填入下面的代码
Private Sub Command1_Click()
If Check1.Value = 1 Then List1.AddItem Check1.Caption
If Check2.Value = 1 Then List1.AddItem Check2.Caption
If Check3.Value = 1 Then List1.AddItem Check3.Caption
If Check4.Value = 1 Then List1.AddItem Check4.Caption
If Check5.Value = 1 Then List1.AddItem Check5.Caption
If Check6.Value = 1 Then List1.AddItem Check6.Caption
If Check7.Value = 1 Then List1.AddItem Check7.Caption
If Check8.Value = 1 Then List1.AddItem Check8.Caption
If Check9.Value = 1 Then List1.AddItem Check9.Caption
If Check10.Value = 1 Then List1.AddItem Check10.Caption
If Check11.Value = 1 Then List1.AddItem Check11.Caption
If Check12.Value = 1 Then List1.AddItem Check12.Caption
If Check13.Value = 1 Then List1.AddItem Check13.Caption
If Check14.Value = 1 Then List1.AddItem Check14.Caption
If Check15.Value = 1 Then List1.AddItem Check15.Caption
If Check16.Value = 1 Then List1.AddItem Check16.Caption
If Check17.Value = 1 Then List1.AddItem Check17.Caption
If Check18.Value = 1 Then List1.AddItem Check18.Caption
If Check19.Value = 1 Then List1.AddItem Check19.Caption
If Check20.Value = 1 Then List1.AddItem Check20.Caption
End Sub



2。
将上面的代码简化成下面的运行时提示出错：编译错误 子程序或函数未定义
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 19
If check(i).Value = True Then List1.AddItem check(i).Caption
Next i
End Sub
我想不是这样简化吧，1。的代码不是循环，2.的代码是循环
也不知道是否，小弟刚学VB 想请教高人指点
小弟在此谢过了！

你把checkbox设置成数组先。 你现在的代码 你觉得 check10 和 check(10)是同一个object吗？

先看看书,,看看控件数组这一章,如果没看过.那什么也不用说..

非常的古怪 vb6可以用控件数组 vb2002 vb2003 都不可以 vb2005忽然又可以了。。。

谢谢！！！

vb2005没有用过,
不过vb2002,2003其实都存在控件数组,只不过是以另一种面向对象的形式存在而已,就是handles,在事件的后面,可以加上各种控件名.

其实我觉得那不能称为控件数组 只能说是把类似功能的代码合在一起

handles是把一堆控件的代码合在一起了 可是无法在外面循环设置属性 也没法变量方式引用
我觉得基本上。。。这个功能很弱。。。没什么用

呵呵,那也是,
可能ms在2002,2003取消了控件数组之后,呼声很高吧.所以它在2005又加回去了.

vb6似乎不被MS的后续版本支持了 好像有好多老程序员联名上书强烈要求继续支持

呵呵.没事,只要win xp,win2000还不在这世界上消失,那vb6还是有用户的.
不过转去2003,2005还是比较明智的选择.