我是一个菜鸟，问一个菜鸟问题。

Question

For i = 1 To 11
Load Label2(i)
Label2(i).Left = Label2(i - 1).Left + Label2(i).Width + 700
Label2(i).Top = Label2(i - 1).Top
Label2(i).Visible = True
Next
代码是这个。
从这个代码看，不过怎么只是控制一个控件向一个方向发展。
如果现在想做一个
5*10数组控件的排列，那代码又应该是什么呢。
我测试过，不能使用两个for循环。来实现这个5*10还有一个特殊一点 如图表示那样
********
********
*
这样的代码又应该是什么呢。请高手写出代码。让我这个菜鸟学习一下。

Answer 1

这容易的问题我来抢...哈.
Private Sub Form_Load()
    Dim I As Long, J As Long, X As Long, Y As Long
    
    Const theNum As Long = 5            '每行个数
    
    Label1(0).Visible = False
    X = Label1(0).Left: Y = Label1(0).Top       '确定第一个的开始位置
    
    For I = 1 To 50
        Load Label1(I)
        Label1(I).Move X, Y
        Label1(I).Visible = True
        J = J + 1
        If J = theNum Then          '每五个折一行
            Y = Y + Label1(0).Height + 45       '更新Y
            X = Label1(0).Left                  '还原X
            J = 0                               '每行个数归零
        Else
            X = X + Label1(I - 1).Width + 45    'Y不变,X递增
        End If
    Next
End Sub至于你那个"特殊点"的,没说明规律,无法下手.睡.