使用For Each循环遍历控件数组的参考代码: Dim i As CommandButton '定义一个控件类型的变量作为循环变量 For Each i In Command1 i.Caption = i.Index '注意变量i不是“数组下标”,而是控件本身,所以写成Command1(i)是错误的 Next i
@tbzp666 For Each是一种适用于集合(Collection)类的循环,它会依次访问集合中的每个元素,而无需关注元素的下标,循环变量表示的就是元素本身;某种意义上说,控件数组更接近集合,而且由于控件数组的下标可以不连续,通常的For循环在指向不存在的元素时会出错,而For Each就不会出问题