VB编译后提示子程序或函数未定义~~那位大哥可以帮帮忙啊！谢谢啦！

这句有问题。
a(i) = Text(i).Text

重复定义
Dim a(0 To 12) As Integer

--------------------------------

添加一个text1.text控件，然后选中这个控件，ctrl+c,ctrl+v,复制12个,再添加一个text2.text控件(multiline=true)。

Private Sub Command1_Click()
Dim a(0 To 12) As Integer
Dim i As Integer

For i = 0 To 12
a(i) = Val(Text1(i).Text)

Next
Text2.Text = s(a)
End Sub

Private Function s(a() As Integer) As String
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim c As Integer
Dim r As String

For i1 = 0 To 12 - 5
For i2 = i1 + 1 To 12 - 4
For i3 = i2 + 1 To 12 - 3
For i4 = i3 + 1 To 12 - 2
For i5 = i4 + 1 To 12 - 1
For i6 = i5 + 1 To 12
r = r & a(i1) & "," & a(i2) & "," & a(i3) & "," & a(i4) & "," & a(i5) & "," & a(i6) & vbCrLf
c = c + 1
DoEvents
Next
Next
Next
Next
Next
Next
MsgBox c
s = r
End Function

打个比方 如果i=10
以你的意思 a(i) = Text(i).Text
那么Text(i).Text 是不是等于 Text10.Text
请问你有没用 Text10这个控件~~