数组控件应用中，这段代码怎样简化

Question

For i = 1 To 10
Label1(i).Visible = True
Label2(i).Visible = True
Label3(i).Visible = True
Label4(i).Visible = True
Label5(i).Visible = True
Label6(i).Visible = True
Label7(i).Visible = True
Label8(i).Visible = True
Label9(i).Visible = True
Label10(i).Visible = True
Next

Answer 1

For i = 1 To 10
    For j = 1 To 10
        Label(i,j).Visible = True
    Next j
Next i

Answer 2

To steedhorse(晨星)
请教，如何建立二维的控件数组？To 楼主
你真是有10个Label控件数组，每个数组又有10个Label控件吗（共100个）？

Answer 3

控件数组Index一般从0开始。你是不处理index=0的Label，还是已删掉了，对你这种大规模使用Label的用法，有点不敢相信，所以多问了两句。为什么不用Print呢？

Answer 4

控件数组只能是一维的，但是可以通过技巧来弥补：
定义100个LABEL控件的数组LABEL1(0)--lABEL1(99)DIM I AS LONG
DIM L AS LONGFOR I = 0 TO 9
   FOR L= 0 TO 9
      LABEL1(I*10+L).VISIBLE = TRUE
   NEXT
NEXT还有一个方法就是枚举当前的所有控件，判断控件名称为LABEL1则改变属性，但是效率低下，不推荐。

Answer 5

呵呵，像楼主那样的命名也是有办法的，前面问了那么多，是怕楼主概念弄错了，让人白费功夫。若意思没错，可用下面代码：Dim I As Long
Dim L As LongFor I = 1 To 10
   For L = 1 To 10
      Controls("Label" & I)(L).Visible = True
   Next
Next