UBound返回数组最大下标你的Text1控件是数组形式UBound就是数组的最大下标例如你声明的数组是text1(10),那么Text1.UBound就是10例如：For i = 0 To Text1.UBound Text1(i).Locked = True
