form1上有text1(0)--text(4)5个数组控件，每个控件中有5组数，用循环求每个控件的和，即text(0)的和text(1)的和....text(5)的和，在text2中显示
Private Sub Command3_Click()
Dim s() As String
Dim i As Integer, index As Integer
Text2.Text = ""
s = Split(Text1(i).Text)
Dim sum As Double
For i = 0 To UBound(s)
If IsNumeric(s(i)) Then sum = sum + (s(i))
For index = 0 To 4
    index = index + 1
 If Controls("Text1(" & index & ")").Text Then s = Split(Text1(i).Text)
 sum = sum + (s(i))
Next
Next
 Text2.Text = Text2.Text & sum & vbNewLine
End Sub

结果显示“未找到控件text1(1)”,求老师帮忙

如果你确实加载了text1控件数组的话，提示缺少text1(1)则说明你在设计阶段删除了该控件，要想遍历该数组，用for each方式，代码如下
dim s() as string,i as integer,j as integer,a as string,b as textbox
j=0
for each b in text1
  s=split(b," ")  '假设你控件里的5组数是用空格隔开
  for i=0 to ubound(s)
    j=j+val(s(i))
  next
next
text2=j          '显示累加结果

我要的是在text2中逐行显示text1(0)--text1(5)结果