用创建了一个控件数组，如何判断此数组的最大下标、

Question

控件数据组名.count  如list.count

Answer 1

Dim a(1 To 10)
MsgBox UBound(a)
Dim b
For Each b In a()
Dim c
c = c + 1
Next
MsgBox c 'c与UBound(a)的值相同.

Answer 2

你试下WESELY(无奈太多)　说的那个吧，应该是这样的。

Answer 3

'    Purpose:
'     Author:吴文智
'       Date:2001-11-14
'Description:要试用本例请在窗体中填加一个名为Text1的文本框数组
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    '这里取得的是最大索引
    MsgBox Text1.ubound
    
    '这里取得的是控件数组元素个数
    MsgBox Text1.Count
    
    '当控件数组的索引是由0开始,连续递增时,.Count=.Ubound+1
    '但是要注意的是,控件数组的索引可以是不连续的(比如,原来有10个元素,但我把索引为3和5的删除),那么上述关系就不存在了.
End Sub